Hi,
der 13 jährige Benjamin macht nur ungerne eine Datensicherung. Wenn ja, dann dauert es auch etwas länger. Der AMD 900 mit 256MB Ram und WinME ist nicht mehr ganz so flott. Inzwischen ruft auch die Sicherungpartition nach mehr Speicherplatz.
1. Ich dachte mir, wenn er selbst an der Entstehung eines solchen Programms teilnimmt, könnte das sein Interesse und Verständnis wecken.
2. Als Packer war mein erster Gedanke an 7zip, doch die Kommandozeile von WinRAR schien mir etwas mächtiger (-ioff).
3. Auf Vollsicherung wird verzichtet, die jeweilige Aktualisierung (u -r) ist schneller.
4. Ebenso ist die Kompression auf Normal (-m3 oder keine Angaben für default) geblieben.
Die ersten Hürden hat die Running Disk mit Bravour bestanden. Nun wollte ich noch Eure fachliche Meinung einholen.
Also macht Euch einfach selbst mal ein Bild (siehe Anhang)!
Spoiler anzeigen
#include <GUIConstants.au3>
$GUI = GUICreate("Running Disk v 1.0", 315, 210, 350, 250)
[/autoit] [autoit][/autoit] [autoit]$gb_All = GUICtrlCreateGroup("", 8, 1, 300, 130)
[/autoit] [autoit][/autoit] [autoit]$avi = GUICtrlCreateAvi("RDsys\RD.avi", -1, 24, 16, 100, 100, $ACS_AUTOPLAY)
[/autoit] [autoit][/autoit] [autoit]$gb_EigeneDateien = GUICtrlCreateGroup("Eigene Dateien", 144, 16, 145, 97)
[/autoit] [autoit][/autoit] [autoit]$rb_Sichern = GUICtrlCreateRadio("&sichern", 150, 40, 113, 17)
GUICtrlSetState($rb_Sichern, $GUI_CHECKED)
$rb_SichernUaus = GUICtrlCreateRadio("sichern und den PC &ausschalten", 150, 65, 113, 33, $BS_MULTILINE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;$BS_MULTILINE = Zeilenumbruch
$bn_OK = GUICtrlCreateButton("&OK", 70, 170, 75, 25, 0)
GUICtrlSetState(-1,$GUI_DEFBUTTON)
$bn_Hinweis = GUICtrlCreateButton("&Hinweis", 149, 170, 75, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$bn_Close = GUICtrlCreateButton("&Beenden", 229, 170, 75, 25, 0)
[/autoit] [autoit][/autoit] [autoit]$lb_Version = GUICtrlCreateLabel("V 1.0.10 Build 2007-11-18", 16, 140, 130, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
$lb_Author = GUICtrlCreateLabel("Design by Benjamin u. Kiesi", 168, 140, 136, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x808080)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
If $nMsg <> 0 Then
$Sichern = GUICtrlRead($rb_Sichern)
Select
Case $nMsg = $bn_OK
If $Sichern = 1 Then
Run("RAR.exe u -r -ibck -tl D:\Backup\EigeneDateien.zip ""C:\Eigene Dateien\*.*""")
Else
Run("RAR.exe u -r -ibck -tl -ioff D:\Backup\EigeneDateien.zip ""C:\Eigene Dateien\*.*""")
EndIf
Case $nMsg = $GUI_EVENT_CLOSE Or $nMsg = $bn_Close
Exit
ExitLoop
Case $nMsg = $bn_Hinweis
MsgBox(64, "Wichtiger Hinweis !", "- sichern" & @CRLF & _
" " & @CRLF & _
" Bei der ersten Sicherung wird eine Vollsicherung durchgeführt und in eine Zip-Datei gepackt. " & @CRLF & _
" Alle weiteren werden nur aktualisiert. Das geht schneller als eine Vollsicherung. " & @CRLF & _
" Die Zip-Datei erhält dabei jeweils das Datum der jüngsten gesicherten Datei. " & @CRLF & _
" " & @CRLF & _
"- sichern und den PC ausschalten " & @CRLF & _
" " & @CRLF & _
" Im Anschluss einer durchgeführten Sicherung wird der PC automatisch ausgeschaltet. " & @CRLF & _
" Das ist besonders nützlich, wenn man nach vollbrachter Arbeit KEINE Zeit hat " & @CRLF & _
" die wichtige Sicherung durchzuführen. " & @CRLF & _
" " & @CRLF & _
"- Danksagung " & @CRLF & _
" " & @CRLF & _
" an das https://autoit.de/www.AutoIT.de - Team für das Engagement sowie die schnelle, " & @CRLF & _
" hochwertige Hilfe und manchmal auch Geduld. " & @CRLF & _
" " & @CRLF & _
"- Systemvoraussetzungen " & @CRLF & _
" " & @CRLF & _
" Zur Nutzung dieses Programms ist ein installiertes WinRAR erforderlich. " & @CRLF & _
" WinRAR wird NICHT mitgeliefert, kann man aber von den bekannten Seiten downloaden. " & @CRLF & _
" Weiterhin muss dieses Programm im gleichen Ordner, wie die WinRAR.exe liegen " & @CRLF & _
" um einen reibungslosen Ablauf zu gewährleisten. " & @CRLF & _
" Die Sicherung erfolgt von C:\Eigene Dateien nach D:\Backup\EigeneDateien.zip. " & @CRLF & _
" " & @CRLF & _
" Wir hoffen, dass Sie Gefallen an diesem Programm finden und vor allem, " & @CRLF & _
" dass es für Sie von Nutzen ist! ")
EndSelect
EndIf
WEnd
[/autoit]