Automationsscripte ( einge fertig einige funzen nicht )

racemike511

Hi,

möchte euch mal alle meine automationsscripte vorstellen. Hier downloaden.
Einige funzen perfekt, andere nicht .

Funktionieren :

anydvd
autoit
cabos
clonecd
clonedvd
flash-player
foobar
opera
qip
skype-mit-toolbar
skype-ohne-toolbar
winrar
filezilla
pain.NET
steganos
ghost

Funktionierten bei mir nicht im test :

ati --> baut ca 60- ... prozesse auf und dann musste ich resetten
avast --> hab ich wieder gelöscht
java6 --> funzt einfach nicht
nero --> wird nicht registriert
office --> beendet nicht, wird perfekt installiert und dann bleibt es hängen, anstatt ferig zu klicken
zonealarm ---> noch nicht getestet

Wenn jmd so nett wäre und die welche nicht funktionieren, mal durchsehen könnte und vlt. korrigieren könnte ?
Und die anderen alle mal testen, ob´s bei euch auch funktionieren.

Wäre Suppi !!!!!

PS : Kann mir jmd helfen für :

Alcohol120% --> NEUSTART ???
Adobe Dreamweaver CS3 --->Buttons ??--> Mousklick ( Bildschirmauflösung )
Adobe Photoshop CS3 --->Buttons ??--> Mousklick ( Bildschirmauflösung )
Adobe Flash CS3 --->Buttons ??--> Mousklick ( Bildschirmauflösung )
DaemonTools --> NEUSTART ???
Kaspersky ---> Aktivierung wegen W-Lan ??

ein Automationsscript zu erstellen ?

Wäre auch Klasse !

Danke schon mal für eure Hilfe !

McPoldy

Klappt bei mir gut, nur leider wollte ich nach dem Setup auch gleich noch ein Update laufen lassen, klappt leider noch nicht. Ich weiß das es über eine Kommdozeilen Option geht, hatte aber noch keine Zeit die zu suchen.

Spoiler anzeigen

[autoit]

Opt("SendKeyDelay", 100) ;5 milliseconds

[/autoit] [autoit][/autoit] [autoit]

Dim $setup
Dim $key
$setup = ".\install\avast.exe" ;Pfad zur Installationsdatei
$key = "xxxxxxxxxxxxxxxxxxxxx" ;Serinnummer von Avast

[/autoit] [autoit][/autoit] [autoit]

BlockInput(1)
Run($setup)
WinWaitActive("avast! Antivirus Setup","avast! Setup")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Lies mich")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Lizenzvereinbarung")
Send("!i")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Ziel")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Konfiguration")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Installationsinformation")
Send("!w")
WinWaitActive("Frage")
Send("!n")
WinWaitActive("avast! Antivirus Setup","Setup beendet")
Send("!s")
Send("!b")

[/autoit] [autoit][/autoit] [autoit]

Run(@ProgramsDir & "\Alwil Software\Avast4\ashAvast.exe") ; klappt nur wenn man den Standartpfad nimmt
WinWaitActive("Registrierung")
Send($key)
Send("!o")
Sleep(1500)
Send("!o")
WinWaitActive("avast! - simple user interface")
Send("!{F4}")
Sleep(1500)
Send("!{F4}")
BlockInput(0)

[/autoit]

McPoldy

Dies ist mein Skript zum installieren von Office 2003 Prof. mit allen Komponenten.

Spoiler anzeigen

[autoit]

Opt("SendKeyDelay", 100) ;5 milliseconds

[/autoit] [autoit][/autoit] [autoit]

BlockInput(1)
Dim $Setup, $SN
$Setup = ".\install\setup.exe" ;pfad zum setup
$SN = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" ;seriennummer
Run($Setup)
WinWaitActive("Microsoft Office 2003-Setup","Product Key")
Sleep(250)
Send($SN)
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Benutzerinformationen")
Send("Officeuser")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Endbenutzer-Lizenzvertrag")
Send("{space}")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Installationsart")
Send("!b")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Wählen Sie die Microsoft Office 2003-Anwendungen, die Sie installieren möchten:")
Send("!n")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Erweiterte Anpassung")
Send("{space}")
Send("{down 2}")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Zusammenfassung")
Send("!i")
WinWaitActive("Microsoft Office 2003-Setup","Setup ist abgeschlossen")
Send("!f")
BlockInput(0)
Exit

[/autoit]

bugmenot1

