[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[特效代码] 求助定时探测外网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
复制代码
学徒工

返回列表