| 1 |
; V2.64 to V3.0.100 (Version 1.0.6)
|
| 2 |
; Converted with AutoItV2toV3 [Version 1.0.6]
|
| 3 |
; (C) Copyright 2004 J-Paul Mesnage.
|
| 4 |
|
| 5 |
$BackupPath = InputBox ( 'Utilities Helper', 'This program will assist with the running of the utilities.' & @LF & @LF & 'Please enter the path to back up database to:' )
|
| 6 |
WinWaitActive ( 'Summation iBlaze' )
|
| 7 |
AdlibEnable ("myAdLibV2")
|
| 8 |
Sleep ( 2000 )
|
| 9 |
Send ( '!o' )
|
| 10 |
Send ( 'u' )
|
| 11 |
WinWaitActive ( 'Utilities' )
|
| 12 |
Sleep ( 5000 )
|
| 13 |
Send ( '{ENTER}' )
|
| 14 |
WinWaitActive ( 'Copy Database' )
|
| 15 |
Sleep ( 5000 )
|
| 16 |
Send ( $BackupPath )
|
| 17 |
Sleep ( 2000 )
|
| 18 |
Send ( '{ENTER}' )
|
| 19 |
WinWaitActive ( 'Summation Blaze LG', 'OK' )
|
| 20 |
Send ( '{ENTER}' )
|
| 21 |
Sleep ( 5000 )
|
| 22 |
WinActivate ( 'Utilities' )
|
| 23 |
Sleep ( 5000 )
|
| 24 |
Send ( '{DOWN}' )
|
| 25 |
Sleep ( 2000 )
|
| 26 |
Send ( '{ENTER}' )
|
| 27 |
WinWaitActive ( 'CHECK DB - Summation Windows' )
|
| 28 |
WinWaitActive ( 'Summation Windows', 'OK' )
|
| 29 |
Sleep ( 5000 )
|
| 30 |
Send ( '{ENTER}' )
|
| 31 |
WinWaitActive ( 'CHECK DB - Summation Windows' )
|
| 32 |
Send ( '{ENTER}' )
|
| 33 |
Sleep ( 5000 )
|
| 34 |
WinWaitActive ( 'Utilities' )
|
| 35 |
Sleep ( 5000 )
|
| 36 |
Send ( '{DOWN 2}' )
|
| 37 |
Sleep ( 2000 )
|
| 38 |
Send ( '{ENTER}' )
|
| 39 |
WinWaitActive ( 'PACK - Summation Windows Utility', 'PRESS ANY KEY' )
|
| 40 |
Sleep ( 5000 )
|
| 41 |
Send ( '{ENTER}' )
|
| 42 |
Sleep ( 5000 )
|
| 43 |
Send ( '{DOWN 3}' )
|
| 44 |
Sleep ( 5000 )
|
| 45 |
Send ( '{ENTER}' )
|
| 46 |
WinWaitActive ( 'BLAZE - Summation Windows Utility', 'PRESS ANY KEY' )
|
| 47 |
Sleep ( 10000 )
|
| 48 |
if WinActive ( 'BLAZE - Summation Windows Utility', 'PRESS ANY KEY' ) Then
|
| 49 |
Send ( '{ENTER}' )
|
| 50 |
endif
|
| 51 |
WinWaitActive ( 'Utilities')
|
| 52 |
Run ( 'Notepad.exe' )
|
| 53 |
WinWaitActive ( 'Untitled -' )
|
| 54 |
Send ( 'Utilities were completed on time/date is {F5}' )
|
| 55 |
|
| 56 |
|
| 57 |
|
| 58 |
|
| 59 |
Func myAdLibV2 ( )
|
| 60 |
if WinExists ( 'Summation Blaze LG', '&Yes' ) Then
|
| 61 |
Send ( '!y' )
|
| 62 |
elseif WinExists ( 'Summation Windows', '&Yes') Then
|
| 63 |
Send ( '!y' )
|
| 64 |
elseif WinExists ( 'Blazing ocrBase...', 'Blazing of ocrBase completed') Then
|
| 65 |
Send ( '{ENTER}' )
|
| 66 |
endif
|
| 67 |
EndFunc
|
| 68 |
|
| 69 |
|
