Hallo Leute,
Ich bin gerade dabei ein Zusatzprogramm zu Teamspeak zu schreiben. Ich möchte jetzt, dass wenn man das Tray-Icon rechtsklickt ein Menü aufgeht mit den Funktionen "Mute Microphone", "Mute Speakers" und "Exit". Ich komme allerdings mit der Autoit-Hilfe nicht weiter und konnte hier im Forum auch nichts dazu finden. Kann mir da jemand helfen?
Danke schonmal im Vorraus
LG
Ich komme allerdings mit der Autoit-Hilfe nicht weiter und konnte hier im Forum auch nichts dazu finden. Kann mir da jemand helfen?
Willst du uns veräppeln? Schau dir mal die vielen Ergebnisse zur Suchanfrage "Traymenü" an: http://www.autoit.de/index.php?form=Search&searchID=86485&highlight=traymen%C3%BC
Nein, möchte ich nicht.
Wenn ich den Link anklicke kommt die Fehlermeldung "Du hast einen ungültigen Verweis aufgerufen".
//edit:
Wenn ich in die Suche "Traymenü" eingebe, wird nur dieser Thread hier angezeigt.
Es geht ihm nicht um das Traymenü selbst, sondern er will Mute Microphone und Mute Speakers von Ts benutzen.
Es geht ihm nicht um das Traymenü selbst, sondern er will Mute Microphone und Mute Speakers von Ts benutzen.
Nein, es geht im darum diese Punkte aus einem eigenen Traymenü aufzurufen.
Ruf die SuFu auf: - Erweiterte Suche - Haken raus bei "exakter Treffer" !! - und dann gib ein: Traymenü ==> über 100 Treffer
Beides -- auch, wie ich die Funktionen von TS mit dem Programm benutzen kann.
Hier mal das Hilfe-Bsp. umgestrickt.
#Include <Constants.au3>
Opt("TrayMenuMode",1)
$microfonitem = TrayCreateItem("Mute Microphone")
$speakeritem = TrayCreateItem("Mute Speakers")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = TrayGetMsg()
Select
Case $msg = $microfonitem
MsgBox(0, '', 'Func Mikro aus')
; Mikro aus
Case $msg = $speakeritem
MsgBox(0, '', 'Func Speaker aus')
; Speaker aus
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
Exit
[/autoit]Wenn es für Mic aus und Speaker aus Hotkeys gibt, kannst du diese ja ausführen bei Aufruf des TrayItems.
Danke schonmal, Hotkeys kann ich aber leider keine benutzen, da diese auf jedem Rechner anders sein können und man dann ja auch gleich selbst die Hotkeys benutzen könnte. Kann man an minimierte Programme Tastenbefehle senden, ohne dass sie dabei geöffnet werden?
Kann man an minimierte Programme Tastenbefehle senden, ohne dass sie dabei geöffnet werden?
Sends simulated keystrokes to the active window.
Erklärt alles.
#Include <Constants.au3>
Opt("TrayMenuMode",1)
$microfonitem= TrayCreateItem("Mute Microphone")
$speakeritem= TrayCreateItem("Mute Speakers")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
TraySetState()
[/autoit][autoit][/autoit][autoit]While 1
$msg = TrayGetMsg()
Select
Case $msg = $microfonitem
MsgBox(0, '', 'Func Mikro aus')
WinActivate("TeamSpeak 2")
Send("{ALT}")
Send("{RIGHT}")
Send("{RIGHT}")
Send("{RIGHT}")
Send("{DOWN}")
Send("{DOWN}")
Send("{Enter}")
Case $msg = $speakeritem
MsgBox(0, '', 'Func Speaker aus')
WinActivate("TeamSpeak 2")
Send("{ALT}")
Send("{RIGHT}")
Send("{RIGHT}")
Send("{RIGHT}")
Send("{DOWN}")
Send("{DOWN}")
Send("{DOWN}")
Send("{Enter}")
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
$last = "0"
[/autoit][autoit][/autoit][autoit]$run = regread("HKEY_CLASSES_ROOT\teamspeak\DefaultIcon","")
[/autoit][autoit][/autoit][autoit]If @error Then
MsgBox(0, "Fehler", "Teamspeak konnte nicht gefunden werden")
Exit
EndIf
run($run)
If @error Then
MsgBox(0, "Fehler", "Teamspeak konnte nicht gefunden werden")
Exit
EndIf
While 1
$msg = WinGetText("TeamSpeak 2")
$parts = StringSplit($msg, @CRLF)
If (UBound($parts) -3) > -1 Then
$letzte = $parts[$parts[0] - 3]
Select
Case StringInStr($letzte, "joined channel")
?
If $last = $res[0] Then
Sleep(100)
ContinueLoop
Else
TrayTip("Teamspeak", $res[0], 5)
$last = $res[0]
EndIf
EndSelect
Else
Sleep(30)
EndIf
WEnd
(63,17) : ERROR: syntax error (illegal character)
(64,36) : WARNING: $res: possibly used before declaration.
(64,36) : ERROR: $res: undeclared global variable.
Vor dem Einbau des Tray-Menüs ging es noch. Kann mir jemand sagen, woran es liegt?
(63,17) : ERROR: syntax error (illegal character) Da steht einfach ein fragezeichen!
(64,36) : WARNING: $res: possibly used before declaration. $res wird nirgends deklariert
(64,36) : ERROR: $res: undeclared global variable. s.o.
//EDIT: DA sind 2 While-Endlosschleifen! wie soll das Programm von der einen in die andere kommen?
Also was du mit der 2. While schleife so genau bezwecken willst weis ich nicht. Ich weis nur, dass Sich TS über die TSRemote.dll um einiges leichter steuern lässt.
#Include <Constants.au3>
Opt("TrayMenuMode",1)
$dll = DllOpen("TSRemote.dll")
$microfonitem = TrayCreateItem("Mute Microphone")
$speakeritem = TrayCreateItem("Mute Speakers")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")
$mutemic = False
$mutephone = False
TraySetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = TrayGetMsg()
Select
Case $msg = $microfonitem
If $mutemic = False Then
DllCall($dll,"INT", "tsrSetPlayerFlags", "INT", 61584)
$mutemic = True
Else
DllCall($dll,"INT", "tsrSetPlayerFlags", "INT", 67584)
$mutemic = False
EndIf
Case $msg = $speakeritem
If $mutephone = False Then
DllCall($dll,"INT", "tsrSetPlayerFlags", "INT", 63584)
$mutephone = True
Else
DllCall($dll,"INT", "tsrSetPlayerFlags", "INT", 67584)
$mutephone = False
EndIf
Case $msg = $exititem
ExitLoop
EndSelect
WEnd
Exit
Die Perfekte Lösung ist es vielleichtnicht, aber die DLL ist einfach nur so gut wie nicht dokumentiert.
DLL im Anhang.
frage ... Offrtopic:
wie ktiegt man den param1 einer dll?
mit depends22 werden nur die funktionen angezeigt
weiß keiner ne lösung?
