VB中如何获取本机的外网IP ?
1个回答
展开全部
Dim h As Object, s As String
Set h = CreateObject("Microsoft.XMLHTTP")
h.Open "GET", "http://www.ip138.com/ip2city.asp", False
h.Send
If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
msgbox Split(Split(s, "[")(1), "]")(0)
Set h = CreateObject("Microsoft.XMLHTTP")
h.Open "GET", "http://www.ip138.com/ip2city.asp", False
h.Send
If h.ReadyState = 4 Then s = StrConv(h.Responsebody, vbUnicode)
msgbox Split(Split(s, "[")(1), "]")(0)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Storm代理
2023-07-25 广告
StormProxies是一家提供动态代理服务器服务的企业，旨在帮助用户更好地管理网络访问和安全。以下是一些关于StormProxies的IP动态代理服务的特点：1. 高匿名性：StormProxies的动态代理服务器具有高匿名性，可以有效...
点击进入详情页
本回答由Storm代理提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
