vb中从域名得到IP及从IP得到域名.docVIP

vb中从域名得到IP及从IP得到域名 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_Len) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long End Type Private Declare Function gethostbyaddr Lib WSOCK32.DLL (addr As Any, ByVal _ byteslen As Integer, addrtype As Integer) As Long Private Declare Function WSAGetLastError Lib WSOCK32.DLL () As Long Private Declare Function WSAStartup Lib WSOCK32.DLL (ByVal _ wVersionRequired, lpWSAData As WSADATA) As Long Private Declare Function WSACleanup Lib WSOCK32.DLL () As Long Private Declare Function gethostbyname Lib WSOCK32.DLL (ByVal _ hostname$) As Long Private Declare Sub RtlMoveMemory Lib KERNEL32 (hpvDest As Any, _ ByVal hpvSource, ByVal cbCopy) Function hibyte(ByVal wParam As Integer) 注释：获得整数的高位 hibyte = wParam \ H100 And HFF End Function Function lobyte(ByVal wParam As Integer) 注释：获得整数的低位 lobyte = wParam And HFF End Function Function SocketsInitialize() Dim WSAD As WSADATA Dim iReturn As Integer Dim sLowByte As String, sHighByte As String, sMsg As String iReturn = WSAStartup(WS_VERSION_REQD, WSAD) If iReturn 0 Then MsgBox Winsock.dll 没有反应. End End If If lobyte(WSAD.wversion) WS_VERSION_MAJOR Or (lobyte(WSAD.wversion) = WS_VERSION_MAJOR And hibyte(WSAD.wversion) WS_VERSION_MINOR) Then sHighByte = Trim$(str$(hibyte(WSAD.wversion))) sLowByte = Trim$(str$(lobyte(WSAD.wversion)))