If FileExists("C:\WDS\Wds.exe") Then PostReboot() Else PreReboot() EndIf Func PostReboot() Run("C:\WDS\Wds.exe", "C:\WDS") EndFunc Func PreReboot() Run("D:\SETUP.EXE", "D:\") WinWait("World Development Sources 1998-4 Installation", "Installation") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Please Select New") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Select Destination Directory") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Select IDAPI Destination Directory") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Select Installation Size") ControlClick("[LAST]", "", "Button6") ControlClick("[LAST]", "", "Button3") WinWait("World Development Sources 1998-4 Installation", "Select Start Menu Group") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Ready to Install") ControlClick("[LAST]", "", "Button1") WinWait("World Development Sources 1998-4 Installation", "Installation Completed!") ControlClick("[LAST]", "", "Button1") WinWait("Install") ControlClick("[LAST]", "", "Button3") Sleep(2000) RunOnce() Shutdown(2) EndFunc Func RunOnce() Local $key = 'HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce' If @Compiled Then RegWrite($key, 'World', 'Reg_sz', '"' & @ScriptFullPath & '" /postrun') Else RegWrite($key, 'World', 'Reg_sz', '"' & @AutoItExe & '" "' & @ScriptFullPath & '" /postrun') EndIf EndFunc