找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 27431|回复: 9

[其他] 批处理如何获取外网IP并保存到txt文本文件里?

[复制链接]
发表于 2016-6-13 21:46:36 | 显示全部楼层 |阅读模式
本帖最后由 pcl_test 于 2016-6-13 22:00 编辑

我的思路是用批处理在后台访问网址http://www.bathome.net/s/ip.php,再获取网页源码,用正则过滤出IP地址。
但是不知道如何实现

评分

参与人数 1PB -2 收起 理由
pcl_test -2 发帖前先使用论坛搜索

查看全部评分

发表于 2016-6-13 21:50:33 | 显示全部楼层
 楼主| 发表于 2016-6-13 22:20:52 | 显示全部楼层
谢谢,之前也看到过这几个帖子,因为基础太差,尝试运行后没有生成IP就放弃了,这次再看一遍发现是获取IP的网址失效了,修改一下就好了。
 楼主| 发表于 2016-6-13 22:21:11 | 显示全部楼层
  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.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
复制代码
发表于 2016-6-13 22:39:39 | 显示全部楼层
本帖最后由 pcl_test 于 2016-6-13 23:27 编辑
  1. mshta http://bathome.net/s/hta/ web('http://www.bathome.net/s/ip.php')>ip.txt
复制代码
  1. mshta http://bathome.net/s/hta/ web('http://myip.dnsomatic.com')>ip.txt
复制代码
发表于 2016-6-13 23:00:03 | 显示全部楼层
本帖最后由 pcl_test 于 2016-6-14 19:35 编辑
  1. mshta http://bathome.net/s/hta/ "web('http://1212.ip138.com/ic.asp').match(/(\d+\.){3}\d+/)[0]"&pause
复制代码
  1. mshta http://bathome.net/s/hta/ "web('http://ip.chinaz.com/getip.aspx').match(/(\d+\.){3}\d+/)[0]"&pause
复制代码
  1. mshta http://bathome.net/s/hta/ "web(web('http://www.ip138.com').match(/<iframe src=""([^""]+)""/)[1]).match(/<center>([^<]+)/)[1]"&pause
复制代码
发表于 2016-6-14 06:45:47 | 显示全部楼层
ip138的网址经常失效。
发表于 2016-6-14 06:49:35 | 显示全部楼层
curl ip.6655.com/ip.aspx
发表于 2016-6-14 07:20:44 | 显示全部楼层
 楼主| 发表于 2016-6-14 10:30:31 | 显示全部楼层
版主的代码好精简,膜拜!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 13:15 , Processed in 0.030630 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表