AHK: Функция "Очистка Диска" в Win 7

Check := "1|4|8"

SetTitleMatchMode 2
run %windir%\system32\cleanmgr.exe
WinWait Очистка диска  (C:) ahk_exe cleanmgr.exe
hwnd := WinExist("Очистка диска  (C:) ahk_exe cleanmgr.exe")
ControlGet hwndctrl, Hwnd , ,SysListView321, % "ahk_id " hwnd
ControlGet, LVItems, List, ,,ahk_id %hwndctrl%
ControlSend,, {Down}, ahk_id %hwndctrl%
Loop, parse,LVItems,`n
    {
    SendMessage, 0x102C, A_Index - 1, 0x2000,, ahk_id %hwndctrl% ; LVM_GETITEMSTATE
    if ErrorLevel
        ControlSend,, {Space}, ahk_id %hwndctrl%
    if (A_Index ~= "^" Check "$") or !Check
        ControlSend,, {Space}, ahk_id %hwndctrl%
    ControlSend,, {Down}, ahk_id %hwndctrl%
    }

ControlSend,, {Enter}, ahk_id %hwnd%
sleep 100
Send {Enter}

Check := "1|4|8"

SetTitleMatchMode 2
run %windir%\system32\cleanmgr.exe /d C:
;А уж потом писать
WinWait Очистка диска  (C:) ahk_exe cleanmgr.exe
 

Check := "1|2"
Disc := "E"

SetTitleMatchMode 2
run %windir%\system32\cleanmgr.exe /d %Disc%:
WinWait % " (" Disc ":" ") ahk_exe cleanmgr.exe"
hwnd := WinExist(" (" Disc ":" ") ahk_exe cleanmgr.exe")
ControlGet hwndctrl, Hwnd , ,SysListView321, % "ahk_id " hwnd
ControlGet, LVItems, List, ,,ahk_id %hwndctrl%
ControlSend,, {Down}, ahk_id %hwndctrl%
Loop, parse,LVItems,`n
    {
    SendMessage, 0x102C, A_Index - 1, 0x2000,, ahk_id %hwndctrl% ; LVM_GETITEMSTATE
    if ErrorLevel
        ControlSend,, {Space}, ahk_id %hwndctrl%
    if (A_Index ~= "^" Check "$") or !Check
        ControlSend,, {Space}, ahk_id %hwndctrl%
    ControlSend,, {Down}, ahk_id %hwndctrl%
    }

ControlSend,, {Enter}, ahk_id %hwnd%
sleep 100
Send {Enter}

Check := "1|3"
Disc := "C"

ShellExecute := A_IsUnicode ? "shell32\ShellExecute":"shell32\ShellExecuteA"  
if not A_IsAdmin
{
      If A_IsCompiled
         DllCall(ShellExecute, uint, 0, str, "RunAs", str, A_ScriptFullPath, str, params , str, A_WorkingDir, int, 1)
      Else
         DllCall(ShellExecute, uint, 0, str, "RunAs", str, A_AhkPath, str, """" . A_ScriptFullPath . """" . A_Space . params, str, A_WorkingDir, int, 1)
      ExitApp
}

SetTitleMatchMode 2
run %windir%\system32\cleanmgr.exe /d %Disc%:
WinWait % " (" Disc ":" ") ahk_exe cleanmgr.exe"
hwnd := WinExist(" (" Disc ":" ") ahk_exe cleanmgr.exe")
ControlGet hwndctrl, Hwnd , ,SysListView321, % "ahk_id " hwnd
ControlGet, LVItems, List, ,,ahk_id %hwndctrl%
ControlSend,, {Down}, ahk_id %hwndctrl%
Loop, parse,LVItems,`n
    {
    SendMessage, 0x102C, A_Index - 1, 0x2000,, ahk_id %hwndctrl% ; LVM_GETITEMSTATE
    if ErrorLevel
        ControlSend,, {Space}, ahk_id %hwndctrl%
    if (A_Index ~= "^(" Check ")$") or !Check
        ControlSend,, {Space}, ahk_id %hwndctrl%
    ControlSend,, {Down}, ahk_id %hwndctrl%
    }
    
ControlSend,, {Enter}, ahk_id %hwnd%
sleep 100
Send {Enter}

run cleanmgr.exe /sageset: 1

run cleanmgr.exe /d C: /sagerun: 1

run cleanmgr.exe /d X: /sageset:n