[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. ::获取本机外网IP、归属地并发送提醒!------------------------------------------------------------------
  3. ::预设变量值,探测失败时用
  4. set ip=
  5. ::生成VBS脚本到临时目录
  6. (Echo Set oDOM = WScript.GetObject^(WScript.Arguments^(0^)^)&Echo Do until oDOM.readyState = "complete"&Echo WScript.sleep 200&Echo Loop&Echo WScript.Echo oDOM.documentElement.outerText)>"%temp%\webget.vbs"
  7. ::执行IP探测并记录到TXT,实质上是VBS脚本访问网络,返回文本。该功能可移做他用。
  8. for /f "tokens=2 delims=,(" %%a in ('cscript //NoLogo /e:vbscript "%temp%\webget.vbs" "http://fw.qq.com/ipaddress"') do (
  9.     set "ip=%%a"
  10. )
  11. set "ip=%ip:~1,-1%"
  12. echo,%ip%
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 3楼 的帖子

双引号从左到右,依次配对,你再数数?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 5楼 的帖子

推荐看看这个:批处理for命令从入门到精通以及配套练习题
http://bbs.bathome.net/thread-2189-1-1.html
http://bbs.bathome.net/thread-2336-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表