中国DOS联盟论坛

中国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均可

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 楼』:  

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




2008-1-8 00:30
查看资料  发短消息 网志   编辑帖子  回复  引用回复
hackiller
初级用户





积分 39
发帖 16
注册 2006-12-16
状态 离线
『第 3 楼』:  

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

2008-1-8 00:34
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 4 楼』:  

我这里正常



2008-1-8 00:44
查看资料  发短消息 网志   编辑帖子  回复  引用回复
tbx
新手上路





积分 11
发帖 6
注册 2007-10-14
状态 离线
『第 5 楼』:  

我喜欢的  谢谢了

2008-1-20 19:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
pighead123
初级用户





积分 42
发帖 23
注册 2006-2-13
状态 离线
『第 6 楼』:  

发错帖

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

   此帖被 -7 点积分      点击查看详情   
评分人:【 yishanju 分数: -7  时间:2008-12-10 11:35






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

2008-12-8 19:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: