-
嬴生诚诚
发布于 2013-07-28 20:00
-
收藏
复制代码 代码如下:Function GetIPAddress()Dim Flag, SourceSet GetIPObj = WScript.GetObject("http:https://ipseeker.cnhttps://")Flag = 0For i=1 To 10 If GetIPObj.readyState = "complete" ThenFlag=1 Exit For End If WScript.Sleep 500Nex..