VBS 获取外网IP的实现代码

  次阅读 来源:互联网(转载协议) 2016-01-26 10:08 我要评论(0)

这篇文章主要介绍了用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.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

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 汤晓鸥:人工智能的中国式文艺复兴

    汤晓鸥:人工智能的中国式文艺复兴

  • 区块链最近太火,但A股多家公司明确表态不考虑涉足

    区块链最近太火,但A股多家公司明确表态不考虑涉足

  • 全球陷入"区块链狂热"潮,大规模应用还需等待

    全球陷入"区块链狂热"潮,大规模应用还需等待

  • 马云的新零售?张近东的智慧零售?抑或是刘强东的第四次零售革命?

    马云的新零售?张近东的智慧零售?抑或是刘强东的第四次零售革命?

网友点评网友点评
阅读推荐阅读推荐

算法 任何一个入门的软件开发人员都会听到这句话:算法是软件的灵魂!近年来大火的机器学习即是在算法在人工智能上的集中体现。今日头条通...

据《日本经济新闻》报道,日本东京大学教授稻叶雅幸等人开发出再现日本人骨骼肌肉构造的机器人。机器人各部位的肌肉和骨骼长度与日本人的平...

以奥黛丽-赫本为原型打造的人形机器人索菲娅首次拜访了印度。索菲娅是世界上首位获得公民身份的机器人,她在12月30日出现在了印度理工学院...

在查获现场,代售点电脑旁的一台机器人通过敲击电脑键盘抢票。 广州日报惠州讯 (全媒体记者秦仲阳 通讯员张中铃摄影报道)2018年春运售票已...