| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- '$INCLUDE 'RECORDER.INC'
- GLOBAL gszLogFile AS STRING
- SetDefaultWaitTimeout(Timeout)
- Scenario "install"
- Timeout = 30
- gszLogFile = "VTError.txt"
- CurrentWindow = WFndWndC("Welcome", "#32770", FINDWINDOWFLAGS_IF, 25 + Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Software License Agreement", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Yes")
-
- CurrentWindow = WFndWndC("Choose Destination Location", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Setup Type", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Select Program Folder", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
-
- CurrentWindow = WFndWndC("DirectX", "#32770", FINDWINDOWFLAGS_IF, 900 + Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Information", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 410, 332, 210, 119)
- WButtonClick("OK")
-
- CurrentWindow = WFndWndC("DirectX 6", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Install", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 326, 341, 380, 100)
- WButtonClick("&Yes")
-
- CurrentWindow = WFndWndC("Enter Information", "#32770", FINDWINDOWFLAGS_IF, 30 + Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- Play "{BS}fedtest"
- WButtonClick("&Next >")
- CurrentWindow = WFndWndC("Setup Complete", "#32770", FINDWINDOWFLAGS_IF, Timeout)
- WSetWndPosSiz(CurrentWindow, 272, 205, 479, 357)
- WButtonClick("Finish")
- gszLogFile = "VTSignal.txt"
- Scenario Cleanup
- OPEN gszLogFile FOR OUTPUT AS 1
- PRINT #1, "Success"
- CLOSE 1
- End Scenario
|
