VBS 获取外网IP的实现代码_vbs

复制代码 代码如下:

set oDOM = WScript.GetObject("http://ipseeker.cn//")
flag=0
for i=1 to 10
   if oDOM.readyState = "complete" then
      flag=1
      exit for
   end if
   WScript.sleep 500
next
if flag=0 then
    WScript.Echo "timeout ..."
    wscript.quit
end if
s=oDOM.documentElement.innerText
Set Re = New RegExp
Re.Pattern="(\d+)\.(\d+)\.(\d+)\.(\d+)"
for each r in Re.Execute(s)
     res=r
     exit for
Next
WScript.Echo "IPAddress: " & res

原文:http://www.enun.net/?p=1188

时间: 2024-10-25 17:57:34

VBS 获取外网IP的实现代码_vbs的相关文章

VBS 获取外网IP的实现代码

这篇文章主要介绍了用vbs获取外网的ip地址,通过用vbs访问ip显示页面的返回值实现,需要的朋友可以参考下   复制代码 代码如下: set oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 for i=1 to 10    if oDOM.readyState = "complete" then       flag=1       exit for    end if    WScript.slee

VBS获取外网IP地址并发送到指定邮箱的代码

这篇文章的获取网站不同,实现代码也不错,喜欢的朋友可以测试下   复制代码 代码如下: Function GetIPAddress()  Dim Flag, Source  Set GetIPObj = WScript.GetObject("http://ipseeker.cn//")  Flag = 0  For i=1 To 10     If GetIPObj.readyState = "complete" Then     Flag=1     Exit F

VBS获取外网IP地址并发送到指定邮箱的代码_vbs

复制代码 代码如下: Function GetIPAddress() Dim Flag, Source Set GetIPObj = WScript.GetObject("http://ipseeker.cn//") Flag = 0 For i=1 To 10    If GetIPObj.readyState = "complete" Then     Flag=1    Exit For    End If    WScript.Sleep 500 Next

求助各位,如何获取外网Ip的工具或者代码

问题描述 主要是这样,就是原来用的ip138第三方工具,查的地址是http://20140507.ip138.com/ic.asp,打开这个页面直接显示Ip地址,而不是www.ip138.com/给的连接ACTION="http://www.ip138.com/ips1388.asp",这个连接直接打开了个网页,我要的是直接打开显示纯的Ip地址,这样手机端那边直接通过这个方法,比如手机端:stringgetip=http://20140507.ip138.com/ic.asp,有没有稳

C和MFC巧妙获取外网IP的两种实现方法_C 语言

本文以C与MFC的两个实例详述了取外网IP的两种实现方法,具体实现代码如下: MFC语言实现获取外网IP: # include <windows.h> # include <urlmon.h> # pragma comment(lib,"URLMON.lib") void main() { URLDownloadToFile(NULL,"http://www.ip138.com/ip2city.asp","ip.txt",

获取外网IP并发送到指定的邮箱的脚本_autoit

编译后的exe文件,方便大家直接使用 下载地址 http://www.jb51.net/softs/44627.html 配置文件内容如下: 复制代码 代码如下: 配置文件代码 [收件人] 收件地址= 邮件标题= [发送人] 邮箱= 密码= 核心代码: 复制代码 代码如下: #region AutoIt3Wrapper 预编译参数(常用参数) #AutoIt3Wrapper_Icon=D:\ico\3444\2222.ico ;图标,支持EXE,DLL,ICO #AutoIt3Wrapper_O

python获取外网ip地址的方法总结

  本文实例总结了python获取外网ip地址的方法.分享给大家供大家参考.具体如下: 一.利用脚本引擎库直接获取 ? 1 2 3 4 5 6 7 import console; import web.script import inet.http; var jsVm = web.script("JavaScript") jsVm.AddCode( inet.http().get("http://fw.qq.com/ipaddress") ) var ipAddr

关于nat转换,内网电脑获取外网ip的问题

问题描述 关于nat转换,内网电脑获取外网ip的问题 先简单描述一下问题,有一台电脑G,具有A,B两张网卡,A网卡负责拨号上网,具有外网ip 然后B网卡具有一个内网ip,192.168.0.1.其他电脑在192.168.0.1这个内网之下.通过nat转换进行 上网.今天突然想到这样一个问题,内网里的电脑,比如说192.168.0.57这台电脑,有没有什么办法获取到G电脑的外网ip? 解决方案 访问www.ip138.com,可以返回你的外网ip. 解决方案二: 需要找一个查询ip地址的网站,然后

获取外网IP并发送到指定邮箱的vbs代码[已测]_vbs

复制代码 代码如下: ''getIP set http=createobject("Microsoft.XMLHTTP") ipp="http://www.ip138.com/ip2city.asp" http.open "get",ipp,false http.send ss=bytes2BSTR(Http.responsebody) intStrA = InStr(1,ss,"[",1)+1 sss=mid(ss,intS