中国DOS联盟论坛 - Powered by Discuz! Board

标题: 高速获取公网IP批处理 [打印本页]

作者: tvzml 时间: 2008-3-30 22:39 标题: 高速获取公网IP批处理

由于个人需要获取外网IP，在网上找到的获取www.ip138.com原代码方法已经失效，论坛提供的方法获取时间太长，实际应用不太理想，以下是我初学VBS写的，速度非常快，但是脚本没有简化，希望高手帮助优化下代码。

代码工作原理：
下载http://www.ip138.com/ip2city.asp，取“您的IP地址是：" 右13位保存到windows目录下 IP.TXT，显示方法是我这2条到这里学到的，利用<读取IP.TXT内容并显示，大家不要笑我菜，总有一天我会超过你的，最后得到%n% 就是外网IP地址值，这对我来说用途太大了。

至于大家说是不是原创，我认为没有所谓的原创，我们天生下来是不会VBS的，但是我们会调用代码为我们工作，只要实用有效就行了。

@echo off
echo On Error Resume next >checkip.vbs
echo Url="http://www.ip138.com/ip2city.asp" >>checkip.vbs
echo Set NP = Createobject("Microsoft.XMLHTTP") >>checkip.vbs
echo NP.Open "GET", url, False >>checkip.vbs
echo NP.Send >>checkip.vbs
echo Data=NP.responsebody >>checkip.vbs
echo Set NP = Nothing >>checkip.vbs
echo Data = bytes2BSTR(Data) >>checkip.vbs
echo Here = InstrRev(Data, "您的IP地址是：", -1,0) >>checkip.vbs
echo Data = Mid(Data,Here+9,13) >>checkip.vbs
echo Hers = InstrRev(data, "<",-1,0) >>checkip.vbs
echo Set ICEhack = CreateObject("InternetExplorer.Application") >>checkip.vbs
echo ICEhack.Navigate("about:blank") >>checkip.vbs
echo If Hers ^<^> 0 Then >>checkip.vbs
echo ICEhack.document.parentwindow.clipboardData.SetData "text", Mid(Data,1,Hers-1) >>checkip.vbs
echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>checkip.vbs
echo Set FSO = CreateObject("Scripting.FileSystemObject") >>checkip.vbs
echo Set SCF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(0),"ip.txt"),2,True) >>checkip.vbs
echo SCF.Write(Data) >>checkip.vbs
echo SCF.Close >>checkip.vbs
echo Else >>checkip.vbs
echo ICEhack.document.parentwindow.clipboardData.SetData "text", Data >>checkip.vbs
echo Set WshSHell = WScript.CreateObject("WScript.Shell") >>checkip.vbs
echo Set FSO = CreateObject("Scripting.FileSystemObject") >>checkip.vbs
echo Set SCF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(0),"ip.txt"),2,True) >>checkip.vbs
echo SCF.Write(Data) >>checkip.vbs
echo SCF.Close >>checkip.vbs
echo End If >>checkip.vbs
echo ICEhack.Quit >>checkip.vbs
echo fso.DeleteFile(WScript.ScriptName) >>checkip.vbs
echo Function bytes2BSTR(vIn) >>checkip.vbs
echo    strReturn = "" >>checkip.vbs
echo    For i = 1 To LenB(vIn) >>checkip.vbs
echo       ThisCharCode = AscB(MidB(vIn,i,1)) >>checkip.vbs
echo       If ThisCharCode ^< ^&H80 Then >>checkip.vbs
echo             strReturn = strReturn ^& Chr(ThisCharCode) >>checkip.vbs
echo       Else >>checkip.vbs
echo             NextCharCode = AscB(MidB(vIn,i+1,1)) >>checkip.vbs
echo             strReturn = strReturn ^& Chr(CLng(ThisCharCode) * ^&H100 + CInt(NextCharCode)) >>checkip.vbs
echo             i = i + 1 >>checkip.vbs
echo       End If >>checkip.vbs
echo    Next >>checkip.vbs
echo    bytes2BSTR = strReturn >>checkip.vbs
echo End Function >>checkip.vbs
checkip.vbs
set/p n=<%windir%\ip.txt&cls
echo 外网IP：%n%
pause>nul

[ Last edited by tvzml on 2008-3-30 at 10:57 PM ]

作者: tvzml 时间: 2008-3-30 22:41 标题: 高速获取公网IP批处理VBS代码

