_MuteActiveWindow - Sound vom aktiven Fenster stumm schalten.

#RequireAdmin
#include <StringConstants.au3>
#include <TrayConstants.au3>
#include <Process.au3>
#include <File.au3>
#include <FileConstants.au3>
#include "ScalingMessageBox.au3"
#include "_GetCurrentSoundDevice.au3"
#include <Array.au3>
#include <WinAPI.au3>
#include <_MuteActiveWindow.au3>

Opt("TrayMenuMode", 3)
Opt("TrayIconDebug", 1)

Global $IsMinimized = 0
Global $ActualWindow

HotKeySet("+!s", "SwitchSoundDevice") ; Shift-Alt-t. - Hotkey to switch between devices.
HotKeySet("+!k", "AppMinMax") ; Shift-Alt-k. - Hotkey to minimize/maximize current app.
HotKeySet("+!t", "Taskkiller") ; Shift-Alt-t. - Hotkey to kill current app.
HotKeySet("+!f", "SteamFriends") ; Shift-Alt-f. - Hotkey to open Steam Friends.
HotKeySet("+!n", "Notepad") ; Shift-Alt-N. - Hotkey for Notepad Function.
HotKeySet("+!m", "_MuteActiveWindow") ; Shift-Alt-M. - Hotkey to mute active window sound.
HotKeySet("+!c", "SciTEClipboard") ; Shift-Alt-M. - Hotkey to mute active window sound.

If Not ProcessExists("aida64.exe") Or Not ProcessExists("RemotePanel.exe") Or Not ProcessExists("PerfTune.exe") Then AutoStart()
local $dcPID[3]
$dcPID[0] = 2
$dcPID[1] = ShellExecute("D:\Batch Space\WindowsAutomation\DownloadControl.au3")
$dcPID[2] = ShellExecute("D:\Batch Space\WindowsAutomation\FrapsMessage.au3")
SwitchSoundDevice("Speaker") ;-> Selecting Speaker on Startup.

Local $iSteam = TrayCreateItem("Steam")
    TrayCreateItem("") ; Create a separator line.
Local $iMobileAuthenticator = TrayCreateItem("Mobile Authenticator")
    TrayCreateItem("") ; Create a separator line.
Local $iGames = TrayCreateMenu("Games") ; Create a tray menu sub menu with two sub items.
Local $iPUBG = TrayCreateItem("PLAYERUNKNOWN'S BATTLEGROUNDS", $iGames)
Local $iDARWIN = TrayCreateItem("Darwin Project", $iGames)
Local $iFORTNITE = TrayCreateItem("Fortnite Battle Royale", $iGames)
    TrayCreateItem("") ; Create a separator line.
Local $iStopWatch = TrayCreateItem("StopWatch")
    TrayCreateItem("") ; Create a separator line.
Local $iTimer = TrayCreateItem("Timer")
    TrayCreateItem("") ; Create a separator line.
Local $iTaskManager = TrayCreateItem("TaskManager")
    TrayCreateItem("") ; Create a separator line.
Local $iRestartSensor = TrayCreateItem("RestartSensor")
    TrayCreateItem("") ; Create a separator line.
Local $iShutdown = TrayCreateItem("Shutdown")
    TrayCreateItem("") ; Create a separator line.
Local $idExit = TrayCreateItem("Exit")
    TraySetState($TRAY_ICONSTATE_SHOW) ; Show the tray menu.

While 1
    Switch TrayGetMsg()
        Case $iSteam
            ShellExecute("D:\Spiele\Steam\Steam.exe")

        Case $iMobileAuthenticator
            ShellExecute("D:\Batch Space\WindowsAutomation\MobileAuthenticator.au3")

        Case $iPUBG
            ShellExecute("steam://rungameid/578080")

        Case $iDARWIN
            ShellExecute("steam://rungameid/544920")

        Case $iFORTNITE
            Run("D:\Spiele\Epic Games\Fortnite\FortniteGame\Binaries\Win64\FortniteClient-Win64-Shipping.exe")

        Case $iStopWatch
            ShellExecute("D:\Batch Space\WindowsAutomation\StopWatch.au3")

        Case $iTimer
            ShellExecute("D:\Batch Space\Timer\Timer.bat")

        Case $iTaskManager
            ShellExecute("D:\Batch Space\TaskManager\Taskmanager.bat")

        Case $iRestartSensor
            If ProcessExists("RemotePanel.exe") Then ProcessClose("RemotePanel.exe")
            If ProcessExists("aida64.exe") Then ProcessClose("aida64.exe")
            ScreenState()
            ShellExecute("C:\Program Files (x86)\FinalWire\AIDA64 Extreme\aida64.exe","",@SW_SHOWNORMAL)
            Run("C:\Program Files (x86)\Odospace\Remote Panel\RemotePanel.exe")

        Case $iShutdown
            ShellExecute("D:\Batch Space\WindowsAutomation\Shutdown.au3")

        Case $idExit
            for $i = 1 To $dcPID[0]
            If ProcessExists($dcPID[$i]) Then ProcessClose($dcPID[$i])
        Next
            Exit

    EndSwitch
