VBS获取外网IP代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 VBS获取外网IP

作者:dezai / 发布于2014/1/21/ 1338

'/*程序名称：获取外网IP
'/*说明：核心代码源自网络，youxi01整理修改；
set oDOM = WScript.GetObject("http://ipseeker.cn//")

'/*/////////设置连接是否成功的标志符；/////////
flag=0

'/*////////设置连接次数；///////////
for i=1 to 10
 '/*///////////如果已经成功连接，则跳出for循环；////////
 if oDOM.readyState = "complete" then
   flag=1
   exit for
 end if
 WScript.sleep 500    '每0.5秒就连接一次；
next

if flag=0 then
  msgbox "连接超时，请重新连接...",vbExclamation,"连接超时"
  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

msgbox "您的IP地址是："&vbcrlf&vbcrlf&res,vbInformation,"连接成功"

试试其它关键字

　外网IP　

同语言下

可能有用的

dezai贡献的其它代码(1065)