Board logo

标题: [特效代码] 求助定时探测外网IP修改IP上传到FTP的批处理 [打印本页]

作者: 穆德顺    时间: 2020-5-11 00:22     标题: 求助定时探测外网IP修改IP上传到FTP的批处理

探测到的地址会保存到IP.TXT文件 内容不能修改.  要求把TXT里的内容 只需要改其中的IP 比如: 刚回到家夯实大家好 中间是  ip地址xxx.xxx.xxx.xxx   到后面还有:恭喜发财321321等内容。 只改变中间的IP地址
  中间的IP地址 会随着更新而变化。   联系地址 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://www.bathome.net/) Powered by Discuz! 7.2