WEnd

Func SciTEClipboard()
    _sMsgBox("SciTE Clipboard", "MsgBox;_sMsgBox", "Choose a option: ", "db=1;to=7;tr=10")
    if @extended = 1 Then ClipPut('MsgBox(0, "Test", "Test")')
    if @extended = 2 Then ClipPut('_sMsgBox("Test", "Ok", "Test", "")'&@CRLF)
    Return
EndFunc

Func Notepad()
    _sMsgBox("Launch SciTE or Notepad++?", "SciTE;Notepad++", "Launch SciTE or Notepad++?", "db=1;to=10;tr=10")
        if @extended = 1 Then Run("C:\Program Files (x86)\AutoIt3\SciTE\SciTE.exe")
        if @extended = 2 Then Run("C:\Program Files (x86)\Notepad++\notepad++.exe")
EndFunc

Func SwitchSoundDevice($SoundDevice = "")
    local $NirCMD = "D:\Batch Space\tools\nircmd.exe" ; nircmd.exe path
    local $IconPath = "D:\Batch Space\ICON\" ; Icons path
    local $CurrentDevice = StringLeft(_GetCurrentSoundDevice(), 7)
    If Not IsDeclared("SoundDevice") Then
        if $CurrentDevice = "Headset" Then Local $SoundDevice = "Speaker"
        if $CurrentDevice = "Speaker" Then Local $SoundDevice = "Headset"
        Run($NirCMD & " setdefaultsounddevice " & $SoundDevice)
    EndIf
    TrayTip($SoundDevice & " active.", " ", 1, $TIP_ICONASTERISK)
    TraySetToolTip($SoundDevice & " active.")
    TraySetIcon($IconPath & $SoundDevice & ".ico")
    Local $sActualWindow = WinGetTitle("[ACTIVE]")
    If $SoundDevice = "Headset" Then
        If Not ProcessExists("ts3client_win64.exe") Then
            _sMsgBox("Headset Active, Teamspeak not.", "Yes;No", "Headset active, TeamSpeak 3 is not running.", "db=1;to=10")
            If @extended = 1 Then
                ShellExecute("C:\Program Files\TeamSpeak 3 Client\ts3client_win64.exe")
                WinWaitActive("TeamSpeak3")
            EndIf
        EndIf
    EndIf
    If ProcessExists("ts3client_win64.exe") Then
        WinActivate("TeamSpeak3")
        If $SoundDevice = "Speaker" Then Send("!b") ; Alt + b -> Mute Mic/Speaker in Teamspeak.
        If $SoundDevice = "Headset" Then Send("!m") ; Alt + m -> Unmute Mic/Speaker in Teamspeak.
    EndIf
    If WinExists($sActualWindow) Then WinActivate($sActualWindow)
EndFunc

Func AppMinMax($IsMinimized) ;==>AppMinMax function.
    If $IsMinimized = 0 Then
        $ActualWindow = WinGetTitle("[ACTIVE]")
        TraySetState($TRAY_ICONSTATE_FLASH)
        WinSetState($ActualWindow, "", @SW_MINIMIZE)
        TraySetToolTip("Minimized: " & $ActualWindow)
        $IsMinimized = 1
    else
        Local $Process = _ProcessGetName(WinGetProcess($ActualWindow))
        For $i = 1 to _FileCountLines("D:\Batch Space\WindowsAutomation\Games.txt")
        $Line = FileReadLine("D:\Batch Space\WindowsAutomation\Games.txt", $i)
        If $line = $Process Then
            If WinExists($ActualWindow) Then
                WinActivate($ActualWindow)
                WinSetState($ActualWindow, "", @SW_MAXIMIZE)
            EndIf
            ExitLoop
        EndIf
        Next
        WinActivate($ActualWindow)
        TraySetToolTip("Restored: " & $ActualWindow)
        TraySetState($TRAY_ICONSTATE_STOPFLASH)
        $IsMinimized = 0
    EndIf
EndFunc ;==>AppMinMax stop.

