第一种方法:


复制代码 代码如下:

@echo off

<“%~f0” more +5 >tmp.vbs

cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt

echo >nul && del tmp.vbs

goto:eof

set oDOM = WScript.GetObject(“http://www.duosc.com/ip.aspx”)

do until oDOM.readyState = “complete”

WScript.sleep 200

Loop

s=oDOM.documentElement.innerText

set re = New RegExp

re.Pattern=”(\d+)\.(\d+)\.(\d+)\.(\d+)”

For Each m in re.Execute(s)

WScript.Echo m

Next

第二种方法:都是利用vbs代码


复制代码 代码如下:

@echo off

echo 正在连接，请稍等…

>Getip.vbs echo Set oDOM=WScript.GetObject(“http://www.ip138.com/ip2city.asp”):Do Until oDOM.readyState=”complete”:WScript.sleep 200:Loop:WScript.echo oDOM.documentElement.outerText:Set oDOM=nothing

for /f “tokens=2,* delims=：” %%i in (‘”cscript //nologo Getip.vbs”‘) do echo 你的IP地址是: %%i %%j>ip.txt

del Getip.vbs


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。