Hook auf Form und WSAAsyncSelect - Anwendung friert ein

  • VB6

    Hook auf Form und WSAAsyncSelect - Anwendung friert ein

    Guten Morgen zusammen,

    ich habe ein Socket erstellt und mittels WSAAsyncSelect die Events FD_ACCEPT, FD_CLOSE, FD_CONNECT, FD_READ und FD_WRITE abgefangen und mittels eines Hooks lasse ich dann Messages an meine Hauptform senden. Diese Hauptform untersucht die eingegangenen Nachrichten und wenn es eine WinSockMsg ist (Basiswert 10025) dann wird entsprechender Code angewendet.

    Hier ist der Code :

    Quellcode

    1. Public Function ConnectToClient()
    2. Dim lngRetConnect As Long
    3. Dim struct_sckAddr As sockaddr_in
    4. Dim lngRetSocketStart As Long
    6. With struct_sckAddr
    7. .sin_addr = lngLocalIP
    8. .sin_family = AF_INET
    9. .sin_port = htons(12350)
    10. End With
    12. lngRetSocketStart = Socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)
    14. lngRetConnect = connect(lngRetSocketStart, struct_sckAddr, LenB(struct_sckAddr))
    16. If lngRetConnect = SOCKET_ERROR Then
    17. MsgBox "No connection possible.", vbCritical, "An error occured"
    18. ElseIf lngRetConnect <> SOCKET_ERROR Then
    19. WSAAsyncSelect lngRetSocketStart, frmClient.hwnd, WINSOCKMSG, FD_ACCEPT Or FD_CLOSE Or FD_CONNECT Or FD_READ Or FD_WRITE
    20. lngConnectedSocket = lngRetSocketStart
    21. HookForm frmClient
    22. End If
    23. End Function
    24. Public Sub HookForm(F As Form)
    25. PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
    26. End Sub
    27. Public Sub UnHookForm(F As Form)
    28. If PrevProc <> 0 Then
    29. SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
    30. PrevProc = 0
    31. End If
    32. End Sub
    33. Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    34. If uMsg = WINSOCKMSG Then
    35. ProcessMessage wParam, lParam
    36. Else
    37. WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
    38. End If
    39. End Function
    40. Public Function ProcessMessage(ByVal wParam As Long, ByVal lParam As Long)
    42. Select Case lParam
    43. Case FD_READ
    44. frmClient.lstSockMessages.AddItem "Socket has Data to read"
    45. GetSocketData
    46. Case FD_CONNECT
    47. frmClient.lstSockMessages.AddItem "Socket connected"
    48. Case FD_CLOSE
    49. UnHookForm frmClient
    50. Case FD_WRITE
    51. frmClient.lstSockMessages.AddItem "Socket has Data to write."
    52. SendDataToSocket
    53. Case Else
    54. frmClient.lstSockMessages.AddItem "Nr. " & wParam
    55. frmClient.lstSockMessages.AddItem lParam
    56. End Select
    58. End Function


    Leider friert mir meine Anwendung aber ein. Ich kann zwar noch Verbindungen eingehen und es werden auch Daten empfangen, aber ich kann die Anwendung nicht mehr beenden oder sonstwie steuern.

    Weiß jemand Rat ?

    Danke und liebe Grüße,

    Pascal

Facebook
Telefonspende