_RunProgram() Func _RunProgram() 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") If not (ControlCommand("Virtual Memory", "", "Button4", "IsChecked")) Then 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", "", 2) ControlClick("System Settings Change", "", "Button2") _RunOnce() Shutdown(2) Else ControlClick("Virtual Memory", "", "Button8") WinWait("Performance Options", "", 2) ControlClick("Performance Options", "Advanced", "Button10") WinWaitClose("Performance Options", "Advanced") ControlClick("System Properties", "Advanced", "Button10") _Run() EndIf EndFunc Func _RunOnce() Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce' If @Compiled Then RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun') Else RegWrite($key, '_AMPOET', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun') EndIf EndFunc Func _Run() Run("D:\Sandbox.exe") Sleep(2500) If WinExists("[Class:ASISubWndClass]") Then WinActivate("[Class:ASISubWndClass]") ControlClick("[Class:ASISubWndClass]","","Button1") EndIf EndFunc