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教程：VBscript語(yǔ)句-Call 語(yǔ)句
VBS教程：VBscript語(yǔ)句-Call 語(yǔ)句...2006-11-11
vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送功能
這篇文章主要介紹了vbs腳本和windows定時(shí)任務(wù)實(shí)現(xiàn)qq消息表情包定時(shí)發(fā)送,整個(gè)過(guò)程不用過(guò)多的程序運(yùn)行，我們借助vbs腳本和windows定時(shí)任務(wù)去實(shí)現(xiàn)這一功能，需要的朋友可以參考下2022-01-01
查看SQL狀態(tài)的vbs(檢驗(yàn)SQL SERVER是否在這機(jī)器上工作 )
這篇文章主要介紹了查看SQL狀態(tài)的vbs,主要檢驗(yàn)SQL SERVER是否在這機(jī)器上工作,需要的朋友可以參考下2009-08-08
vbs imail 密碼解密代碼。2009-05-05
這篇文章主要介紹了VBS 賦值運(yùn)算符的用法，需要的朋友可以參考一下2006-11-11
VBS獲取外網(wǎng)IP地址并發(fā)送到指定郵箱的代碼
以前腳本之家發(fā)過(guò)類似功能的文章，這篇文章的獲取網(wǎng)站不同，實(shí)現(xiàn)代碼也不錯(cuò)，喜歡的朋友可以測(cè)試下2013-07-07
VBS可以做什么的簡(jiǎn)單說(shuō)明...2007-11-11
使用腳本自動(dòng)壓縮指定目標(biāo)下的所有文件的代碼
有的時(shí)候，需要對(duì)一個(gè)目錄下所有的某種類型文章進(jìn)行壓縮（例如WORD文檔、MP3等）。如果使用手工，則數(shù)量少的時(shí)候還可以。如果多的話，則不勝其煩2012-03-03
注冊(cè)表-批處理-VBS之間的相互結(jié)合應(yīng)用
注冊(cè)表-批處理-VBS之間的相互結(jié)合應(yīng)用...2007-10-10
VBS教程：對(duì)象-Drive 對(duì)象...2006-11-11