通过两次获取，第一次获取地址，然后用这个地址获取真实ip
'''
Dim req = System.Net.WebRequest.Create("http://www.ip138.com")
req.C
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm,Encoding.Default)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
Dim start As Integer = str.IndexOf("<iframe src=")
Dim End1 As Integer =str.IndexOf("nofollow")
Dim ret As String
If start >0 And End1 >start Then
Dim url As String =trim(str.SubString(start+13,End1-start-20)) 'IP地址,最多15个字符
Dim hc As New HttpClient(url)
ret = hc.GetData()
End If
Dim s1 As Integer =ret.Indexof("：[")
Dim s2 As Integer =ret.Indexof("来自：")
Dim ip91,ip92 As String
If s1>0 And s2>s1 Then
ip91 =trim(ret.SubString(s1+2,s2-s1-4))
Dim ss As String =ret.SubString(s2,20)
Dim s3 As Integer =ss.Indexof("</p>")
ip92=ss.SubString(3,s3-3)
End If
加好友 
发短信
Post By：2019/6/20 8:52:00 [显示全部帖子]
此主题相关图片如下：qq截图20190620101244.png