手机
当前位置:查字典教程网 >脚本专栏 >vbs >VBS 获取外网IP的实现代码
VBS 获取外网IP的实现代码
摘要:复制代码代码如下:setoDOM=WScript.GetObject("http://ipseeker.cn//")flag=0fori=1...

复制代码 代码如下:

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的实现代码】相关文章:

用VBS实现PHP的md5_file函数代码

vbs 多线程下载实现代码

VBS破坏性应用代码

vbs 获取当前目录的实现代码

用VBS设置静态IP和DNS服务器地址的代码

VBScript 监控磁盘更改事件实现代码

VBS的各种应用的比较实用小代码

用VBS脚本实现更换Windows Xp序列号的代码

VBS读网页的代码

进程监控实现代码[vbs+bat]

精品推荐
分类导航