TeamSpeak

Chris213 · 22. Juli 2010, 15:29

Ich habe hier mal ein sehr Intressantes Thema gefunden. [VB.NET] Teamspeak Funktionen
Ich wollte fragen ob @oli-f den Open Source Code veröffentlichen könnte oder ob den jemand anders hat.

hal2000 · 22. Juli 2010, 15:30

Nimm die DLL mit dem Reflector auseinander.

Chris213 · 22. Juli 2010, 15:37

Was is ein Reflector

jvbsl · 22. Juli 2010, 16:14

red-gate.com/products/reflector/

ich denke, wenn du die Assembly dort per Drag&Drop reinziehst und dir das ganze anguckst, dass du dann schon bemerkst, was das Programm bewirkt

Chris213 · 22. Juli 2010, 16:18

OK danke

Chris213 · 22. Juli 2010, 17:07

Ich habe das jetzt alles schön mit dem Reflector hinbekommen, jetzt taucht aber ein Problem auf. Ich muss die Dll hinzufügen "TSRemote" aber ich kann die nicht hinzufügen, da sie keine richtige COM dll ist. Wie kann ich das beheben, gar nicht oder??

jvbsl · 22. Juli 2010, 17:41

die Dll muss einfach im selben Verzeichnis sein, dann kannst du diese über diese Declare Funktionen/Methoden aufrufen...

Chris213 · 22. Juli 2010, 22:46

Danke @jvbsl hat geklappt, nur sendet der keine Nachricht an den User, an was könnte das liegen??

VB.NET-Quellcode

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_verbinde.Click
Try
AccessTS.AccessTS.Connect(String.Concat(New String() {"teamspeak://", txt_ip.Text, ":", txt_port.Text, "?nickname=", txt_nick.Text, "?loginname=", txt_user.Text, "?password=", txt_pw.Text}))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim info As AccessTS.AccessTS.TtsrChannelInfo
For Each info In AccessTS.AccessTS.Channels
AccessTS.AccessTS.SendTextToChannel(info.ChannelID, "Hallo")
AccessTS.AccessTS.SendTextToChannel(info.ChannelParentID, "Hallo")
AccessTS.AccessTS.SendText("Hallo")
Next
End Sub

und im load event habe ich

VB.NET-Quellcode

AccessTS.AccessTS.Open()

stehen

edit:
Ich kann wenn ich das

VB.NET-Quellcode

AccessTS.AccessTS.Connect(String.Concat(New String() {"teamspeak://", txt_ip.Text, ":", txt_port.Text, "?nickname=", txt_nick.Text, "?loginname=", txt_user.Text, "?password=", txt_pw.Text}))

durch das

VB.NET-Quellcode

AccessTS.AccessTS.Connect(String.Concat(New String() {"teamspeak://" & txt_ip.Text & ":" & txt_port.Text & "?nickname=" & txt_nick.Text & "?loginname=" & txt_user.Text & "?password=", txt_pw.Text}))

ersetze kann ich mich mit dem ts server Verbinden, kann aber keine Nachricht senden, ich hoffe ihr könnt mir da helfen.

haufe · 24. Juli 2010, 05:52

Guten Morgen

geht das alles noch bei TS3, oder machste das mit TS2?

Mit Telnet funktioniert es.

Gruss Haufe

Seem · 24. Juli 2010, 09:55

Nein, das soll nicht für Teamspeak 3 sonder für Teamspeak 2

Evtl.einen fertigen Code?

Tsuyo · 24. Juli 2010, 10:07

Seem schrieb:

Nein, das soll nicht für Teamspeak 3 sonder für Teamspeak 2

Evtl.einen fertigen Code?

Evtl. Nö.
Das ist ein Programierforum, kein Obstbaum

Seem · 24. Juli 2010, 10:09

K Hast recht

Chris213 · 24. Juli 2010, 11:03

@haufe, wie haste das mit telnet gemacht??

Manawyrm · 25. Juli 2010, 11:19

Ein Teamspeak hat immer einen Telnetserver, mit dem kannst du Administrative Aufgaben erledigen,
den hat er angesteuert.

Chris213 · 25. Juli 2010, 11:51

und wie mache ich das genau??

haufe · 26. Juli 2010, 14:24

Du machst ein Telnet Client mit VB und steuerst dann Teamspeak so>>HIER<<

Oder du machst die Tsremote.dll aus dem Teamspeak Verzeichnis SDK ind dein Debug Ordner und benuzt den Code da^^

VB.NET-Quellcode

