Hi,
da mir die Push-To-Talk Funktion bei Skype fehlte, habe ich mir die schnell in AutoIt nachgerüstet.
Das Ganze läuft über das Skype COM Objekt.
Hier der Code:
[autoit]#include <Misc.au3>
$oSkype = ObjCreate("Skype4COM.Skype") ;Skype Object
$oSkype.Attach() ;Mit Skype verbinden (Wichtig: Zugriff muss in Skype zugelassen werden!)
$sAttach = $oSkype.AttachmentStatus
If $sAttach = "Success" Or $sAttach = "Erfolg" Then ;Deutsche und Englische Version
$oSkype.Mute = "True" ;Mikro standartmäßig auf mute stellen
While 1
If _IsPressed("10") Then
$oSkype.Mute = "False" ;Mikro freischalten bei Tastendruck
While _IsPressed("10")
sleep(64)
WEnd
$oSkype.Mute = "True" ;Mikro wieder stummschalten
EndIf
sleep(100)
WEnd
Else
MsgBox(0, "Fehler", "Verbinden mit Skype fehlgeschlagen!")
EndIf
Das Script ist nur eine minimale Fassung, wer meint, er brauchts, kann auch noch genauere Fehlerabfragen einbauen.
Viel Spaß damit
Wenn ich Zeit und Lust habe und Interesse besteht, mach ich mal eine UDF, die etwas mehr Funktionen hat.
Edit: An alle mit der 64 Bit Version von AutoIt: Ihr müsst das Script im 86x Modus starten/compilieren, da ansonsten Fehler auftreten
Edit2: Standartmäßig funkt das ganze mit der Shift Taste (10). Wenn eine andere Taste gewünscht ist, bitte die 10 bei _IsPressed ändern.