在VB中编程如何取得机器的IP地址?

Question

在VB中编程如何取得机器的IP地址?

Answer 1

你现在VB里添加一个Winsock控件，[工程——部件]
然后：             Dim myip As String
             Private Sub Command1_Click()
                     myip = Winsock1.LocalIP
                     Text1.Text = myip
             End Sub

Answer 2

Select   *   from   Win32_NetworkAdapterConfiguration   where   IPEnabled=TRUE

Answer 3

如果要取得本地连接的IP，用Winsock控件的LocalIP属性即可。
如果要取得本机的外网IP，那么通过访问特定网页分析返回值的方法是比较可靠的。比如我的网站上的一个专门用于返回IP的网页：http://www.happy-sea.com/ip/getip.asp，访问后直接返回访问者的外网IP。