| 1 |
ninoborges |
2 |
; 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 |
|
|
|
