探测到的地址会保存到ＩＰ．ＴＸＴ文件 内容不能修改． 要求把ＴＸＴ里的内容 只需要改其中的ＩＰ 比如： 刚回到家夯实大家好 中间是 ｉｐ地址xxx.xxx.xxx.xxx 到后面还有：恭喜发财３２１３２１等内容。 只改变中间的ＩＰ地址
中间的ＩＰ地址 会随着更新而变化。 联系地址 mudeshun@163.com- @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.bathome.net/s/ip.php")
- 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
| 
发表于 2020-5-11 00:22
|