InstallOpenOffice3() Sleep(2000) Run("D:\start.exe", "D:\") Func InstallOpenOffice3() Run("D:\OpenOffice\OOo_3.0.1_Win32Intel_install_wJRE_en-US.exe", "D:\OpenOffice\") WinWait("OpenOffice.org 3.0 Installation Preparation", "'Next' to continue") ControlClick("[LAST]", "", "Button2") WinWait("OpenOffice.org 3.0 Installation Preparation", "Destination Folder") ControlClick("[LAST]", "", "Button2") WinWait("OpenOffice.org 3.0 - Installation Wizard", "click Next") ControlClick("[LAST]", "", "Button1") WinWait("OpenOffice.org 3.0 - Installation Wizard", "Customer Information") ControlClick("[LAST]", "", "RichEdit20W1", "left", 2) Send("{DELETE}") ControlSend("[LAST]", "", "RichEdit20W1", "Guest") ControlClick("[LAST]", "", "RichEdit20W2", "left", 2) Send("{DELETE}") ControlSend("[LAST]", "", "RichEdit20W2", "None") ControlClick("[LAST]", "", "Button5") WinWait("OpenOffice.org 3.0 - Installation Wizard", "Setup Type") ControlClick("[LAST]", "", "Button5") WinWait("OpenOffice.org 3.0 - Installation Wizard", "Ready to Install") ControlClick("[LAST]", "", "Button1") WinWait("OpenOffice.org 3.0 - Installation Wizard", "Installation Wizard Complete") ControlClick("[LAST]", "", "Button1") EndFunc