您现在的位置是：网站首页> 编程资料编程资料
批处理获取IP生成TXT文本的bat代码_DOS/BAT_
2023-05-25
309人已围观
简介 批处理获取IP生成TXT文本的bat代码_DOS/BAT_
第一种方法:
@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
复制代码 代码如下:
@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
您可能感兴趣的文章:
相关内容
- 批处理发送文件夹的快捷方式到桌面的代码_DOS/BAT_
- 批处理程序删除自身 bat批处理_DOS/BAT_
- css js 图片压缩批处理命令(基于YUI Compressor)_DOS/BAT_
- 右键添加打开MS-DOS的批处理_DOS/BAT_
- MaxDOS V6 系统备份查看器 批处理代码_DOS/BAT_
- 防arp欺骗的批处理 自动绑定网关的批处理_DOS/BAT_
- 清除3389远程桌面连接记录的批处理_DOS/BAT_
- 记录每次进入3389远程桌面IP的批处理bat_DOS/BAT_
- 批处理中直接执行vbs的方法_DOS/BAT_
- SunTB编写IP地址设置切换批处理_DOS/BAT_
