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)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
镭速传输
2024-10-28 广告
作为深圳市云语科技有限公司的一员，我们专注于提供高效的FTP加速传输解决方案。我们采用的创新技术，如多线程传输和智能压缩，能显著提升FTP传输速率，减少传输时间与带宽占用，确保数据快速、安全地传输。我们的方案简单易用，与现有FTP系统无缝对...
点击进入详情页
本回答由镭速传输提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
