怎样查看本机IP地址(外网IP篇)

来源：互联网 2023-02-20 17:32:18 189

在这里我们要用到 Microsoft Visual Basic Script Editon (VBS) 来获得您的 Internet IP 地址.

工具/原料

1创建一个扩展名为 .vbs 的 VBS 脚本文件,这里命名为 IP.VBS.

怎样查看本机IP地址(外网IP篇)

1本页面未经许可获取自百度经验

2使用记事本编辑,源代码如下所示:

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)

WSH.Echo Data

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

bytes2BSTR = strReturn

End Function

怎样查看本机IP地址(外网IP篇)

3效果如下图所示:

怎样查看本机IP地址(外网IP篇)

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！