Question

求一个VB获取IP地址所在地的程序代码

我只要这个IP地址的所在地区,因为我要把他放到一个文本框中如图

Answer 1

加个inet控件
Private Sub Command1_Click()
j = Inet1.OpenURL("http://www.ip138.com/ips.asp?ip=" & Text1 & "&action=2")
a = InStr(1, j, "<li>")
b = InStr(a, j, "</li>")
Print Mid(j, a + 10, b - a - 10)
End Sub

追问

b = InStr(a, j, "")
无效的调用函数和过程

追答

不会啊，我已调试完毕，没错啊，我用vb6.0编的

追问

我的也6.0的哦大师

追答

Private Sub Command1_Click()
j = Inet1.OpenURL("http://www.ip138.com/ips.asp?ip=" & Text1 & "&action=2")
Print Mid(j, InStr(1, j, "") + 10, InStr(a, j, "")- InStr(1, j, "") - 10)
End Sub
这样试试，我减少了变量

追问

问题还是一样.唉

Answer 2

可以啊

Private Sub Command1_Click()
j = Inet1.OpenURL("http://www.ip138.com/ips138.asp?ip=" & Text1 & "&action=2")
a = InStr(1, j, "<li>")
b = InStr(a, j, "</li>")
Text2 = Mid(j, a + 9, b - a - 9)
End Sub