Beiträge von xTcisloVe

Func _CreatePath($sPath, $idParent)
    Local $aFolder, $aFiles, $idItem
    If StringRight($sPath, 1) <> '\' Then $sPath &= '\'
    $aFolder = _FileListToArray($sPath, '*', $FLTA_FOLDERS)
    If Not @error Then
        For $i = 1 To $aFolder[0]
            $idItem = GUICtrlCreateTreeViewItem($aFolder[$i], $idParent)
            _CreatePath($sPath & $aFolder[$i], $idItem)
            GUICtrlSetColor(-1, 0x098902)
        Next
    EndIf
    $aFiles = _FileListToArray($sPath, '*', $FLTA_FILES)
    If @error Then Return
    For $i = 1 To $aFiles[0]
        $idItem = GUICtrlCreateTreeViewItem($aFiles[$i], $idParent)
        GUICtrlSetColor(-1, 0x098902)
    Next
EndFunc

Func _FindDuplicates($sPath)
    Local $aFolder, $aFiles, $aFind, $aRet
    $aFolder = _FileListToArrayRec($sPath, "*", 1, 1, 0, 1)
    $aFiles = _FileListToArrayRec($sPath, "*", 1, 1, 0, 0)
    For $i = 1 To $aFiles[0]
        $aFind = _ArrayFindAll($aFiles, $aFiles[$i])
        If UBound($aFind) <> 1 Then $aRet &= $aFolder[$i] & "|"
    Next
    $aRet = StringSplit(StringTrimRight($aRet, 1), "|")
    _ArraySort($aRet)
    Return $aRet
EndFunc

#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

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.
SetHotKey(1)

Func SetHotKey($iState)
    If $iState = 0 Then
        HotKeySet("+!s")
        HotKeySet("+!k")
        HotKeySet("+!t")
        HotKeySet("+!f")
        HotKeySet("+!n")
        HotKeySet("+!m")
        HotKeySet("+!c")
    ElseIf $iState = 1 Then
        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.
        TrayMenu()
    EndIf
EndFunc

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

    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
EndFunc

Func SciTEClipboard()
    SetHotKey(0)
    _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)
    SetHotKey(1)
EndFunc

Func Notepad()
    SetHotKey(0)
    _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")
    SetHotKey(1)
EndFunc

Func SwitchSoundDevice($SoundDevice = "")
    SetHotKey(0)
    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]")
    AppMinMax(0)
    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", "", 20)
            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)
    AppMinMax(1)
    SetHotKey(1)
EndFunc

Func AppMinMax($IsMinimized) ;==>AppMinMax function.
    SetHotKey(0)
    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
    SetHotKey(1)
EndFunc ;==>AppMinMax stop.

Func Taskkiller() ;==>Taskkiller function.
    SetHotKey(0)
    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)
    SetHotKey(1)
EndFunc ;==>Taskkiller stop.

Func SteamFriends() ;==>SteamFriends function.
    SetHotKey(0)
    ShellExecute("steam://open/friends/")
    AppMinMax(0)
    WinActivate("Friends")
    SetHotKey(1)
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

#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

#include <GUIconstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include "StringSize.au3"


Example()
exit

Func Example()
$PressedButton = _sMsgBox("Title", "Yes,No,3,4,5,6,7,8,9,10", Default, Default, Default, Default, "This is Line 1" & @LF & @LF & "This is Line 3", 30)
        Switch @extended
            case -2 ;--> Timer expired.
                MsgBox(0, @extended,  $PressedButton, 10)

            case -1 ;--> Message Box closed with x.
                MsgBox(0, @extended,  $PressedButton, 10)

            case 1 ;--> Yes button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)

            case 2 ;--> No button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)

            case Else ;--> Any other button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)
        EndSwitch
EndFunc

