Habe mal Dein Script "Neustart" durchgeschaut und etwas mit gespielt.
Also man kann damit viele schöne Sachen machen, wie z. B. eine Masseninstallation.Einfach bei "Nach Neustart" das nächste Setup / die nächste Install aufrufen und dann den aktuellen Prozess beenden. Wenn man das immer wieder wiederholt, kann man sich viel Zeit sparen.
Möchte mir mal eine Installations-DVD erstellen, nur da ist das Problem ja, das die neustart.txt dann auf HDD gespeichert werden muß, aber das sollte man hinbekommen.
Damit andere die Funktion mal aktiv sehen, habe ich mir mal erlaubt, das Script mit MsgBoxen zu versehen. Das schaut dann so aus:
Spoiler anzeigen
;~Option setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)
;~Installationspfad
;$setup = @ScriptDir & "\daemon4120-lite.exe"
;~BlockInput(1)
$neustart = @ScriptDir & "\neustart.txt"
If FileExists($neustart) Then
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@ScriptDir & "\autoitscriptneustart.lnk")
Switch $value
case "Nachneustart1"
Nachneustart1()
case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit
; 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")
; ...
; ...
; ...
MsgBox(0,"Moin","Warte bitte bis die MsgBox mit dem MELDUNG 1 Fenster auf geht. Bestätige es. Danach gibt es die neustart.txt . Danach drücke nochmals die F5 und warte Bis das ENDE Fenster erscheint.")
$result = WinWaitActive("Moin","Warte bitte bis die MsgBox mit dem MELDUNG 1 Fenster auf geht. Bestätige es. Danach gibt es die neustart.txt . Danach drücke nochmals die F5 und warte Bis das ENDE Fenster erscheint.",10)
if $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
Exit 0
Else
OhneNeustart()
EndIf
EndFunc
Func Nachneustart1()
; hier rein was NACH dem Neustart passieren soll
MsgBox(0,"ENDE","ENDE!!! Die neustart.txt ist verschwunden, wenn Du dieses Fenster siehst.")
EndFunc
Func OhneNeustart()
; hier rein was VOR dem Neustart passieren soll
MsgBox(0,"MELDUNG 1","MELDUNG 1")
EndFunc
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc
Ist doch mal etwas, das so jeder verstehen sollte.
Finde die Videos echt super und ich warte schon sehnsüchtig auf die nächsten.
LG, Crazy-A.