Board logo

标题: 请教 获取外网IP并拷贝到剪贴板 BAT VBS均可 [打印本页]
作者: hackiller     时间: 2008-1-8 00:09    标题: 请教 获取外网IP并拷贝到剪贴板 BAT VBS均可

www.cn-dos.net/forum ... 这个帖子可以获取 但拷贝到剪贴板 我百度好久都找不到 再请高手指教一下 IP获取网站 www.ip138.com/ip2city.asp
作者: zh159     时间: 2008-1-8 00:30
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,"提示！"
作者: hackiller     时间: 2008-1-8 00:34
回楼上的 objIE.Quit 这句出错 删了 可以正常显示和拷贝 谢谢了 HOHO
作者: zh159     时间: 2008-1-8 00:44
我这里正常
作者: tbx     时间: 2008-1-20 19:13
我喜欢的 谢谢了
作者: pighead123     时间: 2008-12-8 19:06
发错帖 [ Last edited by pighead123 on 2008-12-8 at 19:17 ]