AX Microsoft Winsock Control 6.0 (SP4) (vom COM Reiter)

COMException wurde nicht behandelt
Ausnahme von HRESULT: 0x800A9C54

Public Class Client_Main
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Client1.Connect("127.0.0.1", 12345)
    End Sub
 
    Private Sub Client1_DataArrival(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles _
      Client1.DataArrival
        Dim empfangene_nachricht As String = ""
        Client1.GetData(empfangene_nachricht)
        TextBox3.Text = empfangene_nachricht
    End Sub
 
End Class

Option Explicit On
Public Class Server_Main
    Dim Server11 As System.Net.Sockets.TcpListener
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Server1.Close()
        Server1.LocalPort = 12345
        Server1.Listen()
 
    End Sub
 
    Private Sub Server1_ConnectionRequest(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles _
      Server1.ConnectionRequest
        Server1.Accept(e.requestID)
        TextBox2.Text = "Online!"
    End Sub
 
    Private Sub Server1_DataArrival(ByVal sender As Object, ByVal e As _
      AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles _
      Server1.DataArrival
        Dim empfangene_nachricht As String = ""
        Server1.GetData(empfangene_nachricht)
        TextBox3.Text = empfangene_nachricht
    End Sub
 
End Class