Text aus VB Programm an TeamSpeak Server senden

Zitat von Norman18vk@aol.com;1594249

Hallo ich bin dabei ein kleines Programm zu schreiben das wen man ein Button drückt einen Text an den TeamSpeak³ Server sendet dies geht auch wunderbar.

hier der code

Code

Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("217.160.107.191", "10011")
        Dim networkStream As Sockets.NetworkStream = tcpClient.GetStream()
        Dim sendBytes As [Byte]()
        sendBytes = Encoding.ASCII.GetBytes("login BENUTZER PASSWORT" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("use sid=1" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("sendtextmessage targetmode=3 target=1 msg=[b][Color=red][LEITSTELLE]:\s\s\ + vbCrLf")
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("logout" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        If Not networkStream.CanRead Then
            Console.WriteLine("cannot not write data to this stream")
            tcpClient.Close()
        Else
            If Not networkStream.CanWrite Then
                Console.WriteLine("cannot read data from this stream")
                tcpClient.Close()
            End If
        End If
        ' pause so user can view the console output
        Console.ReadLine()
    End Sub

Alles anzeigen

er giebt den Text so aus

[ICODE]<22:22:36> "Leitstelle from 95.91.200.205:11801": [LEITSTELLE]:[/ICODE]

aber ich will das da stehen haben

[ICODE]<22:22:36> "Leitstelle mit Funkalamierung": HIER KOMMEN DIE GANZE ANDEREN TEXTE HIN[/ICODE]

kann mir einer helfen

Alles anzeigen

es wird nicht mehr ausgegeben

hab den vode so angesetzt

aber dan wird nichts mehr gesendet

so wieder angepasst

Dim tcpClient As New System.Net.Sockets.TcpClient()
        tcpClient.Connect("217.160.107.191", "10011")
        Dim networkStream As Sockets.NetworkStream = TcpClient.GetStream()
        Dim sendBytes As [Byte]()
        sendBytes = Encoding.ASCII.GetBytes("login ILST 30CAeiNY" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("clientupdate nickname=Leitstelle\smit\sFunkalamierung")
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("use sid=1" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("sendtextmessage targetmode=3 target=1 msg=[b][Color=red]Leitstelle\smit\sFunkalamierung + vbCrLf")
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        sendBytes = Encoding.ASCII.GetBytes("logout" + vbCrLf)
        networkStream.Write(sendBytes, 0, sendBytes.Length)
        If Not networkStream.CanRead Then
            Console.WriteLine("cannot not write data to this stream")
            tcpClient.Close()
        Else
            If Not networkStream.CanWrite Then
                Console.WriteLine("cannot read data from this stream")
                tcpClient.Close()
            End If
        End If
        ' pause so user can view the console output
        Console.ReadLine()
    End Sub

aber dan wird nichts ausgegeben