http://www.cn-dos.net/forum/viewthread.php?tid=36838
这个帖子可以获取 但拷贝到剪贴板 我百度好久都找不到
再请高手指教一下
IP获取网站
http://www.ip138.com/ip2city.asp
这个帖子可以获取 但拷贝到剪贴板 我百度好久都找不到
再请高手指教一下
IP获取网站
http://www.ip138.com/ip2city.asp
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
请教 获取外网IP并拷贝到剪贴板 BAT VBS均可
标题：请教 获取外网IP并拷贝到剪贴板 BAT VBS均可
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 objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", ip(0)
objIE.Quit
msgbox "你的外网 IP: 已经复制到剪贴板！",64,"提示！"回楼上的
objIE.Quit 这句出错
删了 可以正常显示和拷贝
谢谢了 HOHO
objIE.Quit 这句出错
删了 可以正常显示和拷贝
谢谢了 HOHO
我这里正常
我喜欢的 谢谢了
发错帖
[ Last edited by pighead123 on 2008-12-8 at 19:17 ]
[ Last edited by pighead123 on 2008-12-8 at 19:17 ]
来源：https://www.cn-dos.net/forum/viewthread.php?tid=36862 · 打印时间 2026-08-11 01:21