Teamspeak Channel Liste
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
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
- [TS]
- OK
- id codec parent order maxusers name flags password topic
- 1 12 -1 4 100 "�,��� Willkommen ���,�" 24 0 "Default"
- 2 0 -1 1 0 "�����������������������������" 0 0 ""
- 3 0 -1 2 0 "����������� Regeln ���������" 0 0 ""
- 4 0 -1 2 0 "�������Ts-Telenummer�������" 0 0 "069 173 0905 16245"
- 5 0 -1 3 0 "���������������������������" 0 0 ""
- 6 0 -1 5 0 "���������������������������" 0 0 ""
- 7 12 -1 6 100 "�,��� Support ���,�" 8 0 ""
- 8 0 -1 7 0 "��������������������������" 0 0 ""
- 9 12 -1 8 100 "�,��� B�ro's ���,�" 12 1 ""
- 10 0 -1 9 0 "�����������������������������" 0 0 ""
- 11 12 -1 3000 0 "������� Member-Area ���������" 8 0 ""
- 12 12 -1 3005 100 "[----�� Norwegen Treff" 12 1 ""
- 13 0 -1 3199 0 "����������������������������" 0 0 ""
- 14 12 -1 3200 100 " (��._) AFK (_.���)" 10 0 ""
- 15 0 -1 2999 100 "�������������������������" 0 0 ""
- 16 12 -1 3002 100 "PittiPlatsch" 10 0 ""
- 17 12 1 1 100 "*�`�� Lounge" 0 0 ""
- 18 12 1 2 100 "*�`�� Labern-1" 0 0 ""
- 19 12 1 3 100 "*�`�� Labern-2" 0 0 ""
- 20 12 1 4 100 "*�`�� Labern-3" 0 0 ""
- 21 12 1 5 100 "*�`�� unter-4-Augen" 0 0 ""
- 22 12 7 1 100 "*�`�� Raum 1" 0 0 ""
- 23 12 7 2 100 "*�`�� Raum 2" 0 0 ""
- 24 12 7 3 100 "*�`�� Raum 3" 0 0 ""
- 25 12 9 1 100 "*�`�� FLOR" 0 0 ""
- 26 12 9 2 100 "*�`�� SilverDragon" 0 0 ""
- OK
-
Myrax schrieb:
Jo! geht klar!
Ich connecte auf den Server von S-Housing.net:
Hier der Log:
Spoiler anzeigen
Quellcode
- [TS]
- OK
- id codec parent order maxusers name flags password topic
- 1 12 -1 4 100 "�,��� Willkommen ���,�" 24 0 "Default"
- 2 0 -1 1 0 "�����������������������������" 0 0 ""
- 3 0 -1 2 0 "����������� Regeln ���������" 0 0 ""
- 4 0 -1 2 0 "�������Ts-Telenummer�������" 0 0 "069 173 0905 16245"
- 5 0 -1 3 0 "���������������������������" 0 0 ""
- 6 0 -1 5 0 "���������������������������" 0 0 ""
- 7 12 -1 6 100 "�,��� Support ���,�" 8 0 ""
- 8 0 -1 7 0 "��������������������������" 0 0 ""
- 9 12 -1 8 100 "�,��� B�ro's ���,�" 12 1 ""
- 10 0 -1 9 0 "�����������������������������" 0 0 ""
- 11 12 -1 3000 0 "������� Member-Area ���������" 8 0 ""
- 12 12 -1 3005 100 "[----�� Norwegen Treff" 12 1 ""
- 13 0 -1 3199 0 "����������������������������" 0 0 ""
- 14 12 -1 3200 100 " (��._) AFK (_.���)" 10 0 ""
- 15 0 -1 2999 100 "�������������������������" 0 0 ""
- 16 12 -1 3002 100 "PittiPlatsch" 10 0 ""
- 17 12 1 1 100 "*�`�� Lounge" 0 0 ""
- 18 12 1 2 100 "*�`�� Labern-1" 0 0 ""
- 19 12 1 3 100 "*�`�� Labern-2" 0 0 ""
- 20 12 1 4 100 "*�`�� Labern-3" 0 0 ""
- 21 12 1 5 100 "*�`�� unter-4-Augen" 0 0 ""
- 22 12 7 1 100 "*�`�� Raum 1" 0 0 ""
- 23 12 7 2 100 "*�`�� Raum 2" 0 0 ""
- 24 12 7 3 100 "*�`�� Raum 3" 0 0 ""
- 25 12 9 1 100 "*�`�� FLOR" 0 0 ""
- 26 12 9 2 100 "*�`�� SilverDragon" 0 0 ""
- OK
Lies es Zeilen weise aus und splitte nach jedem TAB dann hast du alles in einem Array Fertig ..
Mfg -
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
- //##############################################################################
- //#
- //# Function tsrGetChannels( tsrChannels : PtsrChannelInfo;
- //# ChannelRecords: PInteger): Integer;
- //#
- //# Description:
- //# Get a list of the channels on the server.
- //#
- //# Input:
- //# tsrChannels: A pointer to an array of TtsrChannelInfo records
- //# ChannelRecords: pointer to a integer which specifies how many
- //# TtsrChannelInfo records tsrChannels can hold.
- //#
- //# Output:
- //# Result: 0 = OK, else the error number
- //# if result = 0 then tsrChannels is filled with the channel info.
- //# ChannelRecords will have the number or records that were filled
- //#
- //##############################################################################
musst mal in der TsRemoteImport.pas schaun da sind auflistungen etc von den funktionen drinnenAntivirus 2.0: Der perfekte Schutz gegen Malware > Weitere Informationen
Debuggen, Fehler finden und beseitigen
Updater - Worauf sollte man bei eigenen Updatern achten? -
-
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
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-clientAntivirus 2.0: Der perfekte Schutz gegen Malware > Weitere Informationen
Debuggen, Fehler finden und beseitigen
Updater - Worauf sollte man bei eigenen Updatern achten? -
-
Hi,
Ich kabst geschaft das gene über das Query Port aus zu lesen.
VB.NET-Quellcode
- Dim client As TcpClient
- Dim stream As NetworkStream
- Dim stream_w As StreamWriter
- Dim stream_r As StreamReader
- Dim IPAdresse As String = "127.0.0.1" 'IP es TS2 Server
- Dim port As Integer = 8767 'Das UDP Port des TS2 Servers
- Dim queryport As Integer = 51234 'Das Query Port
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- client = New TcpClient
- Try
- client.Connect(IPAdresse, queryport) 'Verbindet zum TS2 server
- Catch ex As Exception
- MsgBox(ex.Message)
- Exit Sub
- End Try
- If client.Connected = True Then
- stream = client.GetStream()
- stream_r = New StreamReader(stream)
- stream_w = New StreamWriter(stream)
- Dim check As String = stream_r.ReadLine()
- If "[TS]".ToLower = check.ToLower Then 'Prüft ob es ein TS2 Server ist
- stream_w.WriteLine("cl " + port.ToString) 'Sendet die anfrage für die Cannels
- stream_w.Flush()
- Dim cl As String = ""
- Dim zeile As String = stream_r.ReadLine()
- While zeile.ToLower <> "OK".ToLower 'Liest so lan den Steam aus bist OK kommt
- cl += zeile + vbNewLine
- zeile = stream_r.ReadLine
- End While
- tren(cl)
- 'Schließt die Verbindung
- stream_w.Close()
- stream_r.Close()
- stream.Close()
- client.Close()
- End If
- End If
- End Sub
- Private Sub tren(ByVal code As String)
- Dim zeilen() As String = code.Split(vbNewLine) 'Zerteilt die Antwort in Zeilen
- 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.
- Dim info() As String = zeilen(i).Split(vbTab) 'Trennt die Zeile. Alle Infos sind mit einen Tab getrennt.
- If info.Length = 9 Then 'Das keine Fehler auftreten
- 'Ich hab einfach mal ein Listview genahmen
- Dim item As ListViewItem = ListView1.Items.Add(info(0)) 'ID
- item.SubItems.Add(info(1)) 'codec
- item.SubItems.Add(info(2)) 'parent
- item.SubItems.Add(info(3)) 'order
- item.SubItems.Add(info(4)) 'maxusers
- item.SubItems.Add(info(5)) 'name
- item.SubItems.Add(info(6)) 'flags
- item.SubItems.Add(info(7)) 'password
- item.SubItems.Add(info(8)) 'topic
- End If
- Next
- End Sub
-
-
-
-
-
Die Telnet Variante:
VB.NET-Quellcode
- Imports System.Net
- Imports System.Net.Sockets
- Imports System.Text
- Module Module1
- Dim TelnetSocket As Socket
- Sub Main()
- Dim ServerIP As String = InputBox("IPAdresse:", "IPAdresse", "79.170.193.54")
- Dim TelnetPort As String = InputBox("TelnetPort:", "TelnetPort", "51234")
- Dim TeamspeakPort As String = InputBox("TeamspeakPort:", "TeamspeakPort", "8768")
- If Connect(ServerIP, TelnetPort) = "[TS]" And SendCommand("sel " & TeamspeakPort) = "OK" Then
- Dim channels As String = ""
- 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)
- If vbchannels.Split(vbTab)(5) <> "" Then
- channels += vbchannels.Split(vbTab)(5).Replace(Chr(34), "") + ", "
- End If
- Next
- '------------------------'
- MsgBox(channels)
- '------------------------'
- Disconnect()
- Else
- MsgBox("Kein Teamspeak Server oder falsche Daten", MsgBoxStyle.Exclamation, "Fehler")
- Console.Clear()
- Disconnect()
- Main()
- End If
- End Sub
- Private Function SendCommand(ByVal command As String) As String
- Try
- If TelnetSocket.Connected = True Then
- Console.WriteLine("<=" & command)
- Dim SendedBytes As [Byte]() = Encoding.ASCII.GetBytes(command & vbCrLf)
- Dim ReciveBytes(255) As [Byte]
- Dim ReciveString As String = ""
- Dim NumBytes As Integer = 0
- TelnetSocket.Send(SendedBytes, SendedBytes.Length, SocketFlags.None)
- Do
- NumBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
- ReciveString = ReciveString + Encoding.ASCII.GetString(ReciveBytes, 0, NumBytes).Replace(vbNewLine, "")
- Loop While NumBytes = 256
- Console.WriteLine("=>" & ReciveString)
- Return ReciveString
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- Return ""
- Exit Function
- End Try
- Return ""
- End Function
- Public Sub Disconnect()
- Try
- Threading.Thread.Sleep(1000)
- TelnetSocket.Disconnect(False)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Public Function Connect(ByVal ServerIP As String, ByVal TelnetPort As String) As String
- TelnetSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
- Try
- TelnetSocket.Connect(New IPEndPoint(IPAddress.Parse(ServerIP.Trim), CType(TelnetPort.Trim, Integer)))
- Threading.Thread.Sleep(3000)
- Dim ReciveBytes(255) As [Byte]
- Dim RecivvString As String = ""
- Dim NumerofBytes As Integer = 0
- Do
- NumerofBytes = TelnetSocket.Receive(ReciveBytes, ReciveBytes.Length, 0)
- RecivvString = RecivvString + Encoding.ASCII.GetString(ReciveBytes, 0, NumerofBytes).Replace(vbNewLine, "")
- Loop While NumerofBytes = 256
- Return RecivvString
- Catch ex As Exception
- MsgBox(ex.Message)
- Return ""
- End Try
- End Function
- End Module
-
-
Ähnliche Themen
-
Julius - - Off-Topic
-
Teamspeak 3 in server joinen + channel
Andrejd1987 - - Sonstige Problemstellungen -
xDarkStaRx - - Internet- und Netzwerkprogrammierung