| 标题 | VBS 获取外网IP的实现代码 |
| 范文 | 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10 if oDOM.readyState = "complete" then flag=1 exit for end if WScript.sleep 500 next if flag=0 then WScript.Echo "timeout ..." wscript.quit end if s=oDOM.documentElement.innerText Set Re = New RegExp Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)" for each r in Re.Execute(s) res=r exit for Next WScript.Echo "IPAddress: " & res |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。