code1:

Option Explicit

Private Sub Form_Load()
WebBrowser1.Visible = False
WebBrowser1.Navigate "http://www.ip138.com/ip2city.asp"
End Sub

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
...

源码（1）： Private Sub Command1_Click() If Text1.Text = “” Then MsgBox “请输入域名” End If If Text2.Text = “” Then MsgBox “请输入用户名” End If If Text3.Text = “” Then MsgBox “请输入密码” Else MsgBox “如果您输入正确,那么您成功了” End If Timer1.Enabled = True Web.Navigate (“http://www.ip138.com/ip2city.asp“) Web.Navigate “http://” & Text2.Text & “:” &...

不知道为什么老熊（mybr）会1XB出售 但是我估计就是那个公开的意思吧？ 提供下载 在我网盘里面 解压密码：www.874587.net.ru 密码注意大写

...

Delphi写的

很经典的一款源码，可以拿去自己改改

下载地址：http://874587.ys168.com/

密码：874587