VB怎样获取本机外网IP地址

答案:4 悬赏:10 手机版

解决时间 2021-06-01 14:36

提问者网友：骨子里的高雅
2021-06-01 08:28

VB怎样获取本机外网IP地址

最佳答案

五星知识达人网友：一秋
2021-06-01 08:59

打酱油的

全部回答

1楼网友：酒者煙囻
2021-06-01 10:59

Private Sub Form_Load()

Dim StrTmp As String, Tmp As Long Text1.Text = Winsock1.LocalIP Command2.Enabled = False StrTmp = Inet1.OpenURL(" http://www.ip138.com/") Tmp = InStr(1, StrTmp, "您的IP地址是：") If Tmp > 0 Then Text2 = Mid(StrTmp, Tmp + 8, InStr(Tmp + 9, StrTmp, "</td>") - Tmp - 8) Else StrTmp = Inet1.OpenURL(" http://vbnet.mvps.org/resources/tools/getpublicip.shtml") Tmp = InStr(1, StrTmp, "var ip = '") If Tmp > 0 Then Text2 = Mid(StrTmp, Tmp + 10, InStr(Tmp + 11, StrTmp, "'") - Tmp - 10) Else Text2 = "无法得到外网IP地址" End If End If End Sub

直接粘贴上就行了双重保险第一个网站检测不到换第二个网站检测

2楼网友：神的生死簿
2021-06-01 10:50

打开IP138.com 取其中的IP地址

3楼网友：白昼之月
2021-06-01 10:13

很高兴为楼主解答！您直接输入:IP config 系统自动显示！

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息