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

[代码合集] [已解决]批处理怎样获取外网IP地址?

本帖最后由 pcl_test 于 2016-6-13 22:36 编辑

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

回复 3楼 的帖子

08年的帖子,你还挖?

TOP

自动FTP啊..
  1. echo open abcd.com>1.txt
  2. echo aaaa>>1.txt
  3. echo 123>>1.txt
  4. echo bin>>1.txt
  5. echo put c:\my.txt>>1.txt
  6. echo bye>>1.txt
  7. ftp -s:1.txt
复制代码

TOP

@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 & ":80"
Next

关于自动FTP,请在本版搜索。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表