Dann steuer ich doch auch gleich mal was dazu bei,
hier mal mein Office 2003 Standard Script:
Hinweis: Da bei mir der CD-Key komischerweise einfach ums verrecken nicht eingegeben wurde, habe ich diesen samt Benutzernamen in der .ini Datei von Office 2003 eingetragen, so habe ich dieses Problem schonmal nicht!
Und noch ein Hinweis, bei diesem Script werden alle Office 2003 Standard Programme installiert, da ich nichts abwählen hab lassen

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.8.1
Author: $cR!pT k!ddY

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Office 2003 + SP3 + Compatibility Pack installieren

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;$cR!pT Start

[/autoit] [autoit][/autoit] [autoit]

;Office 2003 installieren
AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
;send(">>CD-Key hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
;MouseClick("left",174,130,2)
;Send(">>Name hier<<")
;MouseClick("left",172,184,2)
;Send(">>Firma hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "ENDBENUTZER")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Installationsart")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie")
ControlClick($title, "Erweiterte A&npassung von Anwendungen","Button5")
ControlClick($title, "&Weiter >","Button6")
WinWait($title, "Installationsoptionen")
;Alles vom Arbeitsplatz aus starten
MouseClick("left",106,145,1)
MouseClick("left",138,182,1)
Sleep(2000)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "&Fertig stellen","Button2")
BlockInput(0)

[/autoit] [autoit][/autoit] [autoit]

;SP3 installieren
WinWaitClose($title, "Fertig")
ShellExecute(@Scriptdir & "\Office 2003 SP\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren")
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Lesen Sie bitte den folgenden Lizenzvertrag")
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")

[/autoit] [autoit][/autoit] [autoit]

;Compatibility Pack installieren
ShellExecute(@Scriptdir & "\Office Compatibility Pack.exe")
$title2="Compatibility Pack für 2007 Office System"
WinWait($title2, "Klicken Sie hier")
ControlClick($title2, "Klicken Sie hier, um den Microsoft-Software-Lizenzbedingungen &zuzustimmen.","Button1")
ControlClick($title2, "&Weiter","Button2")
WinWait($title2, "Die Installation ist abgeschlossen.")
ControlClick($title2, "OK","Button1")

[/autoit] [autoit][/autoit] [autoit]

;Verknüpfungen anlegen
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\WINWORD.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Word 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\EXCEL.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Excel 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\OUTLOOK.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Outlook 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\POWERPNT.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office PowerPoint 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")

[/autoit] [autoit][/autoit] [autoit]

;$cR!pT End

[/autoit]

und wer es noch sehen will...hier mein Office 2003 Professional Script:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.8.1
Author: $cR!pT k!ddY

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Office 2003 + Addons installieren

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;$cR!pT Start

[/autoit] [autoit][/autoit] [autoit]

;Office 2003 installieren
;Eventuell noch einen Abbrechen Button hinzufügen
$msg= MsgBox(4, "Bitte wählen Sie","Möchten Sie Office 2003 und zusätzliche Tools installieren?")

[/autoit] [autoit][/autoit] [autoit]

If $msg = 6 Then _Go()

If $msg = 7 Then _Go2()

[/autoit] [autoit][/autoit] [autoit]

Func _Go()

[/autoit] [autoit][/autoit] [autoit]

AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003 Professional\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
Sleep(500)
Send(">>CD-Key hier<<")
Sleep(500)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
MouseClick("left",173,128,2)
Send(">>Name hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Um die Office-Installation fortzusetzen")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Beschreibung")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie die Microsoft Office 2003-Anwendungen")
ControlClick($title, "&Outlook","Button4")
ControlClick($title, "&Access","Button6")
ControlClick($title, "&InfoPath","Button7")
ControlClick($title, "P&ublisher","Button5")
ControlClick($title, "&Weiter >","Button9")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "I&nstallationsdateien löschen","Button1")
ControlClick($title, "&Fertig stellen","Button2")
WinWait($title, "Möchten Sie die Installationsquelldateien")
ControlClick($title, "&Ja","Button1")

[/autoit] [autoit][/autoit] [autoit]

;SP3 installieren
ShellExecute(@Scriptdir & "\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren?")
ControlClick($title1, "&Ja","Button1")
Sleep(500)
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")

[/autoit] [autoit][/autoit] [autoit]

