
CODE: [Copy to clipboard]Set objXML = WScript.GetObject("http://www.ip138.com")
While objXML.readyState = "loading"
WScript.Sleep 100
Wend
Set coll = objXML.getElementsByTagName("td")
WScript.Echo coll(9).innertext
Set objXML = Nothing
CODE: [Copy to clipboard]大家测试@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/")
do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.all(51).innerText
WScript.Echo Right(s,Len(s)-8)
CODE: [Copy to clipboard]注意delims=后面的冒号须在中文输入法下输入,否则得不到正确结果。for /f "delims=: tokens=2" %%i in ('cscript //nologo getIP.vbs') do set "ip=%%i"
| Quote: | |
|
附件 1:3.JPG (2006-11-9 11:42, 5.79 K, 下载附件所需积分 1 点 ,下载次数: 9)
![]()
CODE: [Copy to clipboard]@echo off
<"%~f0" more +5 >tmp.vbs
cscript //NoLogo /e:vbscript tmp.vbs %1
pause && del tmp.vbs
goto:eof
set oDOM = WScript.GetObject("http://www.ip138.com/")
do until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.all(51).innerText
WScript.Echo Right(s,Len(s)-8)
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |