无法正常解析公网IP地址时报错处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有81人关注过本帖树形打印复制链接主题：无法正常解析公网IP地址时报错处理

L88919138

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：724 积分：6913 威望：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

等级：超级版主帖子：110746 积分：563656 威望：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

等级：三尾狐帖子：724 积分：6913 威望：0 精华：0 注册：2012/3/1 7:20:00

Post By：2024/11/19 10:41:00 [只看该作者]

谢谢大师指点

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