Fejl ved envejs chat program program

Hej,

jeg er igang med at lærer sockets og er løbet ind i en smule problemer... jeg har to programmer et som sender beskeder et andet som modtager(clienten) men hver gang jeg sender til min ejen IP med clienten åben (også når den ikke er åben) går senderen ned med en error.

Kode til Sender:

Public Class Form1


    Private Sub bSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSend.Click
        If W.RemoteHost = "" Then
            MsgBox("Du skal skrive en IP!", MsgBoxStyle.Exclamation, "Ingen IP!")
        Else
            W.SendData(Message.Text)
        End If

    End Sub




    ''FORM Load
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        W.RemoteHost = "83.92.159.59"
        W.RemotePort = 1000
        W.LocalPort = 1000
        'W.Bind()
    End Sub
End Class

Client kode:

Public Class Form1

    Private Sub W_DataArrival(ByVal bytesTotal As Long)
        Dim Tekst As String = ""
        W.GetData(Tekst)

        MsgBox(Tekst, MsgBoxStyle.OkOnly, "Besked!")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        W.RemotePort = 1000
        W.LocalPort = 1000
        W.Bind()
    End Sub
End Class

FEjl:{"Exception from HRESULT: 0x800A9C46"}


please hjælp


Tillægs spørgsmål: Hvad er functionerene for at få Date og time i en streng ?? (til log funk)