InstallQuickTime() ShellExecute("D:\CD.pdf", "", "", "", @SW_MAXIMIZE) Func InstallQuickTime() Run("D:\SOFTWARE\WINDOWS\QuickTime\QuickTimeInstaller.exe") WinWait("QuickTime 4 Setup", "< &Back") ControlClick("QuickTime 4 Setup", "< &Back", "Button2") WinWait("Welcome") ControlClick("Welcome", "", "Button1") WinWait("Software License Agreement") ControlClick("Software License Agreement", "", "Button3") WinWait("Choose Destination Location") ControlClick("Choose Destination Location", "", "Button1") WinWait("Choose Installation Type") ControlClick("Choose Installation Type", "", "Button1") WinWait("Select Program Folder") ControlClick("Select Program Folder", "", "Button1") WinWait("QuickTime Plugin Options") ControlClick("QuickTime Plugin Options", "", "Button1") WinWait("Connection Speed") ControlClick("Connection Speed", "", "Button1") WinWait("Enter Registration") Sleep(3000) WinActivate("Enter Registration") ControlClick("Enter Registration", "&Next >", "Button1") WinWait("Finished") ControlClick("Finished", "", "Button4") ControlClick("Finished", "", "Button5") ControlClick("Finished", "", "Button1") Sleep(3000) If WinExists("QuickTime") Then WinClose("QuickTime") EndIf EndFunc