Verweis hinzufügen(Rechtsklick aufs Projekt Verweis hinzufügen (System.DirectoryServices))


Imports System.DirectoryServices
Imports System.Net.Sockets
Imports System.IO
Imports System.Threading


Public Class Form1

    Dim listener As New TcpListener(55555)
    Dim client As New TcpClient
    Dim message As String = ""


    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing

        listener.Stop()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim listthread As New Thread(New ThreadStart(AddressOf listening))
        listthread.Start()



        Dim childEntry As DirectoryEntry
        Dim ParentEntry As New DirectoryEntry
        Try
            ParentEntry.Path = "WinNT:"
            For Each childEntry In ParentEntry.Children
                Dim newNode As New String(childEntry.Name)
                Select Case childEntry.SchemaClassName
                    Case "Domain"
                        Dim ParentDomain As New String(childEntry.Name)
                        Dim SubChildEntry As DirectoryEntry
                        Dim SubParentEntry As New DirectoryEntry
                        SubParentEntry.Path = "WinNT://" & childEntry.Name
                        Dim x
                        x = childEntry.AuthenticationType()
                        For Each SubChildEntry In SubParentEntry.Children
                            Try
                                Select Case SubChildEntry.SchemaClassName
                                    Case "Computer"
                                        ComboBox1.Items.Add(System.Net.Dns.GetHostEntry(SubChildEntry.Name).AddressList(0).ToString())
                                End Select
                            Catch ex As Exception
                                Debug.WriteLine(SubChildEntry.Name)
                            End Try
                        Next
                End Select
            Next
        Catch Ex As Exception
            MessageBox.Show(Ex.ToString)
        Finally
            ParentEntry = Nothing
        End Try

        ComboBox1.Items.RemoveAt(1)


    End Sub

    Private Sub listening()
        listener.Start()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        


        If TextBox3.Text = "" Or TextBox1.Text = "" Then
            MsgBox("Geben Sie bitte einen Benutzernamen und eine Nachricht ein!")
        Else
            client = New TcpClient(ComboBox1.SelectedItem, 55555)
            Dim writer As New StreamWriter(client.GetStream())

            writer.Write(TextBox3.Text + ": " + TextBox1.Text)
            writer.Flush()
            TextBox1.Text = ""
        End If
        

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If listener.Pending = True Then
            message = ""
            client = listener.AcceptTcpClient()
            Dim reader As New StreamReader(client.GetStream)
            While reader.Peek > -1
                message = message + Convert.ToChar(reader.Read()).ToString
            End While
            TextBox2.Text = TextBox2.Text & message & vbCrLf
        Else : End If
    End Sub
End Class