If FileExists(@DesktopCommonDir & "proof.txt") Then PostReboot() Else PreReboot() EndIf Func PostReboot() Run(@ComSpec & " /c " & 'set __COMPAT_LAYER=Win98 && "EVOLVE.exe"', "D:\", @SW_HIDE) EndFunc Func PreReboot() FreeVirtualMemory() RunOnce() Shutdown(2) EndFunc Func RunOnce() Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce' If @Compiled Then RegWrite($key, '_EVOLVE', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun') Else RegWrite($key, '_EVOLVE', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun') EndIf FileOpen(@DesktopCommonDir & "proof.txt", 1) FileWrite(@DesktopCommonDir & "proof.txt", "Proof of setting change...") FileClose(@DesktopCommonDir & "proof.txt") EndFunc Func FreeVirtualMemory() ShellExecute("Control.exe", "C:\WINDOWS\System32\sysdm.cpl") WinWait("System Properties") ControlCommand("System Properties", "General", "SysTabControl321", "TabRight") ControlCommand("System Properties", "Computer Name", "SysTabControl321", "TabRight") ControlCommand("System Properties", "Hardware", "SysTabControl321", "TabRight") WinWait("System Properties", "Advanced") ControlClick("System Properties", "Advanced", "Button2") WinWait("Performance Options", "Visual Effects") ControlCommand("Performance Options", "Visual Effects", "SysTabControl321", "TabRight") WinWait("Performance Options", "Advanced") ControlClick("Performance Options", "Advanced", "Button8") WinWait("Virtual Memory") ControlCommand("Virtual Memory", "", "Button4", "Check") ControlClick("Virtual Memory", "", "Button5") ControlClick("Virtual Memory", "", "Button7") WinWait("System Control Panel Applet", "", 2) ControlClick("System Control Panel Applet", "", "Button1") WinWaitClose("System Control Panel Applet") ControlClick("Performance Options", "Advanced", "Button11") ControlClick("Performance Options", "Advanced", "Button9") WinWaitClose("Performance Options", "Advanced") ControlClick("System Properties", "Advanced", "Button9") WinWait("System Settings Change", "You must restart") ControlClick("System Settings Change", "You must restart", "Button2") EndFunc