#Region "tsremote.dll"
<DllImport("TSRemote.dll")> _
Private Shared Sub tsrGetLastError(ByVal pchBuffer As IntPtr, ByVal BufferLength As Integer)
End Sub
<DllImport("TSRemote.dll")> _
Private Shared Function tsrConnect(ByVal URL As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrDisconnect() As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrQuit() As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSwitchChannelName(ByVal ChannelName As String, ByVal ChannelPassword As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSwitchChannelID(ByVal ChannelID As Integer, ByVal ChannelPassword As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetVersion(<[In](), Out()> ByVal tsrVersion As TtsrVersion) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetServerInfo(ByVal tsrServerInfo As IntPtr) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetUserInfo(ByVal tsrUserInfo As IntPtr) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetChannelInfoByID(ByVal ChannelID As Integer, ByVal tsrChannelInfo As IntPtr, ByVal tsrPlayerInfo As IntPtr, ByRef PlayerRecords As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetChannelInfoByName(ByVal ChannelName As String, ByVal tsrChannelInfo As IntPtr, ByVal tsrPlayerInfo As IntPtr, ByRef PlayerRecords As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetPlayerInfoByID(ByVal PlayerID As Integer, ByVal tsrPlayerInfo As IntPtr) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetPlayerInfoByName(ByVal PlayerName As String, ByVal tsrPlayerInfo As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetChannels(ByVal tsrChannels As IntPtr, ByRef ChannelRecords As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetPlayers(ByVal tsrPlayers As IntPtr, ByRef PlayerRecords As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrGetSpeakers(ByVal tsrPlayerIDs As Integer(), ByRef PlayerRecords As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSetPlayerFlags(ByVal tsrPlayerFlags As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSetWantVoiceReason(ByVal tsrReason As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSetOperator(ByVal PlayerID As Integer, ByVal GrantRevoke As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSetVoice(ByVal PlayerID As Integer, ByVal GrantRevoke As Integer) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrKickPlayerFromServer(ByVal PlayerID As Integer, ByVal Reason As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrKickPlayerFromChannel(ByVal PlayerID As Integer, ByVal Reason As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSendTextMessageToChannel(ByVal ChannelID As Integer, ByVal Message As String) As Integer
End Function
<DllImport("TSRemote.dll")> _
Private Shared Function tsrSendTextMessage(ByVal Message As String) As Integer
End Function
#End Region
#Region "Public Classes for use with TSRemote"
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class TtsrPlayerInfo
Public PlayerID As Integer = 0
Public ChannelID As Integer = 0
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
Public NickName As String = ""
Public PlayerChannelPrivileges As Integer = 0
Public PlayerPrivileges As Integer = 0
Public PlayerFlags As Integer = 0
Public Logintime As Integer = 0
Public Sub New()
PlayerID = 0
ChannelID = 0
NickName = New String(ControlChars.NullChar, 30)
PlayerChannelPrivileges = 0
PlayerPrivileges = 0
PlayerFlags = 0
Logintime = 0
End Sub
Friend Function ReadHeapValues(ByVal ip As IntPtr) As Integer
If ip.ToInt32() <> 0 Then
Dim offset As Integer = 0
Dim int_size As Integer = Marshal.SizeOf(GetType(Integer))
Dim str_size As Integer = 0
PlayerID = Marshal.ReadInt32(ip)
offset += int_size
ChannelID = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
str_size = NickName.Length
NickName = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
offset += str_size
PlayerChannelPrivileges = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
PlayerPrivileges = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
Logintime = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
PlayerFlags = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
Return 0
End If
Return -1
End Function
End Class
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class TtsrChannelInfo
Public ChannelID As Integer
Public ChannelParentID As Integer
Public PlayerCountInChannel As Integer
Public ChannelFlags As Integer
Public Codec As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
Public Name As String
Public Sub New()
ChannelID = 0
ChannelParentID = 0
PlayerCountInChannel = 0
ChannelFlags = 0
Codec = 0
Name = New String(ControlChars.NullChar, 30)
End Sub
Friend Function ReadHeapValues(ByVal ip As IntPtr) As Integer
If ip.ToInt32() <> 0 Then
Dim offset As Integer = 0
Dim int_size As Integer = Marshal.SizeOf(GetType(Integer))
ChannelID = Marshal.ReadInt32(ip)
offset += int_size
ChannelParentID = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
PlayerCountInChannel = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ChannelFlags = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
Codec = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
Name = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
Return 0
End If
Return -1
End Function
End Class
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class TtsrVersion
Public Major As Integer = 0
Public Minor As Integer = 0
Public Release As Integer = 0
Public Build As Integer = 0
End Class
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class TtsrServerInfo
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
Public ServerName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> _
Public WelcomeMessage As String
Public ServerVMajor As Integer
Public ServerVMinor As Integer
Public ServerVRelease As Integer
Public ServerVBuild As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
Public ServerPlatform As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=30)> _
Public ServerIp As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=100)> _
Public ServerHost As String
Public ServerType As Integer
Public ServerMaxUsers As Integer
Public SupportedCodecs As Integer
Public ChannelCount As Integer
Public PlayerCount As Integer
Public Sub New()
ServerName = New String(ControlChars.NullChar, 30)
WelcomeMessage = New String(ControlChars.NullChar, 256)
ServerVMajor = 0
ServerVMinor = 0
ServerVRelease = 0
ServerVBuild = 0
ServerPlatform = New String(ControlChars.NullChar, 30)
ServerIp = New String(ControlChars.NullChar, 30)
ServerHost = New String(ControlChars.NullChar, 100)
ServerType = 0
ServerMaxUsers = 0
SupportedCodecs = 0
ChannelCount = 0
PlayerCount = 0
End Sub
Friend Function ReadHeapValues(ByVal ip As IntPtr) As Integer
If ip.ToInt32() <> 0 Then
Dim offset As Integer = 0
Dim int_size As Integer = Marshal.SizeOf(offset)
Dim str_size As Integer = 0
str_size = ServerName.Length
ServerName = Marshal.PtrToStringAnsi(ip)
offset += str_size
str_size = WelcomeMessage.Length
WelcomeMessage = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
offset += str_size
ServerVMajor = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ServerVMinor = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ServerVRelease = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ServerVBuild = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
str_size = ServerPlatform.Length
ServerPlatform = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
offset += str_size
str_size = ServerIp.Length
ServerIp = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
offset += str_size
str_size = ServerHost.Length
ServerHost = Marshal.PtrToStringAnsi(New IntPtr(ip.ToInt32() + offset))
offset += str_size
ServerType = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ServerMaxUsers = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
SupportedCodecs = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
ChannelCount = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
offset += int_size
PlayerCount = Marshal.ReadInt32(New IntPtr(ip.ToInt32() + offset))
Return 0
End If
Return -1
End Function
End Class
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
Public Class TtsrUserInfo
Public Player As TtsrPlayerInfo
Public Channel As TtsrChannelInfo
Public ParentChannel As TtsrChannelInfo
Public Sub New()
Player = New TtsrPlayerInfo()
Channel = New TtsrChannelInfo()
ParentChannel = New TtsrChannelInfo()
End Sub
Friend Function ReadHeapValues(ByVal ip As IntPtr) As Integer
If ip.ToInt32() <> 0 Then
Dim offset As Integer = 0
Dim int_size As Integer = Marshal.SizeOf(GetType(Integer))
' Getting PlayerInfo
Player.ReadHeapValues(ip)
offset = Marshal.SizeOf(GetType(TtsrPlayerInfo))
Channel.ReadHeapValues(New IntPtr(ip.ToInt32() + offset - 2))
offset += Marshal.SizeOf(GetType(TtsrChannelInfo))
ParentChannel.ReadHeapValues(New IntPtr(ip.ToInt32() + offset - 4))
Return 0
End If
Return -1
End Function
End Class
#End Region

Greetz Haufe

Chris213 · 26. Juli 2010, 14:30

Danke das habe ich auch schon gefunden, da kommt aber ein Fehler siehe hier [VB 2008] SendMessage

haufe · 26. Juli 2010, 14:31

Teil 2

VB.NET-Quellcode

#Region "TSRemote Imports"
Dim tsuserchannelid As String
Dim tsuserid As String
Function GetPlayerInfo(ByVal player_name As String) As Integer
Try
Dim nRetVal As Integer = 0
Dim pi As New TtsrPlayerInfo()
Dim size As Integer = Marshal.SizeOf(GetType(TtsrPlayerInfo))
Dim p_player As System.IntPtr = Marshal.AllocHGlobal(size)
nRetVal = tsrGetPlayerInfoByName(player_name, p_player)
If nRetVal = 0 Then
nRetVal = pi.ReadHeapValues(p_player)
tsuserchannelid = pi.ChannelID
tsuserid = pi.PlayerID
End If
Marshal.DestroyStructure(p_player, GetType(TtsrPlayerInfo))
' Free the memory that was allocated on the heap, otherwise
' you will create a memory leak.
Marshal.FreeHGlobal(p_player)
Return pi.PlayerID
Catch ex As Exception
Return Nothing
End Try
End Function
Public Shared Function GetChannelInfo(ByVal channel_name As String) As Integer
Try
Dim nRetVal As Integer = 0
Dim records As Integer = 0
Dim ci As New TtsrChannelInfo()
Dim ci_size As Integer = Marshal.SizeOf(GetType(TtsrChannelInfo))
Dim p_channel As System.Int32 = Marshal.AllocHGlobal(ci_size)
nRetVal = tsrGetChannelInfoByName(channel_name, p_channel, DirectCast(0, Integer), records)
' now process the items
If nRetVal = 0 Then
nRetVal = ci.ReadHeapValues(p_channel)
Marshal.DestroyStructure(p_channel, GetType(TtsrChannelInfo))
End If
' Free the memory that was allocated on the heap, otherwise
' you will create a memory leak.
Marshal.FreeHGlobal(p_channel)
Return ci.ChannelID
Catch ex As Exception
Return Nothing
End Try
End Function
Public Shared ReadOnly Property Channels() As TtsrChannelInfo()
Get
Try
Dim size As Integer = 100
Dim retval As Integer = 0
Dim p_array As IntPtr
Dim p_current As IntPtr
Dim tci As New TtsrChannelInfo()
p_array = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(TtsrChannelInfo)))
retval = tsrGetChannels(p_array, size)
Dim channels1 As TtsrChannelInfo() = New TtsrChannelInfo(size - 1) {}
p_current = p_array
For i As Integer = 0 To size - 1
channels1(i) = New TtsrChannelInfo()
' this is where you'll create a new object and copy the data over instead of
' using this stupid array.
Marshal.PtrToStructure(p_current, channels1(i))
Marshal.DestroyStructure(p_current, GetType(TtsrChannelInfo))
p_current = DirectCast((CInt(p_current) + Marshal.SizeOf(GetType(TtsrChannelInfo)) - 2), Integer)
Next
Marshal.FreeHGlobal(p_array)
System.GC.Collect()
Return channels1
Catch ex As Exception
Return Nothing
End Try
End Get
End Property
Public Shared ReadOnly Property Players() As TtsrPlayerInfo()
Get
Try
Const MAX_PLAYERS As Integer = 200
Dim records As Integer = MAX_PLAYERS
Dim nRetVal As Integer = 0
Dim arr_players As TtsrPlayerInfo()
Dim size As Integer = Marshal.SizeOf(GetType(TtsrPlayerInfo)) * MAX_PLAYERS
Dim p_player As System.IntPtr = Marshal.AllocHGlobal(size)
Dim p_current As System.IntPtr
nRetVal = tsrGetPlayers(p_player, records)
If nRetVal = 0 Then
' keep track of our player pointer
p_current = p_player
arr_players = New TtsrPlayerInfo(records - 1) {}
For i As Integer = 0 To records - 1
arr_players(i) = New TtsrPlayerInfo()
nRetVal = arr_players(i).ReadHeapValues(p_current)
Marshal.DestroyStructure(p_current, GetType(TtsrPlayerInfo))
p_current = DirectCast((CInt(p_current) + Marshal.SizeOf(GetType(TtsrPlayerInfo)) - 6), Integer)
Next
Else
arr_players = New TtsrPlayerInfo(-1) {}
End If
' Free the memory that was allocated on the heap, otherwise
' you will create a memory leak.
Marshal.FreeHGlobal(p_player)
Return arr_players
Catch
Return Nothing
End Try
End Get
End Property
Public Shared ReadOnly Property ServerInfo() As TtsrServerInfo
Get
Try
Dim nRetVal As Integer = 0
Dim size As Integer = Marshal.SizeOf(GetType(TtsrServerInfo))
Dim si As New TtsrServerInfo()
Dim p_current As System.IntPtr = Marshal.AllocHGlobal(size)
nRetVal = tsrGetServerInfo(p_current)
If nRetVal = 0 Then
' this is where you'll create a new object and copy the data over instead of
' using this stupid array.
si.ReadHeapValues(p_current)
Marshal.DestroyStructure(p_current, GetType(TtsrServerInfo))
End If
' Free the memory that was allocated on the heap, otherwise
' you will create a memory leak.
Marshal.FreeHGlobal(p_current)
Return si
Catch ex As Exception
Return Nothing
End Try
End Get
End Property
#End Region

Chris213 · 26. Juli 2010, 14:36

<verzweiflung>ICH WILL NUR EINE NACHRICHT SCHICKEN </verzweiflung>

haufe · 26. Juli 2010, 14:39

man man man XD
ist doch einfach

VB.NET-Quellcode

<DllImport("TSRemote.dll")> _
Private Shared Function tsrSendTextMessageToChannel(ByVal ChannelID As Integer, ByVal Message As String) As Integer
End Function

und den code in ein button

VB.NET-Quellcode

tsrSendTextMessageToChannel(1,"hallo")

Nur noch zur Information:

Die Funktionen der TSREMOTE.dll können nur mit installierten und auch gestarteten Teamspeak 2 genuzt werden!!!!

TeamSpeak

TeamSpeak

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Seem schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

5 Benutzer haben hier geschrieben