Foxtable(狐表)用户栏目专家坐堂 → 无法正常解析公网IP地址时报错处理


  共有409人关注过本帖树形打印复制链接

主题:无法正常解析公网IP地址时报错处理

帅哥哟,离线,有人找我吗?
L88919138
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:725 积分:6924 威望:0 精华:0 注册:2012/3/1 7:20:00
无法正常解析公网IP地址时报错处理  发帖心情 Post By:2024/11/19 10:25:00 [只看该作者]

下面代码能正常解析出公网IP地址时是不会报错,可一旦无法有效解析出公网IP地址时便会报错,测得是最后一行代码报错,该如何用判断语句来规避?


Dim hc As New HttpClient("https://ip.51240.com/") '无法有效解析出公网IP地址
'Dim hc As New HttpClient("http://myip.ipip.net")  '可以正常解析出公网IP地址
Dim txt As String = hc.GetData()
Dim pattern As String = "((2[0-4]\d|25[0-5]|[01]?\d\d?)\.){3}(2[0-4]\d|25[0-5]|[01]?\d\d?) "
Dim rgx = New System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim Matches As Object = rgx.Matches(txt)

output.show(Matches.Item(0).Value)  '测得报错的代码


图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/19 10:40:00 [只看该作者]

Dim rgx = New System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Dim Matches As System.Text.RegularExpressions.MatchCollection = rgx.Matches(txt)
If Matches.Count > 0 Then
    output.show(Matches.Item(0).Value)  '测得报错的代码
End If 


 回到顶部
帅哥哟,离线,有人找我吗?
L88919138
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:725 积分:6924 威望:0 精华:0 注册:2012/3/1 7:20:00
  发帖心情 Post By:2024/11/19 10:41:00 [只看该作者]

谢谢大师指点图片点击可在新窗口打开查看

 回到顶部