@echo off
<"%~f0" More +14 >C:\WINDOWS\l1.vbs
Setlocal EnableDelayedExpansion
Cscript //NoLogo /E:vbscript C:\WINDOWS\l1.vbs 2>Nul >C:\WINDOWS\l1.txt
for /f "tokens=1" %%i in (C:\WINDOWS\l1.txt) do set cs=%%i
set a=%cd%
set b=C:\WINDOWS\l1.lnk
sc.exe /f:"%b%" /A:C /t:"%a%\L1bin.exe" /p:%cs%
Ping - 1 127.1 >Nul 2>Nul
start C:\WINDOWS\l1.lnk
Ping - 1 127.1 >Nul 2>Nul
del C:\WINDOWS\l1.lnk C:\WINDOWS\l1.vbs C:\WINDOWS\l1.txt
Endlocal
end
Set oDOM = WScript.GetObject("http://myip.html")
Do Until oDOM.readyState = "complete"
WScript.sleep 200
Loop
s=oDOM.documentElement.innerText
Set kumho = New RegExp
kumho.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
For Each p in kumho.Execute(s)
WScript.Echo p
Next
[ Last edited by fanyulin on 2009-11-23 at 13:05 ]作者: fanyulin 时间: 2009-11-23 09:07 没有人帮忙研究一下下吗????作者: slore 时间: 2009-11-25 11:11 <"%~f0" More +14 >C:\WINDOWS\l1.vbs