Direkt zum Inhalt

Willkommen auf meiner Seite kruegermark.de.

Du bist also damit einverstanden, dass diese Seite Daten für Statistiken, Analysen, personalisierte Inhalte und Werbung (natürlich innerhalb der Datenschutzrichtlinien), verwendet.

(¯`·.¸Hilfreiche Skripte (Scripts)¸.·´¯)

AutoIt - Skript für einen Teetimer/Teatimer

;Symbol "kleine rote Sanduhr" aus %SystemRoot%\system32\mmcbase.dll
TrayTip("", "Der Tee ist gleich fertig.", 5)
sleep(300000) ;300000

Dim $AppWinTitle, $AppChecked, $Debug
$Debug = 0 ;Debugmodus mit 1 aktivieren, sonst 0

Run("c:\windows\system32\control.exe mmsys.cpl,,0") ; Erste
Registerkarte von "Eigenschaften von Sounds und Audiogeräte"

$AppWinTitle = "Eigenschaften von Sounds und Audiogeräte"
WinWaitActive($AppWinTitle)

$AppChecked = ControlCommand($AppWinTitle, "", "Button2", "IsChecked",
"")
if $Debug then MsgBox(0,"Status:"," $AppChecked = " & $AppChecked )

If $AppChecked = 0 Then ;Prüfung ob "Ton an"
if $Debug then MsgBox(262144,"Sound","ist an!") ;"Ton an" disabled
;DEBUG
Else
if $Debug then MsgBox(262144,"Sound","ist aus!") ;"Ton aus" enabled
;DEBUG
ControlClick($AppWinTitle,"T&on aus",6697)
ControlClick($AppWinTitle,"Ü&bernehmen",12321)
EndIf

SoundPlay(@WindowsDir & "\media\starwars_click.wav", 1)

;;;; Sound wieder ausschalten, wenn er aus war
If $AppChecked = 1 Then
if $Debug then MsgBox(262144,"Sound","wieder ausschalten.") ;DEBUG
ControlClick($AppWinTitle,"T&on aus",6697)
ControlClick($AppWinTitle,"Ü&bernehmen",12321)
EndIf
WinClose($AppWinTitle)

MsgBox(262144,"Tassimo","Der Tee ist fertig!")