Func _sMsgBox($Title, $Buttons, $Button_Width, $Button_Height, $Button_Seperator, $Edge_Space, $Label_Text, $TimeOut)
    if $Buttons = "" Then
        MsgBox(0, "ERROR", "ERROR - No Button defined.")
        Return "ERROR"
    EndIf

    If $Title = Default Or $Title = "" Then $Title = "Title"

    If $Button_Width = Default Or $Button_Width = "" Then $Button_Width= 100

    If $Button_Height = Default Or $Button_Height = "" Then $Button_Height= 30

    If $Button_Seperator = Default Or $Button_Seperator = "" Then $Button_Seperator= 15

    If $Edge_Space= Default Or $Edge_Space = "" Then $Edge_Space= 15

    If $TimeOut = Default Or $TimeOut = "" Then $TimeOut= 0

    If $TimeOut <> 0 Then
        local $Timer=TimerInit()
        local $Time=TimerInit()
        local $CurrentTimer = $TimeOut-1, $CurrentTimerTemp
    EndIf

    local $Button_ = StringSplit($Buttons, ",")

    Local $GUI_Width_Math = $Edge_Space

    For $i = 1 To $Button_[0]
        $x = $GUI_Width_Math+$Button_Width+$Button_Seperator
        $GUI_Width_Math = $x
    Next

    local $GUI_Width = $GUI_Width_Math-$Button_Seperator+$Edge_Space
    Local $Max_Label_Width = $GUI_Width-$Edge_Space-$Edge_Space

    local $Label_StringSize = _StringSize($Label_Text, Default, Default, Default, Default, $Max_Label_Width)

    Local $GUI_Height = $Edge_Space+$Label_StringSize[3]+$Edge_Space+$Button_Height+$Edge_Space
    Local $Button_Top = $Edge_Space+$Label_StringSize[3]+$Edge_Space

    local $hGUI = GUICreate($Title, $GUI_Width, $GUI_Height)
    GUISetStyle(BitOR($WS_CAPTION, $WS_POPUPWINDOW))

    GUICtrlCreateLabel($Label_StringSize[0], $Edge_Space, $Edge_Space, $Label_StringSize[2], $Label_StringSize[3])

    local $ButtonMath = $Edge_Space

        $Btn_Start = GUICtrlCreateDummy()
    For $i = 1 To $Button_[0]
        $x = $ButtonMath
        local $GUI_Button_[$i] = GUICtrlCreateButton($Button_[$i], $x, $Button_Top, $Button_Width, $Button_Height)
        $ButtonMath = $x + $Button_Width + $Button_Seperator
    Next
        $Btn_End = GUICtrlCreateDummy()

    GUISetState ()

    While 1
        $Msg = GUIGetMsg(0)
            Switch $Msg
                Case $GUI_EVENT_CLOSE
                    GUIDelete($hGUI)
                    Return SetExtended(-1, "MessageBox closed.")

                Case $Btn_Start To $Btn_End
                    For $i = 1 To $Button_[0]
                        $x = GUICtrlRead($Msg)
                        if $Button_[$i] = $x Then ExitLoop
                    Next
                        GUIDelete($hGUI)
                        Return SetExtended($i, $x)
            EndSwitch
                If $TimeOut <> 0 Then
                    If TimerDiff($Timer) >= $TimeOut*1000 then
                        GUIDelete($hGUI)
                        Return SetExtended(-2, "TimeOut expired.")
                    Else
                        If TimerDiff($Time) >= 1000 then
                            WinSetTitle($hGUI, "", "[" & $CurrentTimer & "] - " & $Title)
                            $CurrentTimerTemp = $CurrentTimer
                            $CurrentTimer = $CurrentTimerTemp-1
                            $Time=TimerInit()
                        EndIf
                    EndIf
                EndIf
    Wend
EndFunc

#include <GUIconstants.au3>
#include <GUIConstantsEx.au3>
#include <Array.au3>
#include "StringSize.au3"


Example()
exit

Func Example()
$PressedButton = _sMsgBox("Title", "Yes,No,3,4,5,6,7,8,9,10", Default, Default, Default, Default, "This is Line 1" & @LF & @LF & "This is Line 3", 5)
        Switch @extended

            case -2 ;--> Timer expired.
                MsgBox(0, @extended,  $PressedButton, 10)

            case -1 ;--> Message Box closed with x.
                MsgBox(0, @extended,  $PressedButton, 10)

            case 1 ;--> Yes button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)

            case 2 ;--> No button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)

            case Else ;--> Any other button pressed.
                MsgBox(0, @extended, "You pressed: " & $PressedButton, 10)

        EndSwitch
