Imports KNLib

Public Class Form1
    Dim applet As New Applet
    Dim WithEvents client As KSClient

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        client.Connect(KNLib.ChatSystem.DE)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.SelectionColor = Color.Black
        RichTextBox1.AppendText("[Master]: ")
        RichTextBox1.SelectionColor = Color.Black
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Regular)
        RichTextBox1.AppendText(TextBox1.Text & " Wurde Erfolgreich Eingeloggt! :D" & vbLf)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        client.Disconnect()
        RichTextBox1.SelectionColor = Color.Red
        RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Bold)
        RichTextBox1.AppendText("Erfolgreich Ausgeloggt!" & vbLf)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        applet = New Applet
        client = New KSClient(applet)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        client.Connect(KNLib.ChatSystem.DE)
        client.Login(TextBox4.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox5.Text, TextBox5.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox6.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox7.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox11.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox10.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox9.Text, TextBox2.Text, TextBox3.Text)
        client.Login(TextBox9.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox8.Text, TextBox2.Text, TextBox3.Text)
        client.Login(TextBox13.Text, TextBox2.Text, TextBox3.Text)
        System.Threading.Thread.Sleep(2000)
        client.Login(TextBox12.Text, TextBox5.Text, TextBox3.Text)
        If client.IsConnected & client.isLoggedIn Then

            RichTextBox1.Text = "Eingeloggt"

        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        client.Disconnect()
    End Sub
End Class