孤DU的熊 孤DU的熊
关注数: 2 粉丝数: 30 发帖数: 1,213 关注贴吧数: 5
关于用VB截获数据包的问题 以下是程序,但这里有一个问题,当程序执行到recv这个API时,假如没有数据可读,recv这个API就一直不会返回,而造成闭塞导致程序卡死,请问有什么办法解决这个问题吗'-----------------------------代码开始--------------------------------------------------Declare Function bind Lib "ws2_32.dll" (ByVal s As Long, addr As SOCK_ADDR, ByVal namelen As Long) As LongDeclare Function closesocket Lib "ws2_32.dll" (ByVal s As Long) As LongDeclare Function connect Lib "ws2_32.dll" (ByVal s As Long, name As SOCK_ADDR, ByVal namelen As Integer) As LongDeclare Function inet_addr Lib "ws2_32.dll" (ByVal cp As String) As LongDeclare Function htons Lib "ws2_32.dll" (ByVal hostshort As Integer) As IntegerDeclare Function recv Lib "ws2_32.dll" (ByVal s As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As LongDeclare Function send Lib "ws2_32.dll" (ByVal s As Long, buffer As Any, ByVal length As Long, ByVal flags As Long) As LongDeclare Function shutdown Lib "ws2_32.dll" (ByVal s As Long, ByVal how As Long) As LongDeclare Function ioctlsocket Lib "ws2_32.dll" (ByVal s As Long, ByVal v As Long, ut As Long) As LongDeclare Function socket Lib "ws2_32.dll" (ByVal af As Long, ByVal type_specification As Long, ByVal protocol As Long) As LongDeclare Function WSACancelBlockingCall Lib "ws2_32.dll" () As LongDeclare Function WSACleanup Lib "ws2_32.dll" () As LongDeclare Function WSAGetLastError Lib "ws2_32.dll" () As LongDeclare Function WSAStartup Lib "ws2_32.dll" (ByVal wVersionRequired As Integer, wsData As WSA_DATA) As LongDeclare 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 LongDeclare 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 = 256Public Const WSASYS_STATUS_LEN = 128Type WSA_DATA wVersion As Integer wHighVersion As Integer strDescription(WSADESCRIPTION_LEN + 1) As Byte strSystemStatus(WSASYS_STATUS_LEN + 1) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpVendorInfo As LongEnd TypeType IN_ADDR S_addr As LongEnd TypeType SOCK_ADDR sin_family As Integer sin_port As Integer sin_addr As IN_ADDR sin_zero(0 To 7) As ByteEnd TypeType IPHeader lenver As Byte tos As Byte len As Integer ident As Integer flags As Integer ttl As Byte proto As Byte checksum As Integer sourceIP As Long destIP As LongEnd TypeConst AF_INET = 2Const SOCK_RAW = 3Const IPPROTO_IP = 0Const IPPROTO_TCP = 6Const IPPROTO_UDP = 17Const MAX_PACK_LEN = 65535Const SOCKET_ERROR = -1&
1 下一页