EndFunc

Func _sMsgBox($Title, $Buttons, $Button_Width, $Button_Height, $Button_Seperator, $Edge_Space, $Label_Text, $TimeOut)
    if $Buttons = "" Then
        MsgBox(0, "ERROR", "ERROR - No Button defined.")
        Return "ERROR"
    EndIf

    If $Title = Default Or $Title = "" Then $Title = "Title"

    If $Button_Width = Default Or $Button_Width = "" Then $Button_Width= 100

    If $Button_Height = Default Or $Button_Height = "" Then $Button_Height= 30

    If $Button_Seperator = Default Or $Button_Seperator = "" Then $Button_Seperator= 15

    If $Edge_Space= Default Or $Edge_Space = "" Then $Edge_Space= 15

    If $TimeOut = Default Or $TimeOut = "" Then $TimeOut= 0

    If $TimeOut <> 0 Then
        local $Timer=TimerInit()
        local $Time=TimerInit()
        local $CurrentTimer = $TimeOut-1, $CurrentTimerTemp
    EndIf

    local $aButtons = StringSplit($Buttons, ",")
    Dim $Button_[($aButtons[0] + 1)]

    Local $GUI_Width_Math = $Edge_Space

    For $i = 1 To $aButtons[0]
        $Button_[$i] = $GUI_Width_Math+$Button_Width+$Button_Seperator
        $GUI_Width_Math = $Button_[$i]
    Next

    local $GUI_Width = $GUI_Width_Math-$Button_Seperator+$Edge_Space
    Local $Max_Label_Width = $GUI_Width-$Edge_Space-$Edge_Space

    local $Label_StringSize = _StringSize($Label_Text, Default, Default, Default, Default, $Max_Label_Width)
    Local $Label_Width = $Label_StringSize[2]
    Local $Label_Height = $Label_StringSize[3]
    Local $GUI_Height = $Edge_Space+$Label_Height+$Edge_Space+$Button_Height+$Edge_Space
    Local $Button_Top = $Edge_Space+$Label_Height+$Edge_Space

    Dim $GUI_Button_[($aButtons[0] + 1)]

    local $hGUI = GUICreate($Title, $GUI_Width, $GUI_Height)
    GUISetStyle(BitOR($WS_CAPTION, $WS_POPUPWINDOW) )

    GUICtrlCreateLabel($Label_StringSize[0], $Edge_Space, $Edge_Space, $Label_StringSize[2], $Label_StringSize[3])

    local $ButtonMath = $Edge_Space

    $Btn_Start = GUICtrlCreateDummy()
    For $i = 1 To $aButtons[0]
        $x = $ButtonMath
        $GUI_Button_[$i] = GUICtrlCreateButton($aButtons[$i], $x, $Button_Top, $Button_Width, $Button_Height)
        $ButtonMath = $x + $Button_Width + $Button_Seperator
    Next
    $Btn_End = GUICtrlCreateDummy()
    GUISetState ()

    While 1
    $Msg = GUIGetMsg(0)
        Switch $Msg
            Case $GUI_EVENT_CLOSE
                GUIDelete($hGUI)
                Return SetExtended(-1, "MessageBox closed.")

            Case $Btn_Start To $Btn_End
                local $Return = GUICtrlRead($Msg)
                Return SetExtended($Msg-4, $Return)

        EndSwitch
    If $TimeOut <> 0 Then
        If TimerDiff($Timer) >= $TimeOut*1000 then
            GUIDelete($hGUI)
            Return SetExtended(-2, "TimeOut expired.")
        Else
            If TimerDiff($Time) >= 1000 then
                WinSetTitle($hGUI, "", "[" & $CurrentTimer & "] - " & $Title)
                $CurrentTimerTemp = $CurrentTimer
                $CurrentTimer = $CurrentTimerTemp-1
                $Time=TimerInit()
            EndIf
        EndIf
    EndIf
    Wend
EndFunc
;;;;;;;;;;AUTHOR: XTCISLOVE;;;;;;;;;;