16,555
社区成员
发帖
与我相关
我的任务
分享
Dim html As String = System.Text.Encoding.ASCII.GetString(New System.Net.WebClient().DownloadData("http://www.bliao.com:2000/ip.phtml"))
Dim ip_string As String = System.Text.RegularExpressions.Regex.Match(html, "\b\d{1,3}(\.\d{1,3}){3}\b").Value
MsgBox(ip_string)