Func Taskkiller() ;==>Taskkiller function.
    local $Window = WinGetTitle("[ACTIVE]")
    local $Process = _ProcessGetName(WinGetProcess($Window))
    _sMsgBox("Kill " & $Process  & "?", "Yes.;No.", "Do you like to kill: " &@LF&@LF& $Window & "?", "db=1;to=1,20")
        If @extended = 1 Then ProcessClose($Process)
    If WinExists($Window) Then WinActivate($Window)
EndFunc ;==>Taskkiller stop.

Func SteamFriends() ;==>SteamFriends function.
    ShellExecute("steam://open/friends/")
    AppMinMax(0)
    WinActivate("Friends")
EndFunc ;==>SteamFriends stop.

Func AutoStart()
    TraySetToolTip("Autorun active.")
    TraySetIcon("D:\Batch Space\ICON\Autorun.ico")
    TraySetState($TRAY_ICONSTATE_FLASH)
    RunWait('regedit /s "D:\Batch Space\WindowsAutomation\REGISTRY.reg"')
    ShellExecute("C:\Program Files (x86)\Intel\Intel(R) Extreme Tuning Utility\Client\PerfTune.exe","",@SW_SHOWNORMAL)
    WinWaitActive("Intel® Extreme Tuning Utility", "", 20)
    WinActivate("Intel® Extreme Tuning Utility")
    WinClose("Intel® Extreme Tuning Utility")
    If ProcessExists("RemotePanel.exe") Then ProcessClose("RemotePanel.exe")
    If ProcessExists("aida64.exe") Then ProcessClose("aida64.exe")
    ScreenState()
    ShellExecute("C:\Program Files (x86)\FinalWire\AIDA64 Extreme\aida64.exe","",@SW_SHOWNORMAL)
    Run("C:\Program Files (x86)\Odospace\Remote Panel\RemotePanel.exe")
    Run("G:\Programme\Tools\W10Privacy\W10Privacy.exe /s 1")
    BatteryLevel()
    TraySetState($TRAY_ICONSTATE_STOPFLASH)
EndFunc

Func ScreenState()
    FileChangeDir("C:\Program Files (x86)\Odospace\Remote Panel\adb")
    If ProcessExists("adb.exe") Then ProcessClose("adb.exe")
    Local $Odospace = StringInStr(_RunCmd('adb -s 3200d994ae6f9000 shell dumpsys activity activities | find "mFocusedActivity:"'), "com.odospace.remotepanel")
    If $Odospace <> 0 Then RunWait(@ComSpec & ' /c ' & "adb -s 3200d994ae6f9000 shell am force-stop com.odospace.remotepanel", @TempDir, @SW_HIDE)
    RunWait(@ComSpec & ' /c ' & "adb -s 3200d994ae6f9000 shell monkey -p com.odospace.remotepanel -c android.intent.category.LAUNCHER 1", @TempDir, @SW_HIDE)
    RunWait(@ComSpec & ' /c ' & "adb -s 3200d994ae6f9000 shell input keyevent KEYCODE_WAKEUP", @TempDir, @SW_HIDE)
EndFunc

Func BatteryLevel()
    FileChangeDir("C:\Program Files (x86)\Odospace\Remote Panel\adb")
    If ProcessExists("adb.exe") Then ProcessClose("adb.exe")
    Local $sBatteryLevel = StringTrimLeft(_RunCmd('adb -s 3200d994ae6f9000 shell dumpsys power | find "mBatteryLevel="'), 14)
    If $sBatteryLevel < 10 Then
        MsgBox(0, "Warning!", "Battery Level from Sensor Tablet is at: " & $sBatteryLevel & "%" & @CRLF & @CRLF & "Press ok to shutdown Tablet.")
        ;RunWait(@ComSpec & ' /c ' & "adb -s 3200d994ae6f9000 shell input keyevent KEYCODE_SLEEP", @TempDir, @SW_HIDE)
    Endif
    TrayTip("Tablet Battery Level is at: " & $sBatteryLevel & " %.", " ", 1, $TIP_ICONASTERISK)
EndFunc

Func _RunCmd($sCommand)
 If StringLeft($sCommand, 1) = " " Then $sCommand = " " & $sCommand
 Local $nPid = Run (@Comspec & " /c" & $sCommand, "", @SW_Hide, 8), $sRet = ""
 If @Error then Return "ERROR:" & @ERROR
 ProcessWait ($nPid)
 While 1
    $sRet &= StdoutRead($nPID)
    If @error Or (Not ProcessExists($nPid)) Then ExitLoop
 WEnd
 Return StringStripWS($sRet, 3)
EndFunc ; ==> _RunCmd