So hier mal das tolle Programm nLite es wird aus dem I-Net gezogen auf C:\ abgespeichert installiert und nach der Installation wird die heruntergeladene Datei gelöscht. Es sind noch ein paar mehr spielerein drin danke an limette er hat mir sehr geholfen
Testet es mal aus ist sehr hart erarbeitet von mir wa ne schwere geburt
Spoiler anzeigen
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: nLite-1.4.8
;|
;| Autor: bo2221
;|
;| Getestet mit: Windows XP
;|_______________________________________________________________________________________
; Optionale Befehle
If MsgBox(64+4, "nLite-1.4.8 Installation", "Wollen sie wirklich nLite-1.4.8 auf ihrem Rechner installieren?") = 7 Then Exit
;Skript Start
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];Herunterladen von nLite-1.4.8
#include <Misc.au3> ;für _IsPressed
InetGet("http://www.filehippo.com/download/file/8b539b7f908b88af01b84ef58de5a028e7f7e5ca98893cf9329cf48acfc40b3a/", 'C:\nLite-1.4.8.exe', 1, 1)
Break(0) ;Verhindert Unterbrechungen
While @InetGetActive
TrayTip("Downloading... (Abbruch mit ESC)", " Bytes = " & @InetGetBytesRead, 10, 16)
If _IsPressed( '1B' ) Then ;Wenn ESC gedrückt wurde
If MsgBox( 64+4, 'Bestätigen', 'Möchten Sie den Download wirklich abbrechen ?' ) = 6 Then ;Anfang der If-Klausel
InetGet( 'abort' ) ; Beende den Download
FileDelete( 'C:\nLite-1.4.8.exe' ) ;Lösche die Datei
Exit ; Beendet
EndIf ;Ende der If-Klausel
; da die Bedingung der While-Schleife @InetGetActive ist
EndIf
Sleep(100)
Wend
Opt("TrayIconHide", 1) ;Läßt das Try-Icon verschwinden
[/autoit] [autoit][/autoit] [autoit];Setup starten
run("C:\nLite-1.4.8.exe")
;Select Setup Language
WinWaitActive("Select Setup Language", "Select the language to use during the installation:")
send("{up}")
send("{enter 2}")
;Willkommens Fenster
WinWaitActive("Setup - nLite")
send("{enter}")
;Lizenzvereinbarung
WinWaitActive("Setup - nLite", "Lesen Sie bitte die folgenden Lizenzvereinbarungen")
controlclick("Setup - nLite", "Ich &akzeptiere die Vereinbarung", "TNewRadioButton1")
send("{enter}")
;Ziel-Ordner wählen
WinWaitActive("Setup - nLite")
send("{enter}")
;Komponenten auswählen
WinWaitActive("Setup - nLite")
send("{enter}")
;Zusätzliche Aufgaben auswählen (mit Desktop-Symbol)
WinWaitActive("Setup - nLite")
send("{enter}")
;Installation beendet
WinWaitActive("Setup - nLite", "Das Setup hat die Installation von nLite auf Ihrem Computer abgeschlossen")
send("{enter}")
If MsgBox( 64, 'Die Installation von nLite-1.4.8 ist abgeschlossen', 'Drücken sie auf OK, um die Installation abzuschließen und die heruntergeladene Datei zu löschen' ) = 1 Then ;Anfang der If-Klausel
InetGet( 'abort' ) ; Beende den Download
FileDelete( 'C:\nLite-1.4.8.exe' ) ;Lösche die Datei
Exit ; Beendet
EndIf