Winsock chat

[djmaster329]

Hallo,

Ik heb een chat client en server gemaakt in visual basic, ik kan verbinden met de server maar zodra ik een bericht wil sturen gaat het verkeerd.
Ik krijg de volgende foutmelding (zie bijlage).

Server code:

Public Class ServerConsole

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Icon = My.Resources.chat
        lblSYSTIME.Text = TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second
        tmrSYSTIME.Start()
        MessageService.Listen()
        tbLog.Text = tbLog.Text & vbNewLine & "[" & TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second & "]" & " Server started!"
    End Sub

    Private Sub tmrSYSTIME_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrSYSTIME.Tick
        lblSYSTIME.Text = TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second
    End Sub

    Private Sub MessageService_DataArrival(ByVal Index As Integer, ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent)
        Dim msg As String
        MessageService.GetData(msg)
        tbLog.Text = tbLog.Text & vbNewLine & "[" & TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second & "]" & msg
        Dim NewMessage As String
        NewMessage = msg
        MessageService.SendData(NewMessage)
    End Sub

    Private Sub MessageService_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MessageService.ConnectEvent
        Dim msg As String
        msg = "Welcome to our server"
        MessageService.SendData(msg)
    End Sub
End Class

Client code:

Public Class Chat

    Private Sub Chat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Icon = My.Resources.chat
        Me.Text = My.Settings.Nickname & " @ Chat"
        Label1.Text = My.Settings.Nickname
        MessageService.Connect()
        tbChat.Text = "Connecting to server..."
    End Sub

    Private Sub MessageService_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles MessageService.ConnectEvent
            tbChat.Text = tbChat.Text & vbNewLine & "Connected to server!"
    End Sub

    Private Sub tbChat_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles tbChat.TextChanged
        tbChat.ScrollToCaret()
    End Sub

    Private Sub tbNewMessage_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles tbNewMessage.KeyDown
        If e.KeyCode = Keys.Enter Then
            Try
                Dim msg As String
                msg = "[ " & Label1.Text & " ] " & tbNewMessage.Text
                [B]MessageService.SendData(msg)[/B]
                tbNewMessage.Text = ""
            Catch exception As Exception
                MsgBox("Error:" & exception.ToString(), MsgBoxStyle.Critical, "")
            End Try
        End If
    End Sub

    Private Sub MessageService_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles MessageService.DataArrival
        Dim NewMessage As String
        MessageService.GetData(NewMessage)
        tbChat.Text = tbChat.Text & vbNewLine & NewMessage
    End Sub
End Class

Ik heb de plaats waar de error vandaan komt even vetgedrukt gemaakt.


Bedankt voor de hulp!

Groeten,
Djmaster329

 

[MartinJM]

Misschien heb je hier wat aan:

http://www.helpmij.nl/forum/showthread.php/602707-Winsock-fout

Succes!:thumb: