Run("D:\SrcBook\setup.exe", "D:\") WinWait("Source Book for Irish English Setup") ControlClick("Source Book for Irish English Setup", "", "ThunderRT6CommandButton2") WinWait("Running under Windows NT/2000/XP") ; Disclaimer ControlClick("Running under Windows NT/2000/XP", "", "ThunderRT6CommandButton1") Sleep(100) ; Install Source Book (Step 1) ControlClick("Running under Windows NT/2000/XP", "", "ThunderRT6CommandButton6") WinWait("Visual Basic 6.0 Setup Toolkit", "OK") ControlClick("Visual Basic 6.0 Setup Toolkit", "OK", "Button1") Sleep(100) WinWait("Visual Basic 6.0 Setup Toolkit", "Remember") ControlClick("[LAST]", "Remember", "Button1") ; Install DB Manager (Step 2) ControlClick("Running under Windows NT/2000/XP", "", "ThunderRT6CommandButton3") WinWait("Install Destination Drive") ControlClick("Install Destination Drive", "" ,"Button1") WinWait("BDE Location Settings") ControlClick("BDE Location Settings", "", "Button1") WinWait("Setup Alert") ControlClick("Setup Alert", "", "Button1") While Not WinExists("Setup Notification") If WinExists("Installation Alert") Then ControlClick("Installation Alert", "", "Button1") EndIf Wend WinWait("Setup Notification") ControlClick("Setup Notification", "", "Button1") WinWait("Source Book for Irish English Database Manager", "", 1) If WinExists("Source Book for Irish English Database Manager") Then WinClose("Source Book for Irish English Database Manager") EndIf ControlClick("Running under Windows NT/2000/XP", "", "ThunderRT6CommandButton5") WinWait("Visual Basic 6.0 Setup Toolkit", "The following") ControlClick("[LAST]", "The following", "Button1") WinWait("Source Book for Irish English Setup", "Directory") ControlClick("Source Book for Irish English Setup", "Directory", "ThunderRT6CommandButton1") WinWait("Source Book for Irish English - Choose Program Group") ControlClick("Source Book for Irish English - Choose Program Group", "", "ThunderRT6CommandButton2") While Not WinExists("D:\SrcBook\FINALTIP.TXT") If WinExists("Version Conflict") Then ControlClick("Version Conflict", "", "ThunderRT6CommandButton3") EndIf Wend WinWait("D:\SrcBook\FINALTIP.TXT") ControlClick("D:\SrcBook\FINALTIP.TXT", "", "ThunderRT6CommandButton1") WinWait("Source Book for Irish English Setup", "completed successfully") ControlClick("Source Book for Irish English Setup", "completed successfully", "Button1")