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

[网络连接] 批处理怎样获取本地IP和外网IP

本帖最后由 pcl_test 于 2016-7-11 16:40 编辑

想双击打开批处理的时候,黑窗口显示:内网IP:***
                                                      外网IP:***
1

评分人数

    • pcl_test: 发帖前先使用论坛搜索PB -6
学习计算机技术

回复 4# gd6570


在家里测试的还是在公司测试的?
浏览器打开网页的时候需要设代理吗?
浏览器能正常打开 http://city.ip138.com/ip2city.asp 吗?

TOP

回复 2# GNU


    外网还是没法获取啊
学习计算机技术

TOP

本帖最后由 codegay 于 2016-7-12 04:45 编辑

回复 2# GNU


    ip138的接口不稳定。经常变。
换个别的吧。我刚打开还先显示百度的什么云加速。
  1. 浏览器安全检查中… ip138.com.
  2. 还剩 5 秒…
  3. 百度云加速防护中
复制代码
ip.6655.com/ip.aspx
这个接口应该稳定的。软媒自己的软件也是用这个接口。
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

本帖最后由 pcl_test 于 2017-6-15 19:32 编辑
  1. @echo off
  2. :InIP
  3. for /f "tokens=4" %%i in ('route print ^| findstr 0.0.0.0.*0.0.0.0') do (
  4.     set InternalIP=%%i
  5.     goto :ExIP
  6. )
  7. :ExIP
  8. rem set "URL=http://city.ip138.com/ip2city.asp"
  9. set "URL=http://ip.6655.com/ip.aspx"
  10. >%temp%\download.vbs echo Set objDOM = WScript.GetObject("%URL%")
  11. >>%temp%\download.vbs echo Do Until objDOM.ReadyState = "complete"
  12. >>%temp%\download.vbs echo WScript.Sleep 100
  13. >>%temp%\download.vbs echo Loop
  14. >>%temp%\download.vbs echo WScript.Echo objDOM.DocumentElement.OuterText
  15. for /f "delims=" %%i in ('cscript //nologo //e:vbscript %temp%\download.vbs') do (
  16.     set "PublicIP=%%i"
  17. )
  18. echo 内网IP:%InternalIP%
  19. echo 外网IP:%PublicIP%
  20. pause
复制代码

TOP

返回列表