本帖最后由 pcl_test 于 2016-6-13 22:36 编辑
本人在网上收集了一个获取外网ip的批处理如下:- @echo off
- <"%~f0" more +5 >tmp.vbs
- cscript //NoLogo /e:vbscript tmp.vbs %1>my.txt
- echo >nul && del tmp.vbs
- goto:eof
- set oDOM = WScript.GetObject("http://www.ip138.com/ip2city.asp")
- 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
复制代码 运行后会生成一个my.txt文档 格式是xxxx.xxxx.xxxx.xxxx
我想让它生成后的内容格式是 http://xxxx.xxxx.xxxx.xxxx:80
请问该批处理怎样修改,,,,,谢谢
还有能否把生成后的my.txt,自动上传到(FTP:abcd.com 账号:aaaa 密码:123 ) 的my的根目录下
望高人指点 谢谢 |