中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 请教获取外网IP并拷贝到剪贴板 BAT VBS均可

作者:

标题: 请教获取外网IP并拷贝到剪贴板 BAT VBS均可

上一主题 | 下一主题

hackiller
初级用户

积分 39
发帖 16
注册 2006-12-16
状态离线

『楼主』: 请教获取外网IP并拷贝到剪贴板 BAT VBS均可

www.cn-dos.net/forum ... 这个帖子可以获取但拷贝到剪贴板我百度好久都找不到再请高手指教一下 IP获取网站 www.ip138.com/ip2city.asp

2008-1-8 00:09

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 2 楼』:

VBS

Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")
Do Until oDOM.readyState="complete"
WScript.sleep 200
Loop
str = Split(oDOM.documentElement.outerText,"[")
Set oDOM=nothing
ip = Split(str(1),"]")

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", ip(0)
objIE.Quit
msgbox "你的外网 IP: [" & ip(0) & "] 已经复制到剪贴板！",64,"提示！"