VBS 獲取外網IP的實現(xiàn)代碼
更新時間：2013年07月28日 20:08:31 作者：
這篇文章主要介紹了用vbs獲取外網的ip地址，通過用vbs訪問ip顯示頁面的返回值實現(xiàn)，需要的朋友可以參考下
復制代碼 代碼如下:
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教程：方法-GetAbsolutePathName 方法
VBS教程：方法-GetAbsolutePathName 方法...2006-11-11
VBS教程：函數-LBound 函數...2006-11-11
自己搗鼓了半天，終于寫出了個腳本，實現(xiàn)flux在注冊表中的啟動，當然是更隱蔽的方法，別人知道了這個地方也就沒戲了。2009-05-05
主要是用于flash網頁木馬調用方法，是flash的一個bug吧，大家以后要小心了2008-06-06
VBS教程：運算符-Is 運算符...2006-11-11
VBS教程：正則表達式簡介 -非打印字符...2006-11-11
這篇文章主要介紹了vbs實現(xiàn)unicode和ascii編碼轉換,本文同時介紹了OpenTextFile和CreateTextFile的使用,需要的朋友可以參考下2014-11-11
VBS教程：屬性-Path 屬性...2006-11-11
VBS教程：屬性-TotalSize 屬性...2006-11-11
使用vbs實現(xiàn)文本文件編碼的查詢的代碼，需要的朋友可以參考下。2010-06-06