1,502
社区成员
发帖
与我相关
我的任务
分享
...
Dim SockInfohWnd As Long, r As Long
SockInfohWnd = CreateWindowEx(0&, "STATIC", "SOCKET_WINDOW", 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, ByVal 0&)
r = GetWindowLong(SockInfohWnd, GWL_WNDPROC)
r = SetWindowLong(SockInfohWnd, GWL_WNDPROC, AddressOf WndProc)
...
Public Sub WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Debug.Print "收到消息:" & uMsg & " " & wParam
Select Case uMsg
Case RESOLVE_MESSAGE
Case SOCKET_MESSAGE
Select Case wParam
Case FD_CONNECT: '连接成功(用于TCP协议)
Case FD_WRITE: '发送信息
Case FD_READ: '收到数据
Case FD_ACCEPT: '收到连接请求(用于TCP协议)
Case FD_CLOSE: '关闭连接(用于TCP协议)
End Select
End Select
End Sub