tcpip einfacher chat

[flrz80]

Soll in meinem Praktikum ein Einfachen Chat programmieren über das Netzwerk. Also es soll nur eine Nachricht vom Client zum Server übermittelt werden.

Habe einige Tutorials gefunden aber leider nicht für VB2005. Habe bisher folgendes geschrieben:

ws1 heisst mein Winsock Steuerelement

SERVER:

Public Class Form1

    Dim port As Integer



    Private Sub server1_DataArrival(ByVal allebytes As Long)
        Dim nachricht_got As String
        server1.GetData(nachricht_got)
        nachrichtlable.Text = nachricht_got
    End Sub


    Private Sub listenBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listenBtn.Click
        server1.Close()
        server1.LocalPort = porttext.Text
        server1.Listen()
    End Sub


    Private Sub server1_ConnectionRequest(ByVal requestID as integer)
        server1.Accept(requestid)
        statuslable.Text = "Online!"
    End Sub
End Class

Client:

Public Class Form1
    Dim port As Integer
    Private Sub trennenBtn_Click()
        client1.Close()
    End Sub

    Private Sub verbindenBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verbindenBtn.Click
        If ip_text.Text = "" Or port_text.Text = "" Then
            MsgBox("IP und Port eingeben.", vbCritical, "Error!")
        End If
        client1.Close()
        client1.RemoteHost = ip_text.Text
        port = port_text.Text
        client1.RemotePort = port
        client1.Connect()
    End Sub
End Class

Sever lässt sich über Telnet "ansprechen", also müsste Port geöffnet sein
Wies aussieht liegts daran das RequestConnection nicht getriggert wird. Die variablen beim Client sind alle richtig drin wenn man auf verbinden clickt..

weiss jemand rat?

 

[ronaldh]

Am besten stellst Du Deine Frage im .Net-Forum, da wird Dir bestimmt geholfen. Hier bist Du im Forum für VB6/VBA gelandet.

Grüsse
ronaldh