;Remove Hidden Data Tool installieren
ShellExecute(@Scriptdir & "\Remove Hidden Data Tool.exe")
$title2="Remove Hidden Data Tool"
$title3="Tool zum Entfernen verborgener Daten-Setup"
WinWait($title2, "Möchten")
ControlClick($title2, "&Ja","Button1")
WinWait($title3, "ANMERKUNG")
ControlClick($title3, "Ich &stimme den Bedingungen des Lizenzvertrags zu.","Button1")
ControlClick($title3, "&Weiter >","Button2")
WinWait($title3, "Verfügbarer Speicher auf lokalen Festplatten:")
ControlClick($title3, "&Installieren","Button2")
WinWait($title3, "wurde erfolgreich abgeschlossen.")
ControlClick($title3, "OK","Button1")

[/autoit] [autoit][/autoit] [autoit]

;Office Compatibility Pack installieren
ShellExecute(@Scriptdir & "\Office Compatibility Pack.exe")
$title4="Compatibility Pack für 2007 Office System"
WinWait($title4, "LIZENZBESTIMMUNGEN")
ControlClick($title4, "Klicken Sie hier, um den Microsoft-Software-Lizenzbedingungen &zuzustimmen.","Button1")
ControlClick($title4, "&Weiter","Button2")
WinWait($title4, "Die Installation ist abgeschlossen.")
ControlClick($title4, "OK","Button1")

[/autoit] [autoit][/autoit] [autoit]

;Microsoft Office Converter Pack
ShellExecute(@Scriptdir & "\Microsoft Office Converter Pack.exe")
$title5="Microsoft Office Converter Pack"
WinWait($title5, "SUPPLEMENTAL")
ControlClick($title5, "&Yes","Button1")
WinWait($title5, "has been successfully installed.")
ControlClick($title5, "&Close","Button1")
BlockInput(0)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _Go2()
AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003 Professional\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
Sleep(500)
Send(">>CD-Key hier<<")
Sleep(500)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
MouseClick("left",173,128,2)
Send(">>Name hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Um die Office-Installation fortzusetzen")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Beschreibung")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie die Microsoft Office 2003-Anwendungen")
ControlClick($title, "&Outlook","Button4")
ControlClick($title, "&Access","Button6")
ControlClick($title, "&InfoPath","Button7")
ControlClick($title, "P&ublisher","Button5")
ControlClick($title, "&Weiter >","Button9")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "I&nstallationsdateien löschen","Button1")
ControlClick($title, "&Fertig stellen","Button2")
WinWait($title, "Möchten Sie die Installationsquelldateien")
ControlClick($title, "&Ja","Button1")
BlockInput(0)

[/autoit] [autoit][/autoit] [autoit]

;SP3 installieren
ShellExecute(@Scriptdir & "\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren?")
ControlClick($title1, "&Ja","Button1")
Sleep(500)
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;$cR!pT End

[/autoit]

Hinweis noch zum Office 2003 Professional Script:
Hier werden einige Programme abgewählt, da ich diese nicht benötige...im Prinzip würde dann auch ein Office 2003 Standard ausreichen xD

Was mich allerdings wundert, dass das Benutzernamen eintragen bei der Professional Version komischerweise ging...mhm...aber woran das liegt ka

racemike511

Danke für dein Avast Script, die reg ist leider hinfällig, da ich W-Lan habe und es zu dem Zeitpunckt noch nicht eingerichtet ist.

Aber werde es einfach weglassen die reg. vlt. über eine key.reg oder so ???
Mein Office Script funzt auch zu 98%, nur leider klickt es gaanz zum schluss nicht auf fertigstellen, habs schon überprüft, aber nüschts
Kann mir da jmd helfen ?

greetings mike

bugmenot1

Ich weis ja nich was ihr imma alle für Probleme mitm Office habt...also bei mir klickt er alles durch...geht bei mir daheim und in der Arbeit zu 100% (okee...hat auch nen paar Stunden Arbeit gekostet bis des mal alles so gelaufen is wies sollte...aber jetzt bin ich glücklich xD)

McPoldy

Hier mal mein Skript zu Deamon Tools Lite 4.12.0 inkl Neustart und schließen der Webfenster.

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.10.0
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.de

[/autoit] [autoit][/autoit] [autoit]

Script Function:
DAEMON Tools Lite 4.12.0

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ Optionen setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)

[/autoit] [autoit][/autoit] [autoit]

;~ Installationspfad
$setup = @ScriptDir & "\daemon4120-lite.exe"

[/autoit] [autoit][/autoit] [autoit]

;~ BlockInput(1)
$neustart = @ScriptDir & "\neustart.txt"

[/autoit] [autoit][/autoit] [autoit]

