Module1.vb

Module Module1
    Dim WithEvents Verbindung As New Verbindung
    Dim Bytecode As Byte
    Sub Main()
        Console.WriteLine("Ich bin der Client")
        Console.Write("Please enter Your Username: ")
        Verbindung.Chatname = Console.ReadLine
        Verbindung.starte("127.0.0.1", 137)

        While True
            Dim eingabe As String = Console.ReadLine()
            If eingabe = "exit" Then
                Exit Sub

            ElseIf eingabe = "<Kick>" Then
                Bytecode = 1
                Verbindung.schreiben(Bytecode)

            ElseIf eingabe = "<End>" Then
                Bytecode = 2
                Verbindung.schreiben(Bytecode)
            ElseIf eingabe = "<Get_Users>" Then
                Bytecode = 3
                Verbindung.schreiben(Bytecode)

            ElseIf eingabe.ToLower = "<Restart>" Then
                Bytecode = 4

                Verbindung.schreiben(Bytecode)

            Else
                Verbindung.schreiben(Verbindung.Chatname & ": " & eingabe)
            End If
        End While
    End Sub

    Private Sub Verbindung_NeueNachricht(ByVal sNachricht As String) Handles Verbindung.NeueNachricht
        If sNachricht.StartsWith(Verbindung.Chatname & ": ") = False Then
            Console.WriteLine(sNachricht)
        End If

    End Sub

    Private Sub Verbindung_VerbindungUnterbrochen(ByVal sError As String) Handles Verbindung.VerbindungUnterbrochen
        If MsgBox("Verbindung unterbrochen, neu verbinden?", MsgBoxStyle.YesNo, "Keine Verbindung") = MsgBoxResult.Yes Then
            Console.Clear()
            Verbindung.starte("127.0.0.1", 137)
        Else
            Exit Sub
        End If
    End Sub
End Module