|
If TryConnectHost("www.baidu.com") Then
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://ip.qq.com/")
msgbox(123)
Do Until web.ReadyState = 4
Application.DoEvents
Loop
msgbox(123456)
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 15:02:00 [显示全部帖子]
