
CODE: [Copy to clipboard]@echo off
echo.&echo 稍候。。。&echo.
(Echo Set oDOM = WScript.GetObject^(WScript.Arguments^(0^)^)
Echo Do until oDOM.readyState = "complete"
Echo WScript.sleep 200
Echo Loop
Echo WScript.Echo oDOM.documentElement.outerText)>"%windir%\temp\webget.vbs"
cscript //NoLogo /e:vbscript "%windir%\temp\webget.vbs" "http://www.ikaka.com/ip/" | find "来自"
Del/q/f "%windir%\temp\webget.vbs" >nul 2>nul
pause>nul

CODE: [Copy to clipboard]@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
del Getip.vbs
pause
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |