国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > BAT > 正文

批處理獲取IP生成TXT文本的bat代碼

2020-07-26 20:22:23
字體:
來源:轉載
供稿:網友
第一種方法:
復制代碼 代碼如下:

@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
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 辽中县| 开江县| 胶南市| 雷山县| 天等县| 莱芜市| 武隆县| 固原市| 麦盖提县| 天津市| 永新县| 宁海县| 锡林浩特市| 恩平市| 外汇| 龙口市| 大英县| 漠河县| 六盘水市| 福贡县| 方城县| 山阳县| 潢川县| 丽江市| 陵川县| 富裕县| 三门县| 来凤县| 眉山市| 湄潭县| 大邑县| 利辛县| 鄢陵县| 会昌县| 高邑县| 宜黄县| 宣恩县| 临泉县| 镇原县| 乌兰浩特市| 大丰市|