Board logo

标题: [特效代码] 求助定时探测外网IP修改IP上传到FTP的批处理 [打印本页]
作者: 穆德顺    时间: 2020-5-11 00:22     标题: 求助定时探测外网IP修改IP上传到FTP的批处理

探测到的地址会保存到ＩＰ．ＴＸＴ文件　内容不能修改．　　要求把ＴＸＴ里的内容　只需要改其中的ＩＰ　比如：　刚回到家夯实大家好　中间是　　ｉｐ地址xxx.xxx.xxx.xxx　　　到后面还有：恭喜发财３２１３２１等内容。　只改变中间的ＩＰ地址
　　中间的ＩＰ地址　会随着更新而变化。　　　联系地址　mudeshun@163.com
  1. @echo off 

  2. <"%~f0" more +5 >tmp.vbs

  3. cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt

  4. echo >nul && del tmp.vbs

  5. goto:eof

  6. set oDOM = WScript.GetObject("http://www.bathome.net/s/ip.php")

  7. do until oDOM.readyState = "complete"

  8. WScript.sleep 200

  9. Loop

  10. s=oDOM.documentElement.innerText

  11. set re = New RegExp

  12. re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"

  13. For Each m in re.Execute(s)

  14. WScript.Echo m

  15. Next
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2