---

Imports KNLib
Imports System.Text.RegularExpressions
Public Class Form1
Dim adminList As New List(Of String)
Dim applet As Applet
Dim WithEvents client As KSClient
Dim WithEvents c As New KSClient(New Applet())
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.View = View.Details
ListView1.Columns.Add("Username").Width = 120
Control.CheckForIllegalCrossThreadCalls = False
applet = New Applet
client = New KSClient(applet)
End Sub
Private Sub c_OnTokenReceived(ByVal sender As Object, ByVal token As String) Handles c.OnTokenReceived
Dim tokens As String() = token.Split(vbNullChar)
Select Case (tokens(0))
Case "u" ' Userlist"
If tokens(5).Contains("pics/cm.png") Then
' CM hat den Channel betreten.
End If
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim CSystem As New ChatSystem
Select Case ComboBox1.Text
Case "Knuddels.DE"
CSystem = ChatSystem.DE
Case "Knuddels.AT"
CSystem = ChatSystem.AT
Case "Knuddels.CH"
CSystem = ChatSystem.CH
End Select
client.Connect(CSystem)
client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
client.Disconnect()
End Sub
Private Sub WriteText(ByVal Absender As String, ByVal AbsenderFarbe As Color, ByVal Text As String, ByVal TextFarbe As Color)
RichTextBox1.SelectionColor = AbsenderFarbe
RichTextBox1.AppendText(Absender & ": ")
RichTextBox1.SelectionColor = TextFarbe
RichTextBox1.AppendText(Text & vbLf)
End Sub
Private Sub WriteText(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
WriteText(Nick, Color.Red, Message, Color.Black)
End Sub

Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
End Sub
Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
MessageBox.Show("Ping erhalten von " & Nick)
End Sub
Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
MessageBox.Show(Message, "Popup")
If Message.Contains("Admins sind derzeit:#") Then

Dim mc As MatchCollection = Regex.Matches(Message, "°>_h(.*?)\|")

For Each match As Match In mc

adminList.Add(match.Groups(1).Value.Replace("\", ""))

Next

' MessageBox.Show(adminList.Count.ToString)
Label6.Text = "" & (adminList.Count.ToString)


End If

'MessageBox.Show(Message, "Popup")
End Sub
Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList As System.Collections.Generic.List(Of KNLib.User)) Handles client.OnUserListReceive
ListView1.Items.Clear()
For Each User As KNLib.User In UserList
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
Next
End Sub
Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelJoin
ListView1.Items.Add(User.Name & ", (" & User.Age & "," & User.Sex & ")").ForeColor = User.Color
End Sub

Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User As KNLib.User) Handles client.OnChannelLeave
ListView1.FindItemWithText(User.Name).Remove()
End Sub
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
System.Environment.Exit(0)
End Sub

Private Sub TextBox4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox4.KeyDown
If client.IsConnected = True Then
If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If
Else
MessageBox.Show("Sind wir eingeloggt?")
End If
End Sub

End Class

---

---

Java Web Start ist eine Technik von Sun Microsystems, die es ermöglicht, Java-Anwendungen über das Internet mit nur einem Klick zu starten. Im Unterschied zu Java-Applets benötigen Java-Web-Start-Anwendungen keinen Browser, um ablaufen zu können.

---

---

Das Java Network Launching Protocol (JNLP) ist ein XML-Format, das festlegt, wie Anwendungen per Java Web Start aufgerufen werden.

---