Avira AntiVir v9

Hallo lordn30,
für Avira Antvir Free Antivirus 9.0 hab ich auch mal ein AutoIt-Script geschrieben.
Das Script funktioniert einwandfrei und vorallem auf jedem Rechner den ich bisher in die Finger bekommen habe.
Aber eins vorweg: das Script ist ziemlich lang geworden da es auf möglichst jedem Rechner laufen soll.

Avira wird damit komplett installiert und eingerichtet. Mann muss also nur noch das Script starten und dann warten, bis das Script abgelaufen ist.

Hier nun das Script:

; -----------------------------------------------------------------------------------------------------------------------------
; Script Funktion : Script zum Installieren und Einrichten von "Avira AntiVir Personal - Free Antivirus 9.0".
;
; AutoIt Version : 3.3.0.0
; Script Autor : BigRox
; -----------------------------------------------------------------------------------------------------------------------------

; Optionen für dieses Script festlegen.
Opt("MustDeclareVars", 1)

; Variablen deklarieren.
Dim $Fenster[150], $Fenster_Titel_1, $Fenster_Titel_2, $Frage, $F_Nr, $F_Text, $F_Titel, $Install_Pfad, $LV, $Pfad_Install_Programm, $Pfad_Install_Sonstiges, $WinHandle

; Einigen Variablen Werte zuweisen.
$Fenster_Titel_1 = "Avira AntiVir Personal"
$Fenster_Titel_2 = "Konfigurationsassistent"
$Install_Pfad = @ProgramFilesDir & "\Avira\AntiVir Desktop" ; Der Installationspfad kann von "\Avira\" an nicht geändert werden.
$Pfad_Install_Programm = @HomeDrive & "\Avira AntiVir\Programm"
$Pfad_Install_Sonstiges = @HomeDrive & "\Avira AntiVir\Sonstiges"

; Anzeigen des Splash-Screens mit des Wartehinweis (immer im Vordergrund).
SplashTextOn("Wartehinweis", @LF & 'Das Programm "Avira AntiVir" wird nun installiert und eingerichtet.' & @LF & @LF & "Bitte warten Sie: (Dauer: c.a. 4 Min.)", 815, 170, -1, 15, 16, "Times New Roman", 20)

; "Sleep" damit man den Splash-Screen auch komplett lesen kann.
Sleep(5000)

; Den Splash-Screen kurz ausschalten.
SplashOff()

; Anzeigen des Splash-Screens mit des Wartehinweis (nicht immer im Vordergrund).
SplashTextOn("Wartehinweis", @LF & 'Das Programm "Avira AntiVir" wird nun installiert und eingerichtet.' & @LF & @LF & "Bitte warten Sie: (Dauer: c.a. 4 Min.)", 815, 170, -1, 15, 18, "Times New Roman", 20)

; Alle momentan geöffneten Fenster schließen (das Script funktioniert mit dem IE6, IE7 und IE8).
$Fenster = WinList()
For $LV = 1 To $Fenster[0][0]
If Not BitAND(WinGetState($Fenster[$LV][1]), 2) Then
ContinueLoop
EndIf
If Not $Fenster[$LV][0] = StringInStr($Fenster[$LV][0], "Program Manager") And Not $Fenster[$LV][0] = StringInStr($Fenster[$LV][0], "Wartehinweis") Then
WinSetState($Fenster[$LV][1], "", @SW_MAXIMIZE)
WinClose($Fenster[$LV][1])
Sleep(1500)
If WinExists("Internet Explorer", "Möchten Sie alle") Then
WinActivate("Internet Explorer", "Möchten Sie alle")
If ControlCommand("Internet Explorer", "Möchten Sie alle", 6, "IsVisible", "") = 1 Then
ControlClick("Internet Explorer", "&Registerkarten schließen", 6) ; Registerkarten beim IE7 schließen.
Else
ControlClick("Internet Explorer", "&Alle Registerkarten schließen", 30980) ; Registerkarten beim IE8 schließen.
EndIf
While WinExists("Internet Explorer", "Möchten Sie alle")
Sleep(500)
WEnd
EndIf
While WinExists($Fenster[$LV][1])
Sleep(500)
WEnd
EndIf
Next

; Die Maus und die Tastatur blockieren.
BlockInput(1)

