TCP, Problem beim Senden

superhans21

Grünschnabel
Hi,
ich hab ein Problem mit TCP, nämlich wenn ich den folgenden Code ausführe, kommt die weiter unten zu sehende Fehlermeldung:
Das ist der Server(Form)
PHP:
Public Class Form1

    Dim WSockServer As New MSWinsockLib.Winsock
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WSockServer.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WSockServer.LocalPort = 1201
        WSockServer.Listen()
    End Sub
    Private Sub server1_ConnectionRequest(ByVal requestID As Long)
        WSockServer.Accept(requestID)
        Me.Text = "Online!"
    End Sub
    Private Sub sendData(ByVal nachricht As String)
        Try
            WSockServer.SendData(nachricht)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            Clipboard.SetText(ex.Message)
        End Try
    End Sub
    Private Sub server1_DataArrival(ByVal allebytes As Long)
        Dim nachricht_got As String
        WSockServer.GetData(nachricht_got)
        Label1.Text = nachricht_got
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sendData("lustig")
    End Sub
End Class
Das Modul(Client):
PHP:
Module Module1

    Dim wsock As New MSWinsockLib.Winsock
    Sub Main()
        Try

            wsock.RemoteHost = "127.0.0.1"
            wsock.RemotePort = 1201
            wsock.Connect()
            wsock.SendData("dere")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
        Console.ReadLine()
    End Sub

    Private Sub client1_DataArrival(ByVal allebytes As Long)
        Dim nachricht_got As String
        wsock.GetData(nachricht_got)
        Console.WriteLine(nachricht_got)
    End Sub
End Module

Die Fehlermeldung bei Try & Catch:
Wrong protocol or connection state for the requested transaction or request

Was hab ich falsch gemacht?
Danke
 
Du hast im falschen Forum gepostet. Das ist VB-.NET, deshalb solltest Du Deine Frage dort stellen, denn dieses Forum ist für VB4-VB6 und VBA vorgesehen.

Grüsse
ronaldh
 
Zurück