| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。