████VB查看本机IP██你是高手吗？██

d

有俩种方法

1.控件方法：

在工程中加入Winsock控件和一个按钮控件

代码：

Option Explicit

Private Sub Command1_Click()
text1.text= Winsock1.LocalIP
End Sub

上面的俩种都是使用控件

个人感觉不好~~未必所以机器都有这个....

以下不用控件~

2.非控件方法（api）

Private Const WS_VERSION_REQD = &H101
Private Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&
Private Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&
Private Const MIN_SOCKETS_REQD = 1
Private Const SOCKET_ERROR = -1
Private Const WSADescription_Len = 256
Private Const WSASYS_Status_Len = 128

Private Type HOSTENT
hName As Long
hAliases As Long
hAddrType As Integer
hLength As Integer
hAddrList As Long
End Type

Private Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To WSADescription_Len) As Byte
szSystemStatus(0 To WSASYS_Status_