主题：[求助]ip获取浏览器行HttpClient不行的问题

比如

Dim body As String = ""
Dim req = System.Net.WebRequest.Create("http://www.ip138.com")
'req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
'Dim aryBuf As Byte() = Encoding.UTF8.GetBytes(body)
'req.ContentLength = aryBuf.Length
'Dim writer = req.GetRequestStream()
'writer.Write(aryBuf, 0, aryBuf.Length)
'writer.Close()
'writer.Dispose()
Dim pos = req.GetResponse

Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close

msgbox(str)

目前不能设置这些。

要改成这个地址，如 http://200019.ip138.com/

这个地址每年不是固定的。

直接用正则匹配即可，如

Dim req = System.Net.WebRequest.Create("http://www.ip138.com")
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 mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=iframe src="").*?(?="" rel)")
msgbox(mc(0).value)
Dim hc As New HttpClient(mc(0).value)
Dim ret = hc.GetData()

mc = System.Text.RegularExpressions.Regex.Matches(ret , "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
    msgbox(mc(0).value)
End If