中国DOS联盟

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

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

游客注册登录会员网志搜索命令提示符 Bash 上传统计

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

欢迎新会员 13383789659　 RSS
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

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

楼主 请教获取外网IP并拷贝到剪贴板 BAT VBS均可发表于 2008-01-08 00:09　·　中国湖南株洲电信

hackiller

初级用户

★

积分 39
发帖 16
注册 2006-12-16 08:36
19年会员
UID 73701
性别男

状态离线

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

第 2 楼发表于 2008-01-08 00:30　·　中国广西玉林博白县电信

zh159

金牌会员

★★★★

积分 3,687
发帖 1,467
注册 2005-08-08 12:00
21年会员
UID 44210

状态离线

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,"提示！"