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