欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
06-04
17
代理服务器测试器 Ver1.0
作者:枕善居主 / 查看次数: 12418 / 评论: 8
一款比较不错的代理服务器测试器 Ver1.0,可以分别使用IE和火狐(Mozilla FireFox的代理还在完善中,有相关资料的朋友可以发表一下)进行代理,作者把以前版本的那个验证的核心改了,旧版本的验证不正确.感谢作者(季节彬 QQ：75759897)发布,压缩包中的IPOK.TXT是测试文件,大家直接加载,有问题请发布留言.
界面：
界面：
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 8 | Case "z"
Mstr = "3"
Case "m"
Mstr = "4"
Case "k"
Mstr = "2"
Case "l"
Mstr = "9"
Case "d"
Mstr = "0"
Case "x"
Mstr = "5"
Case "i"
Mstr = "7"
Case "w"
Mstr = "6"
Case "q"
Mstr = "8"
Case "b"
Mstr = "1"
End Select
End If
ChuChar = ChuChar & Mstr
Next
Exit Function
1:
Mstr = Mid$(Tstr, i + 1)
ChuChar = ChuChar & Mstr
End Function
'下面还有
Mstr = "3"
Case "m"
Mstr = "4"
Case "k"
Mstr = "2"
Case "l"
Mstr = "9"
Case "d"
Mstr = "0"
Case "x"
Mstr = "5"
Case "i"
Mstr = "7"
Case "w"
Mstr = "6"
Case "q"
Mstr = "8"
Case "b"
Mstr = "1"
End Select
End If
ChuChar = ChuChar & Mstr
Next
Exit Function
1:
Mstr = Mid$(Tstr, i + 1)
ChuChar = ChuChar & Mstr
End Function
'下面还有
不知道为啥这么简单的程序，用这么复杂的算法，也这么费劲的窗体什么的。
另外，由于现在代理服务器网站已变，加个代码和改动的地方入下，勉强凑合可以使用了。
Private Function ChuChar(ByVal Tstr As String) As String
Dim i As Long
Dim Zstr As String
Dim Mstr As String
Dim sT As Boolean
Dim Et As Boolean
For i = 1 To Len(Tstr)
Mstr = Mid$(Tstr, i, 1)
If Mstr = "+" Then
sT = True
Mstr = ""
End If
If Mstr = ")" Then GoTo 1
If sT = True Then
Select Case Mstr
'下面还有
下载页面功能和验证代理IP功能都已经失效了,想修改却又没那个能功[cry]
回复
xkhbmjd
[2007-10-02 18:14:04 | 
| 
]谢谢^_^
回复劳工99
[2007-01-10 11:57:36 | | ]这个要自己翻译的???????
回复linlin6412
[2006-11-03 17:48:35 | | ]好~ [lol]
你这个界面是怎么做的 啊
发表评论
您没有权限发表评论！
gostr = Replace(gostr, "<SCRIPTtype=text/javascript>document.write(", "")
gostr = Replace(gostr, "</SCRIPT>", "")
gostr = Replace(gostr, Chr(34), "")
gostr = ChuChar(gostr)