主题：程序每隔一段时间自动假死

On Error Resume Next

Dim httpURL As New System.Uri("http://ip.qq.com/")

Dim httpReq As System.Net.HttpWebRequest = System.Net.WebRequest.Create(httpURL)

httpReq.Method = "GET"

Dim httpResp As System.Net.HttpWebResponse = httpReq.GetResponse()

httpReq.KeepAlive = False

Dim reader As New IO.StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd()

With CreateObject("vbscript.regexp")

    .Global = True

    .MultiLine = True

    .ignorecase = True

    '.Pattern = ".*?\<.*?\>([^<>]+)[\s\S]*?"

    .Pattern = "当前的IP为.*?\<.*?\>([^<>]+)[\s\S]*?IP所在地为.*?\<.*?\>([^<>]+)"

    If .test(respHTML) Then

        With .Execute(respHTML)(0)

            Return Replace(.submatches(0), "&nbsp;", " ")

        End With

    End If

End With

Functions.Execute("GetNetIP")

bin 说的对，我自己也估计是这个函数时间比较长，有的时候，有什么好的解决方法吗