Ja Hallo erstmal ich bin es schon wieder
Ich hätte da noch nen kleines anliegen. Also es geht darum ich habe jetzt ein voll Funktionstüchtige Automatische installation es wird die Datei ausm internet geladen, mit Status anzeige und nach dem Installieren wird die Datei wieder gelöscht. Läuft alles bestens
Hier mal das Skript:
Spoiler anzeigen
;|¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
;| Installation von: nLite-1.4.8
;|
;| Autor: bo2221
;|
;| Getestet mit: Windows XP
;|_______________________________________________________________________________________
; Programm Installieren JA/NEIN
If MsgBox(32+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
Break(0) ;Verhindert Unterbrechungen
#include <Misc.au3> ;für _IsPressed
$size = InetGetSize("http://www.filehippo.com/download/file/8dd49141ac89c1faf4d4cf0465da8b30264cda60d8995f6f580141896f40b2c3/nLite-1.4.8.installer.exe") ;Jz ist $size = Größe der herunterzuladenen Datei
InetGet("http://www.filehippo.com/download/file/8dd49141ac89c1faf4d4cf0465da8b30264cda60d8995f6f580141896f40b2c3/nLite-1.4.8.installer.exe", @HomeDrive & '\nLite-1.4.8.exe', 1, 1)
While @InetGetActive
TrayTip("Downloading.... (Abbruch mit ESC)", " Es sind schon " & Round( (@InetGetBytesRead/$size)*100) & '% geladen!', 10, 1)
;TrayTip( 'Titel', 'Textstück 1' & 'Textstück 2' & '......' & Runde( gelandene Bytes geteilt durch Gesamtanzahl an Bytes mal 100, auf 2 Dezimalstellen ) & ' %', 10, 1 = Info-Icon, 2 = Achtung-Icon, 3 = Error-Icon )
If _IsPressed('1B') Then ;Wenn ESC gedrückt wurde
If MsgBox(32 + 4, 'Bestätigen', 'Möchten Sie den Download wirklich abbrechen ?') = 6 Then ;Anfang der If-Klausel
InetGet('abort') ; Beendet den Download
FileDelete( @HomeDrive & '\nLite-1.4.8.exe') ;Lösche die Datei
Exit ; Beendet
EndIf ;Ende der If-Klausel
EndIf
Sleep(100)
WEnd
Opt("TrayIconHide", 1) ;Läßt das Try-Icon verschwinden
[/autoit] [autoit][/autoit] [autoit];Setup starten
run( @HomeDrive & '\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 beendet', '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
Jetzt ist mir aber noch was eingefallen was noch dazu könnte und ich wollte wissen ob sowas machtbar ist ich glaube aber mal schon.
Ich hätte gerne das die ganze Installation im Hintergrund ab läuft ohne das irgendwelche Fenster wechseln ohne Ablage eines Fensters im Task nur das man in einem TrayTip den Status in % der Installation sehen kann und die Installation gegebenfalls mit ESC abbrechen kann.
Ich möchte das gerne mit euch zusammen erarbeiten wenn sowas möglich ist wenn mir da jemand unter die arme greifen könnte.
Gruß der Bo