Teamspeak Channel Liste

  • VB.NET

Es gibt 19 Antworten in diesem Thema. Der letzte Beitrag () ist von Proof83.

    Hi,

    Du musst eine TCP Verbindung über das Port 10011 zum TS3 Server aufbauen.
    Du kanst einfach ein verbindung mit der telnet.exe aufbauen zu herrum probieren.
    Du kannst help eingeben dann listet er dir alle Befehle auf oder du ladest dir den TS3 Server runter.
    Da sind dan im Ordner serverquerydocs alle Befehle dirn mit Beschreibung.

    Jo! geht klar!
    Ich connecte auf den Server von S-Housing.net:
    Hier der Log:


    Spoiler anzeigen

    Quellcode

    1. [TS]
    2. OK
    3. id codec parent order maxusers name flags password topic
    4. 1 12 -1 4 100 "�,��� Willkommen ���,�" 24 0 "Default"
    5. 2 0 -1 1 0 "�����������������������������" 0 0 ""
    6. 3 0 -1 2 0 "����������� Regeln ���������" 0 0 ""
    7. 4 0 -1 2 0 "�������Ts-Telenummer�������" 0 0 "069 173 0905 16245"
    8. 5 0 -1 3 0 "���������������������������" 0 0 ""
    9. 6 0 -1 5 0 "���������������������������" 0 0 ""
    10. 7 12 -1 6 100 "�,��� Support ���,�" 8 0 ""
    11. 8 0 -1 7 0 "��������������������������" 0 0 ""
    12. 9 12 -1 8 100 "�,��� B�ro's ���,�" 12 1 ""
    13. 10 0 -1 9 0 "�����������������������������" 0 0 ""
    14. 11 12 -1 3000 0 "������� Member-Area ���������" 8 0 ""
    15. 12 12 -1 3005 100 "[----�� Norwegen Treff" 12 1 ""
    16. 13 0 -1 3199 0 "����������������������������" 0 0 ""
    17. 14 12 -1 3200 100 " (��._) AFK (_.���)" 10 0 ""
    18. 15 0 -1 2999 100 "�������������������������" 0 0 ""
    19. 16 12 -1 3002 100 "PittiPlatsch" 10 0 ""
    20. 17 12 1 1 100 "*�`�� Lounge" 0 0 ""
    21. 18 12 1 2 100 "*�`�� Labern-1" 0 0 ""
    22. 19 12 1 3 100 "*�`�� Labern-2" 0 0 ""
    23. 20 12 1 4 100 "*�`�� Labern-3" 0 0 ""
    24. 21 12 1 5 100 "*�`�� unter-4-Augen" 0 0 ""
    25. 22 12 7 1 100 "*�`�� Raum 1" 0 0 ""
    26. 23 12 7 2 100 "*�`�� Raum 2" 0 0 ""
    27. 24 12 7 3 100 "*�`�� Raum 3" 0 0 ""
    28. 25 12 9 1 100 "*�`�� FLOR" 0 0 ""
    29. 26 12 9 2 100 "*�`�� SilverDragon" 0 0 ""
    30. OK

    Myrax schrieb:

    Jo! geht klar!
    Ich connecte auf den Server von S-Housing.net:
    Hier der Log:


    Spoiler anzeigen

    Quellcode

    1. [TS]
    2. OK
    3. id codec parent order maxusers name flags password topic
    4. 1 12 -1 4 100 "�,��� Willkommen ���,�" 24 0 "Default"
    5. 2 0 -1 1 0 "�����������������������������" 0 0 ""
    6. 3 0 -1 2 0 "����������� Regeln ���������" 0 0 ""
    7. 4 0 -1 2 0 "�������Ts-Telenummer�������" 0 0 "069 173 0905 16245"
    8. 5 0 -1 3 0 "���������������������������" 0 0 ""
    9. 6 0 -1 5 0 "���������������������������" 0 0 ""
    10. 7 12 -1 6 100 "�,��� Support ���,�" 8 0 ""
    11. 8 0 -1 7 0 "��������������������������" 0 0 ""
    12. 9 12 -1 8 100 "�,��� B�ro's ���,�" 12 1 ""
    13. 10 0 -1 9 0 "�����������������������������" 0 0 ""
    14. 11 12 -1 3000 0 "������� Member-Area ���������" 8 0 ""
    15. 12 12 -1 3005 100 "[----�� Norwegen Treff" 12 1 ""
    16. 13 0 -1 3199 0 "����������������������������" 0 0 ""
    17. 14 12 -1 3200 100 " (��._) AFK (_.���)" 10 0 ""
    18. 15 0 -1 2999 100 "�������������������������" 0 0 ""
    19. 16 12 -1 3002 100 "PittiPlatsch" 10 0 ""
    20. 17 12 1 1 100 "*�`�� Lounge" 0 0 ""
    21. 18 12 1 2 100 "*�`�� Labern-1" 0 0 ""
    22. 19 12 1 3 100 "*�`�� Labern-2" 0 0 ""
    23. 20 12 1 4 100 "*�`�� Labern-3" 0 0 ""
    24. 21 12 1 5 100 "*�`�� unter-4-Augen" 0 0 ""
    25. 22 12 7 1 100 "*�`�� Raum 1" 0 0 ""
    26. 23 12 7 2 100 "*�`�� Raum 2" 0 0 ""
    27. 24 12 7 3 100 "*�`�� Raum 3" 0 0 ""
    28. 25 12 9 1 100 "*�`�� FLOR" 0 0 ""
    29. 26 12 9 2 100 "*�`�� SilverDragon" 0 0 ""
    30. OK


    Lies es Zeilen weise aus und splitte nach jedem TAB dann hast du alles in einem Array Fertig ..

    Mfg
    Grüße , xChRoNiKx

    Nützliche Links:
    Visual Studio Empfohlene Einstellungen | Try-Catch heißes Eisen

    schau mal im ts2 client nach *also im ordner wo es installiert ist* da isn ordner namens "client_sdk" ... der enthält u.a ne dll mit verschiedenen lustigen funktionen ;) wie zb folgender

    Quellcode

    1. //##############################################################################
    2. //#
    3. //# Function tsrGetChannels( tsrChannels : PtsrChannelInfo;
    4. //# ChannelRecords: PInteger): Integer;
    5. //#
    6. //# Description:
    7. //# Get a list of the channels on the server.
    8. //#
    9. //# Input:
    10. //# tsrChannels: A pointer to an array of TtsrChannelInfo records
    11. //# ChannelRecords: pointer to a integer which specifies how many
    12. //# TtsrChannelInfo records tsrChannels can hold.
    13. //#
    14. //# Output:
    15. //# Result: 0 = OK, else the error number
    16. //# if result = 0 then tsrChannels is filled with the channel info.
    17. //# ChannelRecords will have the number or records that were filled
    18. //#
    19. //##############################################################################

    musst mal in der TsRemoteImport.pas schaun da sind auflistungen etc von den funktionen drinnen :)

    schau dir da am besten ma die seite hier an^^
    dotnetbase.de/topic/465-teamspeak/page__p__3769#entry3769

    hab selbst au noch nich mit der dll gearbeitet wusste nur das es die gibt :D
    was aber n "problem" ist du musst mim ts2 client auf dem server sei um mit der dll infos etc abzufragen ....
    die dll is also eig nichts anderes als ne fernbedienung für dein ts2-client

    Hi,

    Ich kabst geschaft das gene über das Query Port aus zu lesen.

    VB.NET-Quellcode

    1. Dim client As TcpClient
    2. Dim stream As NetworkStream
    3. Dim stream_w As StreamWriter
    4. Dim stream_r As StreamReader
    6. Dim IPAdresse As String = "127.0.0.1" 'IP es TS2 Server
    7. Dim port As Integer = 8767 'Das UDP Port des TS2 Servers
    8. Dim queryport As Integer = 51234 'Das Query Port
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    12. client = New TcpClient
    14. Try
    15. client.Connect(IPAdresse, queryport) 'Verbindet zum TS2 server
    16. Catch ex As Exception
    17. MsgBox(ex.Message)
    18. Exit Sub
    19. End Try
    21. If client.Connected = True Then
    23. stream = client.GetStream()
    24. stream_r = New StreamReader(stream)
    25. stream_w = New StreamWriter(stream)
    27. Dim check As String = stream_r.ReadLine()
    29. If "[TS]".ToLower = check.ToLower Then 'Prüft ob es ein TS2 Server ist
    31. stream_w.WriteLine("cl " + port.ToString) 'Sendet die anfrage für die Cannels
    32. stream_w.Flush()
    34. Dim cl As String = ""
    35. Dim zeile As String = stream_r.ReadLine()
    37. While zeile.ToLower <> "OK".ToLower 'Liest so lan den Steam aus bist OK kommt
    39. cl += zeile + vbNewLine
    40. zeile = stream_r.ReadLine
    42. End While
    44. tren(cl)
    46. 'Schließt die Verbindung
    47. stream_w.Close()
    48. stream_r.Close()
    49. stream.Close()
    50. client.Close()
    52. End If
    54. End If
    56. End Sub
    58. Private Sub tren(ByVal code As String)
    60. Dim zeilen() As String = code.Split(vbNewLine) 'Zerteilt die Antwort in Zeilen
    62. For i As Integer = 1 To zeilen.Length - 1 'Geht die Zeilen ab. i ist des wegen 1 weil die Zeile 0 nur die Spalten Name beinhaltet.
    64. Dim info() As String = zeilen(i).Split(vbTab) 'Trennt die Zeile. Alle Infos sind mit einen Tab getrennt.
    66. If info.Length = 9 Then 'Das keine Fehler auftreten
    68. 'Ich hab einfach mal ein Listview genahmen
    69. Dim item As ListViewItem = ListView1.Items.Add(info(0)) 'ID
    70. item.SubItems.Add(info(1)) 'codec
    71. item.SubItems.Add(info(2)) 'parent
    72. item.SubItems.Add(info(3)) 'order
    73. item.SubItems.Add(info(4)) 'maxusers
    74. item.SubItems.Add(info(5)) 'name
    75. item.SubItems.Add(info(6)) 'flags
    76. item.SubItems.Add(info(7)) 'password
    77. item.SubItems.Add(info(8)) 'topic
    79. End If
    81. Next
    84. End Sub

    Die Telnet Variante:

    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", "79.170.193.54")
    8. Dim TelnetPort As String = InputBox("TelnetPort:", "TelnetPort", "51234")
    9. Dim TeamspeakPort As String = InputBox("TeamspeakPort:", "TeamspeakPort", "8768")
    11. If Connect(ServerIP, TelnetPort) = "[TS]" And SendCommand("sel " & TeamspeakPort) = "OK" Then
    12. Dim channels As String = ""
    13. For Each vbchannels In SendCommand("cl").Replace("id" + vbTab + "codec" + vbTab + "parent" + vbTab + "order" + vbTab + "maxusers" + vbTab + "name" + vbTab + "flags" + vbTab + "password" + vbTab + "topic", "").Split(vbNewLine)
    14. If vbchannels.Split(vbTab)(5) <> "" Then
    15. channels += vbchannels.Split(vbTab)(5).Replace(Chr(34), "") + ", "
    16. End If
    17. Next
    18. '------------------------'
    19. MsgBox(channels)
    20. '------------------------'
    21. Disconnect()
    22. Else
    23. MsgBox("Kein Teamspeak Server oder falsche Daten", MsgBoxStyle.Exclamation, "Fehler")
    24. Console.Clear()
    25. Disconnect()
    26. Main()
    27. End If
    28. End Sub
    29. Private Function SendCommand(ByVal command As String) As String
    30. Try
    31. If TelnetSocket.Connected = True Then
    32. Console.WriteLine("<=" & command)
    33. Dim SendedBytes As [Byte]() = Encoding.ASCII.GetBytes(command & vbCrLf)
    34. Dim ReciveBytes(255) As [Byte]
    35. Dim ReciveString As String = ""
    36. Dim NumBytes As Integer = 0
    37. TelnetSocket.Send(SendedBytes, SendedBytes.Length, SocketFlags.None)
    38. Do
    39. NumBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
    40. ReciveString = ReciveString + Encoding.ASCII.GetString(ReciveBytes, 0, NumBytes).Replace(vbNewLine, "")
    41. Loop While NumBytes = 256
    42. Console.WriteLine("=>" & ReciveString)
    43. Return ReciveString
    44. End If
    45. Catch ex As Exception
    46. MsgBox(ex.Message)
    47. Return ""
    48. Exit Function
    49. End Try
    50. Return ""
    51. End Function
    52. Public Sub Disconnect()
    53. Try
    54. Threading.Thread.Sleep(1000)
    55. TelnetSocket.Disconnect(False)
    56. Catch ex As Exception
    57. MsgBox(ex.Message)
    58. End Try
    59. End Sub
    60. Public Function Connect(ByVal ServerIP As String, ByVal TelnetPort As String) As String
    61. TelnetSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    62. Try
    63. TelnetSocket.Connect(New IPEndPoint(IPAddress.Parse(ServerIP.Trim), CType(TelnetPort.Trim, Integer)))
    64. Threading.Thread.Sleep(3000)
    66. Dim ReciveBytes(255) As [Byte]
    67. Dim RecivvString As String = ""
    68. Dim NumerofBytes As Integer = 0
    69. Do
    70. NumerofBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
    71. RecivvString = RecivvString + Encoding.ASCII.GetString(ReciveBytes, 0, NumerofBytes).Replace(vbNewLine, "")
    72. Loop While NumerofBytes = 256
    74. Return RecivvString
    75. Catch ex As Exception
    76. MsgBox(ex.Message)
    77. Return ""
    78. End Try
    79. End Function
    80. End Module

Facebook
Telefonspende