'-----------------------------代码开始-------------------------------------------------- Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, addr As SOCK_ADDR, ByVal namelen As Long) As Long Declare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As Long Declare Function connect Lib "ws2_32.dll" (ByVal s As Long, name As SOCK_ADDR, ByVal namelen As Integer) As Long Declare Function inet_addr Lib "ws2_32.dll" (ByVal cp As String) As Long Declare Function htons Lib "ws2_32.dll" (ByVal hostshort As Integer) As Integer Declare Function recv Lib "ws2_32.dll" (ByVal s As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As Long Declare Function send Lib "ws2_32.dll" (ByVal s As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As Long Declare Function shutdown Lib "ws2_32.dll" (ByVal s As Long, ByVal how As Long) As Long Declare Function ioctlsocket Lib "ws2_32.dll" (ByVal s As Long, ByVal v As Long, ut As Long) As Long Declare Function socket Lib "ws2_32.dll" (ByVal af As Long, ByVal type_specification As Long, ByVal protocol As Long) As Long Declare Function WSACancelBlockingCall Lib "ws2_32.dll" () As Long Declare Function WSACleanup Lib "ws2_32.dll" () As Long Declare Function WSAGetLastError Lib "ws2_32.dll" () As Long Declare Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequired As Integer, wsData As WSA_DATA) As Long Declare Function WSASocketA Lib "ws2_32.dll" (ByVal af As Long, ByVal type1 As Long, ByVal protocol As Long, lpProtocolInfo As Long, g As Long, ByVal dwFlags As Long) Declare Function WSAIoctl Lib "ws2_32.dll" (ByVal s As Long, ByVal dwIoControlCode As Long, lpvInBuffer As Long, ByVal cbInBuffer As Long, lpvOutBuffer As Long, ByVal cbOutBuffer As Long, lpcbBytesReturned As Long, lpOverlapped As Long, lpCompletionRoutine As Long) As Long Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long) Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Const WSADESCRIPTION_LEN = 256 Type WSA_DATA Type IN_ADDR Type SOCK_ADDR Type IPHeader Const AF_INET = 2 Private mwsaData As WSA_DATA Private msaLocalAddr As SOCK_ADDR Sub Main() nResult = WSAStartup(&H202, mwsaData) m_hSocket = socket(AF_INET, SOCK_RAW, IPPROTO_IP) msaLocalAddr.sin_family = AF_INET nResult = bind(m_hSocket, msaLocalAddr, Len(msaLocalAddr)) Dim InParamBuffer As Long nResult = ioctlsocket(m_hSocket, &H98000001, 1) If nResult <> 0 Then Dim strData As String Do Until False '这个例子里,一直获取 nResult = shutdown(m_hSocket, 2) Function HexIp2DotIp(ByVal ip As Long) As String |