返回列表 发帖
alpha

Rank: 4

帖子
87 
积分
311 
技术
0  
捐助
0  
注册时间
2009-7-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2010-11-30 21:53 | 只看该作者

[问题求助] VBS如何获取外网IP/公网IP？

本帖最后由 pcl_test 于 2016-9-6 00:18 编辑

要实现的功能：运行vbs后，检测外网IP，然后用msgbox提示：“您的外网IP为：***.***.***.***”，然后将IP地址复制到粘帖版中！

[ 本帖最后由 alpha 于 2010-12-20 23:51 编辑 ]
收藏 分享

alpha

Rank: 4

帖子
87 
积分
311 
技术
0  
捐助
0  
注册时间
2009-7-7 
2楼
发表于 2010-12-1 21:19 | 只看该作者
没人知道么？？？？？

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14981 
积分
46194 
技术
859  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2010-12-1 22:32 | 只看该作者
你是不会获取外网IP？还是不会复制到粘贴板？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

alpha

Rank: 4

帖子
87 
积分
311 
技术
0  
捐助
0  
注册时间
2009-7-7 
4楼
发表于 2010-12-2 21:30 | 只看该作者
本帖最后由 pcl_test 于 2017-6-21 21:31 编辑 
@echo off
(echo Set oDOM=WScript.GetObject("http://ip.chinaz.com/getip.aspx"^)
echo Do Until oDOM.readyState="complete"
echo WScript.sleep 10
echo Loop
echo WScript.echo split(oDOM.documentElement.outerText,"'"^)(1^))>Getip.vbs
for /f "delims=" %%i in ('cscript //nologo Getip.vbs') do echo,您的外网IP为:%%i&del Getip.vbs&pause&exitCOPY
这是我目前的bat代码，如何只将IP地址复制到粘帖版中？并且msgbox提示。（最好能够简化一下代码）

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14981 
积分
46194 
技术
859  
捐助
745  
注册时间
2008-6-9 
5楼
发表于 2010-12-3 00:02 | 只看该作者
批处理、VBS剪贴板操作专题
http://bbs.bathome.net/thread-8329-1-1.html
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

alpha

Rank: 4

帖子
87 
积分
311 
技术
0  
捐助
0  
注册时间
2009-7-7 
6楼
发表于 2010-12-20 23:50 | 只看该作者
本帖最后由 pcl_test 于 2017-6-21 21:14 编辑

这是我目前的vbs脚本：
Set oDOM=WScript.GetObject("http://1212.ip138.com/ic.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)
msgbox "IP: [" & ip(0) & "] 已经复制到剪贴板！",64,"OK！"COPY
请问如何关闭上述代码中打开IE的功能？

TOP

alpha

Rank: 4

帖子
87 
积分
311 
技术
0  
捐助
0  
注册时间
2009-7-7 
7楼
发表于 2010-12-22 21:02 | 只看该作者
没人知道么？顶起来！

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
8楼
发表于 2010-12-23 23:45 | 只看该作者
5楼帖子中的链接不是给了很多方法吗？
ip="127.0.0.1"
Set ws = CreateObject("WScript.Shell")
ws.run "mshta ""javascript:clipboardData.setData('text', '" & ip & "');close();""", 0, trueCOPY

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
9楼
发表于 2016-9-6 00:17 | 只看该作者
本帖最后由 pcl_test 于 2017-6-15 19:39 编辑 
Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=false
ie.navigate "http://ip.cn/"
Do
WSH.Sleep 500
Loop Until ie.readyState=4
str = replace(ie.Document.getElementByID("result").innertext,vbCrLf," ")
Set reg = New RegExp
reg.Pattern = "(\d+\.){3}\d+"
ip = reg.Execute(str)(0)
CreateObject("wscript.Shell").run "mshta vbscript:ClipBoardData.setData(""Text"","""&ip&""")(window.close)", 0, true
WSH.echo "IP: [" & ip & "] 已复制到剪贴板！"
ie.quitCOPY

TOP

返回列表