VBGood网站全文搜索

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood) › 论坛 › VB 讨论区 › 新手学堂 › 查自己本机IP问题【求解】

返回列表

查看: 181|回复: 2

查自己本机IP问题【求解】 [复制链接]

huxiaocun23

中级程序员

Rank: 3

擂点: 0
人气: 1
威望: 0
注册时间: 2009-11-26
精华: 0
帖子: 150

发表于 2012-2-4 18:27:23 |显示全部楼层

我用的是很简单的代码，呵呵我喜欢简单使实用的

Private Sub Command1_Click()
Randomize

Text1 = Text1+ Winsock1.LocalIP & vbCrLf
Text1.SelStart = Len(Text1.Text)
End Sub

问题：能获取正确 IP,可是我断网后，再获取，还是原来第一次的地址。关闭软件，再开才能获取第二次IP
请问怎么修改，才能不关软件的情况下能获取第二次断网后的新IP

新手帮助如何获得阅读权限

使用道具举报

xiayu1993

版主

~~

Rank: 7 Rank: 7 Rank: 7

擂点: 7
人气: 1
威望: 368
注册时间: 2005-11-11
精华: 0
帖子: 1159

发表于 2012-2-4 19:11:22 |显示全部楼层

本帖最后由 xiayu1993 于 2012-2-4 19:13 编辑

可以考虑每次获取IP时Create一个winsock
Set WinsockTemp = CreateObject("MSWinsock.Winsock")
Text1 = Text1+ WinsockTemp.LocalIP & vbCrLf
Text1.SelStart = Len(Text1.Text)
Set WinsockTemp = Nothing