Neuheiten.vb

Public Class Neuheitenvb
    Dim Server As New ChatServer
    Public AllUsersnames() As String
    Public All_User_IDS() As Integer
    Public Sub Sreach_for_User(ByVal sText As String)
        For Each ChatClient In Server.ChatclientListe

            If ChatClient.ChatName.Contains(sText) = True Then

                MsgBox("UniqueID" & ChatClient.ClientID & vbCr & "ChatName: " & ChatClient.ChatName)

            End If

        Next
    End Sub

    Public Sub Get_All_Users()
        Dim i As Integer
        For Each ChatClient In Server.ChatclientListe

            AllUsersnames(i) = ChatClient.ChatName
            All_User_IDS(i) = ChatClient.ChatName
            Console.WriteLine(AllUsersnames(i) & " " & All_User_IDS(i))
            i += 1

        Next
    End Sub

End Class