apang

没用过360
这样它还蹦不蹦？

Set xml = CreateObject("Microsoft.xmlHttp")
xml.Open "get","http://iframe.ip138.com/ic.asp",false
xml.Send
While xml.ReadyState <> 4 : WScript.Sleep 100 : Wend

Set re = New RegExp
re.Pattern = "(\d+\.){3}\d+"
MsgBox "ip: " & re.Execute(xml.ResponseText)(0)
复制代码

apang

回复 4# Demon


    确实，删掉第4行不报错。
对此不甚了解，请教Demon，为何这里可以不用判断ReadyState=4呢？

apang

回复 4# Demon


    刚回过神来，Demon是不是说ie.Visible=False 是多余的？

apang

回复  apang


    open的false参数

表示客户机就要等到服务器返回消息后，才去执行其它命令
czjt1234 发表于 2013-7-7 10:53

    嗯，谢谢。