有谁知道在vb中怎样能得到本机的ip地址

来源：百度知道 编辑：UC知道 时间：2024/05/25 10:06:14
有谁知道在vb中怎样能得到本机的ip地址
越详细越好
MeIp=winsock.LocalIP 是什么意思呀

最直观的方法，添加一个winsock,然后MeIp=winsock.LocalIP

建议用API函数，以下完整示例：
（其中直接调用GetIPAddress函数即可获取IP）

------------------

Option Explicit

Public Const MIN_SOCKETS_REQD As Long = 1
Public Const WS_VERSION_REQD As Long = &H101
Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&
Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&
Public Const SOCKET_ERROR As Long = -1
Public Const ERROR_SUCCESS As Long = 0
Public Const WSADESCRIPTION_LEN = 257
Public Const WSASYS_STATUS_LEN = 129
Public Const MAX_WSADescription = 256
Public Const MAX_WSASYSStatus = 128
Public Type WSAData
wVersion As Integer
wHighVersion As Integer
szDescription(0 To MAX_WSADescription) As Byte
szSystemStatus(0 To MAX_WSASYSStatus) As Byte
wMaxSockets As Integer
wMaxUDPDG As Integer
dwVendorInfo As Long
End Type
Type WSADataInfo