前两天在这求助VB中获取本机IP的代码，

也没有回答的，

或许是不知道，或许是不屑一答，

我昨天找到了，

发出来，需要的就看下，，

在VB里添加一个Winsock控件，
然后：
       Private Sub Command1_Click()
       Text1.Text = Winsock1.LocalIP
       End Sub
这样点击command1，text1中就可以获取到本机的Ip了...