[特效代码] 求助定时探测外网IP修改IP上传到FTP的批处理

穆德顺

探测到的地址会保存到ＩＰ．ＴＸＴ文件　内容不能修改．　　要求把ＴＸＴ里的内容　只需要改其中的ＩＰ　比如：　刚回到家夯实大家好　中间是　　ｉｐ地址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
复制代码