If FileExists($neustart) Then
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@StartupDir & "\autoitscriptneustart.lnk")
Switch $value
Case "Nachneustart1"
Nachneustart1()
Case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Die normale Installation
Func Main()
CreateRestart("Nachneustart1")
Run($setup)
WinWaitActive("DAEMON Tools Lite 4.12.0")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","License Agreement")
Send("!a")
$result = WinWaitActive("DAEMON Tools Lite 4.12.0","Setup must restart Windows and continue installation after reboot",10)
If $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
Exit 0
Else
OhneNeustart()
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Nachneustart1()
WinWaitActive("DAEMON Tools Lite 4.12.0","Welcome to the DAEMON Tools Lite 4.12.0 Setup Wizard",30000)
WinActive("DAEMON Tools Lite 4.12.0")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","License Agreement")
Send("!a")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Components")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team")
ControlClick("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team","Button2")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Install Location")
Send("!i")
WinWaitActive("DAEMON Tools Lite 4.12.0","Completing the DAEMON Tools Lite Setup Wizard")
Send("!f")
WinWaitActive("Thank you for DAEMON Tools Lite","")
$CloseWeb = 0
While $CloseWeb = 0
$CloseWeb = WinClose("Thank you for DAEMON Tools Lite","")
Sleep(500)
WEnd
WinWaitActive("Daemon Tools Pro comes with ads -- Please read this carefully")
Send("{ESC}")
$CloseWeb = 0
$result = 0
While $CloseWeb = 0
WinActive("Web Search :: DAEMON-Search.com")
$CloseWeb = WinClose("Web Search :: DAEMON-Search.com","")
Sleep(500)
if $result >= 10 Then Exit 0
$result = $result + 1
WEnd
Exit 0

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func OhneNeustart()
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Components")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team")
ControlClick("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team","Button2")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Install Location")
Send("!i")
WinWaitActive("DAEMON Tools Lite 4.12.0","Completing the DAEMON Tools Lite Setup Wizard")
Send("!f")
WinWaitActive("Thank you for DAEMON Tools Lite","")
$CloseWeb = 0
While $CloseWeb = 0
$CloseWeb = WinClose("Thank you for DAEMON Tools Lite","")
Sleep(500)
WEnd
WinWaitActive("Daemon Tools Pro comes with ads -- Please read this carefully")
Send("{ESC}")
$CloseWeb = 0
$result = 0
While $CloseWeb = 0
WinActive("Web Search :: DAEMON-Search.com")
$CloseWeb = WinClose("Web Search :: DAEMON-Search.com","")
Sleep(500)
if $result >= 10 Then Exit 0
$result = $result + 1
WEnd
Exit 0
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; Hier wird der RestartPrüfpunkt gesetzt
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

McPoldy

Hier die Alcohol 120% Lösung, auch mit neustart, aber auch ohne neustart, wenn z. B. vorher schon DeamonTools installiert wurde.

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.2.10.0
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.de

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Alcohol120 1.9.7.6022

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ Optionen setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)

[/autoit] [autoit][/autoit] [autoit]

;~ Installationspfad
$setup = @ScriptDir & "\Alcohol120_trial_1.9.7.6022.exe"

[/autoit] [autoit][/autoit] [autoit]

;~ BlockInput(1)
$neustart = @ScriptDir & "\neustart.txt"

[/autoit] [autoit][/autoit] [autoit]

If FileExists($neustart) Then
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@StartupDir & "\autoitscriptneustart.lnk")
Switch $value
Case "Nachneustart1"
Nachneustart1()
Case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; Die normale Installation
Func Main()
Run($setup)
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","License Agreement")
Send("!a")
$result = WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Setup must restart Windows and continue installation after reboot",10)
If $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
Exit 0
Else
OhneNeustart()
EndIf
EndFunc
;~ WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","")
;~ Send("!n")

[/autoit] [autoit][/autoit] [autoit]

Func Nachneustart1()
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","License Agreement")
Send("!a")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Alcohol Soft Data Type Search")
Send("{SPACE}")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Components")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Install Location")
Send("!i")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Completing the Alcohol 120% Setup Wizard")
Send("!f")
Send("#d")
Sleep(15000)
Send("!o")
Exit 0

EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func OhneNeustart()
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Alcohol Soft Data Type Search")
Send("{SPACE}")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Components")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Install Location")
Send("!i")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Completing the Alcohol 120% Setup Wizard")
Send("!f")
Send("#d")
Sleep(15000)
Send("!o")
Exit 0
EndFunc

[/autoit] [autoit][/autoit] [autoit]

; Hier wird der RestartPrüfpunkt gesetzt
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]