Telnet Verbindung zu Teamspeak !!2!!

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von oli-f.

    Telnet Verbindung zu Teamspeak !!2!!

    Guten Abend zusammen,

    Ich habe nun schon öfters ausprobiert usw um z.B. wenn ich auf Senden in einem Anwendung klicke das auch eine Nachricht in Teamspeak erscheint.
    Ich habe mir auch schon das Tutorial von Kevin angeguckt doch ist das leider für Teamspeak 3
    Könnte hier bitte jemand einen Script für Teamspeak 2 posten.



    Vielen Dank im voraus

    also hier erstmal eine kleine hilfe, mit allen befehlen:
    docs.teamspeak-einstieg.de/telnet/

    Der Telnet Port für Teamspeak 2 Server ist standartmäsig: 51234 (kann auch anderer sein)

    So hab jetzt kann ne 3/4 Stunde geschrieben:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.Text
    4. Module Module1
    5. Dim TelnetSocket As Socket
    6. Sub Main()
    7. Dim ServerIP As String = InputBox("IPAdresse:", "IPAdresse", "127.0.0.1")
    8. Dim TelnetPort As String = InputBox("TelnetPort:", "TelnetPort", "51234")
    9. Dim TeamspeakPort As String = InputBox("TeamspeakPort:", "TeamspeakPort", "8786")
    11. If Connect(ServerIP, TelnetPort) = "[TS]" Then
    12. If SendCommand("sel " & TeamspeakPort) = "OK" Then
    13. Dim username As String = InputBox("Username:", "Super-Serveradmin")
    14. Dim passwort As String = InputBox("Passwort:", "Super-Serveradmin")
    15. If SendCommand("slogin " + username + " " + passwort) Then
    16. Dim Message As String = InputBox("Nachricht:", "Nachricht", "test")
    17. If SendCommand("msg " + Message) Then
    18. MsgBox("=>Nachricht wurde versandt")
    19. Else
    20. MsgBox("=>Nachricht wurde NICHT versandt")
    21. Console.Clear()
    22. Main()
    23. End If
    24. Else
    25. MsgBox("=>Nicht erfolgreich eingelogt" + vbNewLine + "!! (Sie müssen sich als SUPER-SERVERAADMIN einloggen) !!")
    26. Console.Clear()
    27. Main()
    28. End If
    29. Else
    30. MsgBox("=>Teamspeak Server existiert nicht")
    31. Console.Clear()
    32. Main()
    33. End If
    34. Else
    35. InputBox("repose", "", Connect(ServerIP, TelnetPort))
    36. MsgBox("=>Kein Teamspeak Server")
    37. Console.Clear()
    38. Main()
    39. End If
    40. End Sub
    41. Private Function SendCommand(ByVal command As String) As String
    42. Try
    43. If TelnetSocket.Connected = True Then
    44. Console.WriteLine("<=" & command)
    45. Dim SendedBytes As [Byte]() = Encoding.ASCII.GetBytes(command & vbCrLf)
    46. Dim ReciveBytes(255) As [Byte]
    47. Dim ReciveString As String = ""
    48. Dim NumBytes As Integer = 0
    49. TelnetSocket.Send(SendedBytes, SendedBytes.Length, SocketFlags.None)
    50. Do
    51. NumBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
    52. ReciveString = ReciveString + Encoding.ASCII.GetString(ReciveBytes, 0, NumBytes).Replace(vbNewLine, "")
    53. Loop While NumBytes = 256
    54. Console.WriteLine("=>" & ReciveString)
    55. Return ReciveString
    56. End If
    57. Catch ex As Exception
    58. MsgBox(ex.Message)
    59. Return ""
    60. Exit Function
    61. End Try
    62. Return ""
    63. End Function
    64. Public Sub Disconnect()
    65. Try
    66. Threading.Thread.Sleep(1000)
    67. TelnetSocket.Disconnect(False)
    68. Catch ex As Exception
    69. MsgBox(ex.Message)
    70. End Try
    71. End Sub
    72. Public Function Connect(ByVal ServerIP As String, ByVal TelnetPort As String) As String
    73. TelnetSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    74. Try
    75. TelnetSocket.Connect(New IPEndPoint(IPAddress.Parse(ServerIP.Trim), CType(TelnetPort.Trim, Integer)))
    76. Threading.Thread.Sleep(3000)
    78. Dim ReciveBytes(255) As [Byte]
    79. Dim RecivvString As String = ""
    80. Dim NumerofBytes As Integer = 0
    81. Do
    82. NumerofBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
    83. RecivvString = RecivvString + Encoding.ASCII.GetString(ReciveBytes, 0, NumerofBytes).Replace(vbNewLine, "")
    84. Loop While NumerofBytes = 256
    86. Return RecivvString
    87. Catch ex As Exception
    88. MsgBox(ex.Message)
    89. Return ""
    90. End Try
    91. End Function
    92. End Module


    Fehler sind möglich: Keine Haftung für Fehler...

    Am anfang musst du kurz 3 Sekunden warten => gewollt so...xD

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „oli-f“ ()