中国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均可使用 LLM 解释/回答一下

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

2008-1-8 00:09

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

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

『第 2 楼』: 使用 LLM 解释/回答一下

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

2008-1-8 00:30

查看资料发短消息网志

编辑帖子回复引用回复

hackiller
初级用户

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

『第 3 楼』: 使用 LLM 解释/回答一下

回楼上的
objIE.Quit 这句出错
删了可以正常显示和拷贝
谢谢了 HOHO

2008-1-8 00:34

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

zh159
金牌会员

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

『第 4 楼』: 使用 LLM 解释/回答一下

我这里正常

2008-1-8 00:44

查看资料发短消息网志

编辑帖子回复引用回复

tbx
新手上路

积分 11
发帖 6
注册 2007-10-14
状态离线

『第 5 楼』: 使用 LLM 解释/回答一下

我喜欢的谢谢了

2008-1-20 19:13

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

pighead123
初级用户

积分 42
发帖 23
注册 2006-2-13
状态离线

『第 6 楼』: 使用 LLM 解释/回答一下

发错帖

Last edited by pighead123 on 2008-12-8 at 19:17 ]

此帖被 -7 点积分

点击查看详情

我是allyesno 帐号忘记密码了妈的

2008-12-8 19:06

查看资料发送邮件发短消息网志

编辑帖子回复引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: