#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
Opt('WinWaitDelay', 100)
Opt('WinDetectHiddenText', 1)
Opt('MouseCoordMode', 1)
Opt("WinTitleMatchMode", 2) ; match any substring
Opt("TrayIconDebug", 1) ; show the tray icon & linenumber for debugging default is 0 off
Opt("SendKeyDelay", 5) ; default is 5 ms
Opt("SendKeyDownDelay", 5) ; default a key is held down is 5 ms, moved from 10 to 15 10-28-18 still getting stray capital S in the document after the end of a paste sequence

HotKeySet("{ESC}", _Quit)

Func _Quit()
	Send("{VOLUME_MUTE}")
	Exit
EndFunc   ;==>_Quit

Local $iTimeout = 30 ; this is seconds

; Sleep(250)
Send("{VOLUME_MUTE}")
; $hGUI = GUICreate("", 0, 0, 0, 0, Default, $WS_EX_TOPMOST)
; GUISetState(@SW_HIDE, $hGUI)
; InputBox("Mute is on", "", "Mute is on", " ", "", "", 100, 100, 0, $hGUI)
; Sleep(30000) ; sleep for accuradio commercials
; Sleep(60000) ; made one minute as most commercial sets are back to back 30's
; Sleep(70000) ; commercials a bit longer than 60
; Display a message box with a nested variable in its text.
MsgBox($MB_SYSTEMMODAL, "", "Volume muted " & $iTimeout & "", $iTimeout)
Run("C:\Users\Dad\Documents\Auto It\Mute off.exe")


Func _Mute_for_timeout ()
	Send("{VOLUME_MUTE}")
EndFunc