; Den eventuell vorhandenen Installationsordner löschen (ist der Ordner vorhanden so lässt sich das Programm nicht automatisch installieren).
If FileExists($Install_Pfad & "\") Then
DirRemove($Install_Pfad, 1)
EndIf

; Das Installationsprogramm von "Avira AntiVir Personal - Free Antivirus 9.0" aufrufen.
Run($Pfad_Install_Programm & "\avira_antivir_personal_de.exe")

; Warteschleife bis das erste Fenster erscheint.
$F_Text = "Annehmen" ; Der Texte gilt auch für das folgende Fenster 1.1.
Do
Sleep(1000)
Until WinExists($Fenster_Titel_1, $F_Text)

; Eintragungen usw. in Fenster 1.1.
$F_Titel = $Fenster_Titel_1
$F_Nr = 1.1
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Annehmen" schließen.
ControlClick($WinHandle, "", 1)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 2.1 (Warteschleife wegen dem entpacken der Dateien).
$F_Text = "Willkommen zur Installation" ; Der Texte gilt auch für das folgende Fenster 3.1.
Do
Sleep(1000)
Until WinExists($Fenster_Titel_1, $F_Text)

; Eintragungen usw. in Fenster 3.1.
$F_Titel = $Fenster_Titel_1
$F_Nr = 3.1
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 4.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Avira AntiVir Personal"
$F_Nr = 4.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
; Die Funktion "F_Geschlossen($F_Titel, $F_Text)" funktioniert bei diesem Fenster nicht !

; Eintragungen usw. in Fenster 5.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Endbenutzer-Lizenzvertrag"
$F_Nr = 5.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Lizenzbedingungen annehmen.
ControlCommand($WinHandle, "", 1008, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 6.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Bitte bestätigen Sie"
$F_Nr = 6.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die ausschließliche private Nutzung bestätigen.
ControlCommand($WinHandle, "", 1080, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 7.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Wählen Sie aus"
$F_Nr = 7.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Benutzerdefinierte Installation wählen.
ControlCommand($WinHandle, "", 1017, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 8.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Setup wird Avira"
$F_Nr = 8.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 9.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Um eine Komponente hinzuzufügen"
$F_Nr = 9.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 10.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Zufällige Seriennummer"
$F_Nr = 10.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Zufällige Seriennummer generieren auswählen.
ControlCommand($WinHandle, "", 1008, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 11.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Wählen Sie eine"
$F_Nr = 11.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Ein Icon auf dem Desktop erstellen abwählen.
ControlCommand($WinHandle, "", 1013, "UnCheck", "")
Sleep(1000)
; Eine Programmgruppe erstellen abwählen.
ControlCommand($WinHandle, "", 1003, "UnCheck", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 12.1.
$F_Titel = $Fenster_Titel_1
$F_Text = "Bitte geben Sie Ihre persönlichen Daten ein"
$F_Nr = 12.1
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Option zum registrieren bei Avira abwählen.
ControlCommand($WinHandle, "", 1070, "UnCheck", "")
Sleep(1000)
; Die Option zum anmelden für den Newsletter abwählen.
ControlCommand($WinHandle, "", 1071, "UnCheck", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 13.1 (das Programm wird installiert).
$F_Text = "Installation beendet" ; Der Texte gilt auch für das folgende Fenster 14.1.
Do
Sleep(1000)
; Das eventuell erscheinende Fenster erkennen und darauf reagieren.
If WinExists("Ersetzen von Dateien bestätigen") Then
; Das Fenster durch einen Klick auf "Alle beibehalten" schließen (6 = Ja, 7 = Nein).
ControlClick("Ersetzen von Dateien bestätigen", "", 407)
Sleep(1000)
EndIf
Until WinExists($Fenster_Titel_1, $F_Text)

; Eintragungen usw. in Fenster 14.1.
$F_Titel = $Fenster_Titel_1
$F_Nr = 14.1
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Option zum anzeigen der "Readme.txt"-Datei, abwählen.
ControlCommand($WinHandle, "", 1034, "UnCheck", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Fertig stellen" schließen.
ControlClick($WinHandle, "", 12325)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 1.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Die Installation von Avira"
$F_Nr = 1.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 2.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Wählen Sie die Erkennungsstufe"
$F_Nr = 2.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 3.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Viren- bzw. Malwarefunde"
$F_Nr = 3.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Option "Alle aktivieren" auswählen.
ControlCommand($WinHandle, "", 5410, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 4.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Sicherer Start"
$F_Nr = 4.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Option "Sicherer Start, AntiVir Guard wird während des Starts des Computers so früh als möglich geladen." auswählen, (1015 Normaler Start, AntiVir Guard startet im normalen, automatischen Modus. Dies ist der empfohlende Startmodus. (Standardeinstellung)).
ControlCommand($WinHandle, "", 1016, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 5.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Wir empfehlen Ihnen"
$F_Nr = 5.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Die Option "Kurze Systemprüfung nach der Installation durchführen" auswählen.
ControlCommand($WinHandle, "", 15005, "Check", "")
Sleep(1000)
; Das Fenster durch einen Klick auf "Weiter >" schließen.
ControlClick($WinHandle, "", 12324)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 6.2.
$F_Titel = $Fenster_Titel_2
$F_Text = "Vielen Dank!"
$F_Nr = 6.2
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Das Fenster durch einen Klick auf "Fertig stellen" schließen.
ControlClick($WinHandle, "", 12325)
F_Geschlossen($F_Titel, $F_Text)

; Eintragungen usw. in Fenster 1.3 (Kurze Systemprüfung).
$F_Titel = "Luke Filewalker"
$F_Text = "Informationen zu Viren"
$F_Nr = 1.3
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Schleife zum erkennen des Suchlauf-Endes starten.
Do
Sleep(1000)
Until ControlGetText($WinHandle, "", 20001) = "&Beenden"
; Das Fenster durch einen Klick auf "Beenden" schließen.
ControlClick($WinHandle, "", 20001)
F_Geschlossen($F_Titel, $F_Text)

; Das Programm zur Konfiguration von "AntiVir" aufrufen.
Run($Install_Pfad & "\avconfig.exe")

; Eintragungen usw. in Fenster 1.4.
$F_Titel = $Fenster_Titel_1
$F_Text = "Expertenmodus"
$F_Nr = 1.4
WinWait($F_Titel, $F_Text, 10)
$WinHandle = F_Erkennung($F_Titel, $F_Text, $F_Nr)
; Den Expertenmodus aktivieren (damit das Item "Sicherheit" auch erscheint).
ControlCommand($WinHandle, "", 1677, "Check")
Sleep(1000)
; Den Baum "Allgemeines" des "TreeViews" expandieren.
ControlTreeView($WinHandle, "", 32494, "Expand", "Allgemeines")
Sleep(1000)
; Testen ob das gewünschte Item existiert.
If ControlTreeView($WinHandle, "", 32494, "Exists", "Allgemeines|Sicherheit") = 0 Then
BlockInput(0)
MsgBox(262192, "! Fehler !", "Das gewünschte Item wurde nicht gefunden !") ; MsgBox = 1, 4, 1, 1, 2.
Exit (1)
EndIf
; Das Item "Sicherheit" auswählen.
ControlTreeView($WinHandle, "", 32494, "Select", "Allgemeines|Sicherheit")
Sleep(1000)
; Die Option "Dateien und Registrierungseinträge vor Manipulation schützen" abwählen (damit die Einstellungen von "AntiVir" auch kopiert werden können. Die Option ist nach dem Neustart wieder markiert)
ControlCommand($WinHandle, "", 1028, "UnCheck")
Sleep(1000)
; Das Fenster durch einen Klick auf "OK" schließen.
ControlClick($WinHandle, "", 1)
F_Geschlossen($F_Titel, $F_Text)

; "Sleep" zur Sicherheit (damit die Konfiguration auch wirklich geändert ist).
Sleep(5000)

; Das Verzeichnis mit den "ScanJobs" mit Inhalt löschen.
DirRemove(@AppDataCommonDir & "\Avira\AntiVir Desktop\JOBS", 1)

; Das Verzeichnis mit den neuen "ScanJobs" kopieren.
DirCopy($Pfad_Install_Sonstiges & "\JOBS", @AppDataCommonDir & "\Avira\AntiVir Desktop\JOBS", 1)

; Die Datei mit den Einstellungen von "Avira AntiVir" kopieren.
FileCopy($Pfad_Install_Sonstiges & "\AVWIN.INI", @AppDataCommonDir & "\Avira\AntiVir Desktop\CONFIG", 9)

#Cs
; Unnötige Dateien löschen.
FileDelete($Install_Pfad & "\")
FileDelete($Install_Pfad & "\")
#Ce

; "Sleep" zur Sicherheit.
Sleep(500)

; Den Splash-Screen wieder ausschalten.
SplashOff()

; Die Maus und die Tastatur wieder freigeben.
BlockInput(0)

; Script beenden.
Exit (0)

; Funktion für die Fenstererkennung.
Func F_Erkennung($F_Titel, $F_Text, $F_Nr)
$WinHandle = WinGetHandle($F_Titel, $F_Text)
If @error Then
BlockInput(0)
MsgBox(262192, "! F E H L E R !", "Das Fenster " & $F_Nr & " konnte nicht aktiviert werden !") ; MsgBox = 1, 4, 1, 1, 2.
Exit (1)
Else
Do
WinActivate($F_Titel, $F_Text)
Sleep(500)
Until WinActive($F_Titel, $F_Text) = 1
Sleep(500)
Return $WinHandle
EndIf
EndFunc

; Funktion um festzustellen ob ein Fenster nicht mehr aktiv (also auch geschlossen) ist.
Func F_Geschlossen($F_Titel, $F_Text)
Do
Sleep(500)
Until Not WinActive($F_Titel, $F_Text)
Return
EndFunc

Das wars dann.
Bin mal auf die Verbesserungsvorschläge der Experten gespann,ich vermute mal das mann an dem Script noch einiges verbesssern könnte.

Gruß:
BigRox

P.S. Versteh mal einer diese Forensoftware, erst will sie den Dateianhang einfach nicht übernehmen und dann ist er doch im endgültigen Post vorhanden.