第一种方法:
@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
如对本文有疑问,
点击进行留言回复!!
相关文章:
-
-
批处理ren重命名的方式
批处理之ren命令-可批量修改文件名1.批处理批量修改文件后缀名(假设我需要把一个文件夹中的很多txt文件改为sql文件): 1)在需要被处理的文件的文件夹里先...
[阅读全文]
-
-
-
-
-
-
-
-
-
网友评论