VBS 获取外网IP的实现代码
导读：收集整理的这篇文章主要介绍了VBS 获取外网IP的实现代码，觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:set oDOM = WScript.GetObject...
收集整理的这篇文章主要介绍了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
原文：http://www.enun.net/?p=1188 您可能感兴趣的文章:
- VBS获取外网IP地址并发送到指定邮箱的代码
- 获取外网IP并发送到指定邮箱的vbs代码[已测]
- 使用vbs获得外网ip并发送到邮箱里
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： VBS 获取外网IP的实现代码
本文地址： https://pptw.com/jishu/609980.html