;SETUP Reiner SCT cyberJack eCOM Kartenleser Basiskomponenten und Treiber ;Wacky ;03.09.2008 #Include SplashImageOn("cyberJack eCOM Installation","c:\temp\_Reiner_Setup\cj.jpg",-1,-1,-1,-1 ,1) _MAIN() ENDE() Func _MAIN() Global $_window PREPARE() ;Prüfung ob User angemeldet ist Global $_chk_process $_chk_process = ProcessList("sxplog32.exe") IF $_chk_process[0][0] <> 1 Then Filewriteline($logfile, "CHECK: User-Prozess sxplog32.exe vorhanden") Filewriteline($logfile, "Prozess nicht vorhanden -> kein User angemeldet") FEHLER() EndIf ;Prüfung ob Installation vorhanden IF FileExists("C:\Programme\REINER SCT\cyberJack\cJCC.exe") Then Filewriteline($logfile, "vorhandene Installation gefunden!") Filewriteline($logfile, "Installation Abgebrochen") FEHLER() Else EndIf ;Installation IF FileExists("c:\temp\_Reiner_Setup\bc_6_4_0.exe") Then RUN("c:\temp\_Reiner_Setup\bc_6_4_0.exe") WinWaitActive("cyberJack Base Components - InstallShield Wizard") $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard") Sleep(5000) CHK_WINDOW() Send("!w") Sleep(5000) $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard 6.4.0") CHK_WINDOW() Send("!w") Sleep(5000) $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard 6.4.0") CHK_WINDOW() Send("{UP}") Sleep(1000) CHK_WINDOW() Send("!w") Sleep(5000) $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard 6.4.0") CHK_WINDOW() SEND("{SPACE}") Sleep(5000) $_window = WinGetHandle("Zusammenfassung") CHK_WINDOW() Send("!w") Sleep(5000) $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard 6.4.0") CHK_WINDOW() Send("!w") Sleep(5000) $_window = WinGetHandle("cyberJack Base Components - InstallShield Wizard 6.4.0") CHK_WINDOW() SEND("{SPACE}") WinWaitActive("cyberJack Base Components - InstallShield Wizard 6.4.0", "abgeschlossen") Sleep(10000) SEND("{SPACE}") sleep(5000) Else Filewriteline($logfile, "Fehler: Setupdatei in c:\temp\_Reiner_Setup\bc_6_4_0.exe nicht gefunden") Filewriteline($logfile, "Installation Abgebrochen") EndIf ;Prüfung auf einzelne Teile der Installation IF FileExists("C:\Programme\REINER SCT\cyberJack\cJCC.exe") Then Filewriteline($logfile, "CHECK: Programmpfad - Installation erfolgreich") Else Filewriteline($logfile, "Fehler bei der Installation: CEHCK: Programmpfad") FEHLER() EndIf ;IF FileExists("C:\WINXP\system32\cjpsc32.dll") Then ; Filewriteline($logfile, "CHECK: Systempfad - Installation erfolgreich") ;Else ; Filewriteline($logfile, "Fehler bei der Installation: CEHCK: Systempfad") ; FEHLER() ;EndIf EndFunc Func PREPARE() Global $logfile AutoItSetOption("ExpandVarStrings", 1) ;Verwenden von Variablen als Strings AutoItSetOption("WinTitleMatchMode", 4) ;Verwenden von Handles statt Titel etc. in Window-Funktionen $systime = _Date_Time_GetLocalTime() $time = _Date_Time_SystemTimeToDateTimeStr($systime) $logfile = Fileopen("c:\temp\_ReinerSCT_SETUP.log", 1) Filewriteline($logfile, "Start der Installation") Filewriteline($logfile, "Timestamp: " & $time) EndFunc Func FEHLER() FileClose($logfile) Exit(1) EndFunc Func ENDE() FileClose($logfile) sleep(10000) Exit(0) EndFunc Func CHK_WINDOW() $_win_exist = WinExists($_window) $_win_active = WinActive($_window) IF $_win_exist = 1 AND $_win_active = 0 Then WinActivate($_window) Else EndIf $_win_active = WinActive($_window) IF $_win_exist = 1 AND $_win_active = 1 Then sleep(2000) Else Filewriteline($logfile, "CHECK: Installer-Fenster geöffnet") Filewriteline($logfile, "Fehler: Fenster inaktiv / durch User geschlossen") FEHLER() EndIf EndFunc