批处理之家 - Powered by Discuz! Board

标题: [其他] 批处理如何获取外网IP并保存到txt文本文件里？ [打印本页]

作者: wei711 时间: 2016-6-13 21:46 标题: 批处理如何获取外网IP并保存到txt文本文件里？

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

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

作者: gawk 时间: 2016-6-13 21:50

可以参考这几个帖子：
http://bbs.bathome.net/thread-2870-1-1.html
http://bbs.bathome.net/thread-4978-1-1.html
http://bbs.bathome.net/thread-546-1-1.html

作者: wei711 时间: 2016-6-13 22:20

谢谢，之前也看到过这几个帖子，因为基础太差，尝试运行后没有生成IP就放弃了，这次再看一遍发现是获取IP的网址失效了，修改一下就好了。

作者: wei711 时间: 2016-6-13 22:21

@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.bathome.net/s/ip.php")
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
复制代码

作者: pcl_test 时间: 2016-6-13 22:39

本帖最后由 pcl_test 于 2016-6-13 23:27 编辑

mshta http://bathome.net/s/hta/ web('http://www.bathome.net/s/ip.php')>ip.txt
复制代码

mshta http://bathome.net/s/hta/ web('http://myip.dnsomatic.com')>ip.txt
复制代码

作者: pcl_test 时间: 2016-6-13 23:00

本帖最后由 pcl_test 于 2016-6-14 19:35 编辑

mshta http://bathome.net/s/hta/ "web('http://1212.ip138.com/ic.asp').match(/(\d+\.){3}\d+/)[0]"&pause
复制代码

mshta http://bathome.net/s/hta/ "web('http://ip.chinaz.com/getip.aspx').match(/(\d+\.){3}\d+/)[0]"&pause
复制代码

mshta http://bathome.net/s/hta/ "web(web('http://www.ip138.com').match(/<iframe src=""([^""]+)""/)[1]).match(/<center>([^<]+)/)[1]"&pause
复制代码

作者: codegay 时间: 2016-6-14 06:45

ip138的网址经常失效。

作者: codegay 时间: 2016-6-14 06:49

curl ip.6655.com/ip.aspx

作者: codegay 时间: 2016-6-14 07:20

http://ip.cn/

作者: wei711 时间: 2016-6-14 10:30

版主的代码好精简，膜拜！

欢迎光临批处理之家 (http://bathome.net./)