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

Rank: 1

帖子
5 
积分
15 
技术
0  
捐助
0  
注册时间
2016-6-13 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2016-6-13 21:46 | 只看该作者

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

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

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

评分人数

    • pcl_test: 发帖前先使用论坛搜索PB -2
收藏 分享

wei711

Rank: 1

帖子
5 
积分
15 
技术
0  
捐助
0  
注册时间
2016-6-13 
10楼
发表于 2016-6-14 10:30 | 只看该作者
版主的代码好精简，膜拜！

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
9楼
发表于 2016-6-14 07:20 | 只看该作者
http://ip.cn/
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
8楼
发表于 2016-6-14 06:49 | 只看该作者
curl ip.6655.com/ip.aspx
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

codegay

Rank: 6Rank: 6

帖子
1266 
积分
1775 
技术
162  
捐助
0  
注册时间
2015-12-12 
7楼
发表于 2016-6-14 06:45 | 只看该作者
ip138的网址经常失效。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
6楼
发表于 2016-6-13 23:00 | 只看该作者
本帖最后由 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
复制代码

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
5楼
发表于 2016-6-13 22: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
复制代码

TOP

wei711

Rank: 1

帖子
5 
积分
15 
技术
0  
捐助
0  
注册时间
2016-6-13 
4楼
发表于 2016-6-13 22:21 | 只看该作者 
  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
复制代码

TOP

wei711

Rank: 1

帖子
5 
积分
15 
技术
0  
捐助
0  
注册时间
2016-6-13 
3楼
发表于 2016-6-13 22:20 | 只看该作者
谢谢，之前也看到过这几个帖子，因为基础太差，尝试运行后没有生成IP就放弃了，这次再看一遍发现是获取IP的网址失效了，修改一下就好了。

TOP

gawk

Rank: 8Rank: 8

帖子
1088 
积分
5421 
技术
98  
捐助
30  
注册时间
2011-10-9 
2楼
发表于 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
Talk is cheap. Show me the code.
没事不要瞎扯淡，有能耐就把代码贴出来给我看。

TOP

返回列表