版主：
我的系统是上一个版本，不是最近的版本。
以前在执行下述语句以前执行几年来从来没有出现过问题，近两三天，总是出现超时错误（近期检测时间也长了），另外总是提示参数i未定义。
我的这部分程序，近一年就没有做过任何修改。
代码如下：
'获取外网地址
Dim WinHttpReq As Object = CreateObject("Msxml2.ServerXMLHTTP")
WinHttpReq.Open("GET", "http://1212.ip138.com/ic.asp")
WinHttpReq.Send
'正则表达式解析出外网IP
Dim str As String = WinHttpReq.ResponseText
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+")
If mc.count > 0 Then
Output.Show(mc(0).value) 'mc(0).value 外网地址
End If
超时错提示如下：
此主题相关图片如下：2017092801.jpg
参数i提示如下错误：
此主题相关图片如下：2017092802.jpg
加好友 
发短信
Post By：2017/9/28 12:04:00 [显示全部帖子]