On Error Resume next
Url="http://www.ip138.com/ip2city.asp"
Set NP = Createobject("Microsoft.XMLHTTP")
NP.Open "GET", url, False
NP.Send
Data=NP.responsebody
Set NP = Nothing
Data = bytes2BSTR(Data)
Here = InstrRev(Data, "您的IP地址是：", -1,0)
Data = Mid(Data,Here+9,13)
Hers = InstrRev(data, "<",-1,0)
Set ICEhack = CreateObject("InternetExplorer.Application")
ICEhack.Navigate("about:blank")
If Hers <> 0 Then
ICEhack.document.parentwindow.clipboardData.SetData "text", Mid(Data,1,Hers-1)
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SCF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(0),"ip.txt"),2,True)
SCF.Write(Data)
SCF.Close
Else
ICEhack.document.parentwindow.clipboardData.SetData "text", Data
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SCF = FSO.OpenTextFile(FSO.BuildPath(FSO.GetSpecialFolder(0),"ip.txt"),2,True)
SCF.Write(Data)
SCF.Close
End If
ICEhack.Quit
fso.DeleteFile(WScript.ScriptName)
Function bytes2BSTR(vIn)
   strReturn = ""
   For i = 1 To LenB(vIn)
      ThisCharCode = AscB(MidB(vIn,i,1))
      If ThisCharCode < &H80 Then
         strReturn = strReturn & Chr(ThisCharCode)
      Else
         NextCharCode = AscB(MidB(vIn,i+1,1))
         strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
         i = i + 1
      End If
   Next
   bytes2BSTR = strReturn
End Function

作者: electronixtar 时间: 2008-3-31 03:13
代码真够长的～～

作者: zh159 时间: 2008-3-31 13:25
有这么长么？

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),"]")

WScript.echo ip(0)

作者: tvzml 时间: 2008-3-31 14:43

Quote:

Originally posted by zh159 at 2008-3-31 01:25 PM:
有这么长么？
[code]Set oDOM=WScript.GetObject("http://www.ip138.com/ip2city.asp")
Do Until oDOM.readyState="complete"
WScript.sleep 200
Loop
str = Split(oDOM.document ...

测试成功，谢谢，学习了。

作者: topmcs 时间: 2008-4-2 12:35
有什么实际用途么？？还望指明啊

作者: tvzml 时间: 2008-4-2 14:34
获取的外网IP地址，可以写其他配置文件用。

作者: 1073 时间: 2008-4-2 22:09
这里高手果然多

作者: xiaoweivip 时间: 2008-4-3 12:23
ddddddddddddddddddd

作者: slore 时间: 2008-4-3 20:26
Set objrcl = CreateObject("rcbdyctl.Setting")
MsgBox objrcl.GetIPAddress
Set objrcl = Nothing

不知道这个速度如何嗬～

作者: plp626 时间: 2008-4-3 22:00
什么时候我能把VBS用得这么熟练就好啦

作者: lyaa 时间: 2008-4-13 22:01
怎样再把获得的地址以文件的形势自动上传到ftp空间

作者: zh159 时间: 2008-4-13 22:54

Quote:

Originally posted by slore at 2008-4-3 20:26:
Set objrcl = CreateObject("rcbdyctl.Setting")
MsgBox objrcl.GetIPAddress
Set objrcl = Nothing

不知道这个速度如何嗬～

大哥，看清楚题目

作者: tvzml 时间: 2008-4-13 22:56

Quote:

Originally posted by lyaa at 2008-4-13 10:01 PM:
怎样再把获得的地址以文件的形势自动上传到ftp空间

可以使用FTP命令将 IP.txt 上传的

@echo open 192.168.0.252>ftpcmd
@echo user user pwd>>ftpcmd
@echo prompt>>ftpcmd
@echo binary>>ftpcmd
@echo put ip.txt>>ftpcmd
@echo bye>>ftpcmd
@ftp -n<ftpcmd

作者: slore 时间: 2008-4-14 13:03

Quote:

Originally posted by zh159 at 2008-4-13 22:54:

大哥，看清楚题目

看的很清楚……
建议你测试……

作者: zh159 时间: 2008-4-14 13:17

Quote:

Originally posted by slore at 2008-4-14 13:03:

看的很清楚……
建议你测试……

我的测试是本机的IP

作者: slore 时间: 2008-4-14 13:20
哦。可能和上网模式有关。。。

你是小区。。。或是局欲网。。。

我是ADSL的……得到
本地IP;公网IP

作者: zh159 时间: 2008-4-14 13:22
我的是ADSL，不过是通过路由交换机上网，所以你的通用性差些

作者: slore 时间: 2008-4-14 13:31
哦。那没有办法嘛~访问个IP网站然后分析的方法你们已经用。。。

只是提供一个简单的方法。或者说另一种方式。

可能是路由的关系。

我是单独用交换机……

作者: ksp169 时间: 2008-8-29 03:39
怎么样把VBS运行的得到的IP推出到TXT文档呢？要不然怎么上传到FTP空间呀！！！！