Sleep(8000) If not FileExists('C:\check.txt') Then _prereboot() Else _postreboot() EndIf func _prereboot() Run("D:\Start.exe") WinWaitActive("Director Player 6.0") Send("{ENTER}") 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") $file = FileOpen('C:\check.txt', 2) FileClose($file) _RunOnce() Shutdown(2) 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 _postreboot() FileChangeDir("D:\") Run("D:\START.EXE") WinWait("[CLASS:ASISubWndClass]") ControlClick("[CLASS:ASISubWndClass]", "", 1) ;WinClose("[CLASS:ASISubWndClass]") WinWait("[CLASS:ASISubWndClass]") ControlClick("[CLASS:ASISubWndClass]", "", 1) ;WinClose("[CLASS:ASISubWndClass]") WinWaitActive("", "If you agree with the terms of this license") Send("{ENTER}") WinWaitActive("Begin Install") Send("!i") WinWaitActive("Check Existing Versions") Send("!s") WinWaitActive("Complete Install") Send("!i") WinWaitActive("Success") Send("!e") WinWaitActive("Cancel Sample Movie?") Send("!y") WinClose("QuickTime for Windows") Run("D:\START.EXE") WinWait("[CLASS:ASISubWndClass]") ControlClick("[CLASS:ASISubWndClass]", "", 1) EndFunc