If TryConnectHost("http://ip.qq.com") Then
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://ip.qq.com/")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("Body") '根据标签得到数据集合
Dim data As String = elems(0).InnerText
Dim start As Integer = data.IndexOf("IP为") + 4
start = data.IndexOf("IP所在地为") + 9
Dim ip92 As String=trim(data.SubString(start,100)) 'IP地址对应的城市,最多15个字符
ip92=ip92.split(" ")(0)
MessageBox.Show(ip92)
End If
加好友 
发短信
Post By：2018/4/12 14:26:00 [显示全部帖子]
