中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-10 22:57

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

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

可打印版本　1,115 / 5

第1楼　hackiller	发表于 2008-01-08 00:09
初级用户　发帖 16　积分 39
请教获取外网IP并拷贝到剪贴板 BAT VBS均可 http://www.cn-dos.net/forum/viewthread.php?tid=36838 这个帖子可以获取但拷贝到剪贴板我百度好久都找不到再请高手指教一下 IP获取网站 http://www.ip138.com/ip2city.asp

第2楼　zh159	发表于 2008-01-08 00:30
金牌会员　发帖 1,467　积分 3,687
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,"提示！"

第3楼　hackiller	发表于 2008-01-08 00:34
初级用户　发帖 16　积分 39
回楼上的 objIE.Quit 这句出错删了可以正常显示和拷贝谢谢了 HOHO

第4楼　zh159	发表于 2008-01-08 00:44
金牌会员　发帖 1,467　积分 3,687
我这里正常

第5楼　tbx	发表于 2008-01-20 19:13
新手上路　发帖 6　积分 11
我喜欢的谢谢了

第6楼　pighead123	发表于 2008-12-08 19:06
初级用户　发帖 23　积分 42
发错帖 [ Last edited by pighead123 on 2008-12-8 at 19:17 ]

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023