[Beta/Vorschau]Backup Manager

[Der-Eddy]

Aus langeweile raus entstanden und dementsprechend schlecht geschrieben
Diese Version kann unter Umständen doch schwere Bugs besitzen weswegen ich davon abrate dieses Tool häufig zu verwenden!
Ich suche außerdem noch Ideen was ich am Tool verbessern kann!

Aktuelle Version: 1.0 β

Infos:
Dieses Tool speichert Backups von eurer Welt unter "%appdata%\.minecraft Backups"
Diese können auch bequem direkt aus dem Tool raus geladen werden

Achtung! Ihr müsst Minecraft beendet haben um ein Backup eurer Welten vorzunehmen!

Screenshots:

 Spoiler

Source:

 Spoiler

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListviewConstants.au3>
#Include <GuiListView.au3>
#include <BuildInZIP.au3>
#include <File.au3>
#include <Array.au3>

$Path = @AppDataDir & "\.minecraft\saves\"
$saves = _FileListToArray($Path)
$Scriptpath = @AppDataDir & "\.minecraft Backups\"

Global $listviewitems, $i, $e, $e_, $backup, $Backupfrage, $Backupfrage_, $Backupfrage__,  $groese

Opt("GUIOnEventMode", 1)

$Form1 = GUICreate("Backup Manager", 495, 433)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$ListView1 = GUICtrlCreateListView("Saves | Größe | Letztes Backup", 16, 16, 295, 409, $LVS_SINGLESEL)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 90)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
$Button1 = GUICtrlCreateButton("Backup erstellen", 325, 24, 153, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Backup")
$Button2 = GUICtrlCreateButton("Backup laden", 325, 64, 153, 33, $WS_GROUP)
GUICtrlSetOnEvent(-1, "Backupladen")
GUISetState(@SW_SHOW)

While 1
Dim $listviewitems[UBound($saves)]

For $i = 1 To UBound($saves) - 1
	$backup = IniRead($Scriptpath & "data.ini", "Saves", $saves[$i], "Kein Backup vorhanden")
	$groese = Round(DirGetSize($Path & $saves[$i] & "\") / 1024 / 1024, 2) & " MB"
    $listviewitems[$i] = GUICtrlCreateListViewItem($saves[$i] & "|" & $groese & "|" & $backup, $ListView1)
Next
	Sleep(10000)
	_GUICtrlListView_DeleteAllItems($ListView1)
WEnd

Func Backup()
	$e = 0
	$e_ = 0
	$saveausgabe = GUICtrlRead($ListView1) - 5
	If $saveausgabe = -5 Then
		MsgBox(16, "Fehler","Sie haben keine Welt ausgewählt!")
	Else
	Do
		$e = $e  + 1
		If $e = $saveausgabe Then
			$saveausgabe_ = $Path & $saves[$e] & "\"
			$e_ = 1
		Endif
	Until $e_ = 1
	$Backupfrage = MsgBox(4, "Backup erstellen", "Möchten sie wirklich von " & $saves[$e] & " ein Backup erstellen?")
	If $Backupfrage = 6 Then
	If FileExists($Scriptpath & $saves[$e] & ".zip") Then
		$Backupfrage_ = MsgBox(4, "Backup erstellen", "Es gibt bereits ein Backup unter diesem Namen" & @CRLF & "Möchten sie es überschreiben?")
		If $Backupfrage_ = 6 Then
	_BuildInZIP($Scriptpath & $saves[$e] & ".zip", $saveausgabe_, False, 1)
	TrayTip("Backup Manager", "Backup von " & $saves[$e] & " wurde erstellt!", 10)
	Iniwrite($Scriptpath & "data.ini", "Saves", $saves[$e], @HOUR & ":" & @MIN & ":" & @SEC & " " & @MDAY & "." & @MON & "." & @YEAR)
	Sleep (5000)
Endif
Else
	_BuildInZIP($Scriptpath & $saves[$e] & ".zip", $saveausgabe_, False, 1)
	Iniwrite($Scriptpath & "data.ini", "Saves", $saves[$e], @HOUR & ":" & @MIN & ":" & @SEC & " " & @MDAY & "." & @MON & "." & @YEAR)
	TrayTip("Backup Manager", "Backup von " & $saves[$e] & " wurde erstellt!", 10)
	Sleep (5000)
EndIf
EndIf
EndIf
EndFunc


Func Backupladen ()
	$e = 0
	$e_ = 0
	$saveausgabe = GUICtrlRead($ListView1) - 5
	If $saveausgabe = -5 Then
		MsgBox(16,"Fehler","Sie haben keine Welt ausgewählt!")
	Else
	Do
		$e = $e  + 1
		If $e = $saveausgabe Then
			$saveausgabe_ = $Path & $saves[$e] & "\"
			$e_ = 1
		Endif
	Until $e_ = 1
	If NOT FileExists($Scriptpath & $saves[$e] & ".zip") Then
		MsgBox(16, "Fehler","Es existiert kein Backup zu dieser Welt!")
	Else
	$Backupfrage__ = MsgBox(4, "Backup laden", "Möchten sie wirklich von " & $saves[$e] & " ein Backup laden und somit die alte Welt überschreiben?")
	If $Backupfrage__ = 6 Then
	DirRemove($Path & $saves[$e], 1)
	_BuildInZIP($Scriptpath & $saves[$e] & ".zip", $Path, True, 1)
	TrayTip("Backup Manager", "Backup von " & $saves[$e] & " wurde geladen!", 10)
	Endif
	Endif
	EndIf
EndFunc

Func _Exit()
	Exit
EndFunc

[mono0]

Eine 'Backup löschen' Funktion wär auch ganz nett. Eventuell auch 'Backup Ordner öffnen'. Ansonsten siehts schon super aus.

btw lern C++

[Der-Eddy]

Originally Posted by mono0

Eine 'Backup löschen' Funktion wär auch ganz nett. Eventuell auch 'Backup Ordner öffnen'. Ansonsten siehts schon super aus.

btw lern C++

Ich kann nunmal AutoIt bis jetzt am besten
noch mehr Funktionen folgen

[False]

haste nice gemacht danke

€:was das für eine world 98mb o.O

[Metzer]

Originally Posted by Kingzuck²

€:was das für eine world 98mb o.O

 Spoiler

Schön das du es mal Public machst. So ne Funktion wie im Tratschthread erwähnt wäre schon nett. Also das mit den Auto-Backup bzw. so was ähnliches.

[Mario Balotelli]

Ne Einstellung, dass das Programm automatische BackUp's erstellt wäre nett.
Ansonsten, sehr nützliches Programm, wenn du nicht gesagt hättest das es "schwere Bugshat/verursacht" was mir bisschen Angst macht. Die level.dat beschädigt es aber nicht, oder sowas in der Art?

[Der-Eddy]

Originally Posted by HappySk1LL

Ne Einstellung, dass das Programm automatische BackUp's erstellt wäre nett.
Ansonsten, sehr nützliches Programm, wenn du nicht gesagt hättest das es "schwere Bugshat/verursacht" was mir bisschen Angst macht. Die level.dat beschädigt es aber nicht, oder sowas in der Art?

Ich hab es noch nicht getestet, kann doch sehr viel falsch laufen weil es nur in AutoIt geschrieben ist und ich doch sehr viele UDFs benutze

[Metzer]

Originally Posted by Der-Eddy

Ich hab es noch nicht getestet, kann doch sehr viel falsch laufen weil es nur in AutoIt geschrieben ist und ich doch sehr viele UDFs benutze

Läuft aber bisher alles perfekt, auch wenn ich es mich noch nicht traue mit meiner Main Welt zu machen.

[Der-Eddy]

Originally Posted by BeZz.

Läuft aber bisher alles perfekt, auch wenn ich es mich noch nicht traue mit meiner Main Welt zu machen.

Die aktuelle Version 1.2 an der ich arbeite ist doch etwas verwirrender als ich dachte, man kann ja nie wissen was ich so alles vergessen habe einzubauen

[NoObKiLLyOu]

Ich wäre dafür wenn du auf eine stabileren Programmiersprache das ganze noch einmal programmierst, da es bei einer sehr großen Map zu eventuellen Crashes kommen kann, es wäre vielleicht schon mit einem sauberen Vb.Net Code stabil und es hätte dann nicht so viele Bugs.

Ein versuch ist es Wert!

[Der-Eddy]

Originally Posted by NoObKiLLyOu

Ich wäre dafür wenn du auf eine stabileren Programmiersprache das ganze noch einmal programmierst, da es bei einer sehr großen Map zu eventuellen Crashes kommen kann, es wäre vielleicht schon mit einem sauberen Vb.Net Code stabil und es hätte dann nicht so viele Bugs.

Ein versuch ist es Wert!

Ich schreibe das ganze derzeit in AutoIt weil ich vielleicht auch andere Leute dazu anspornen will damit anzufangen und vielleicht dann auch höheren Sprachen zu lernen
Ich hab ja den Quellcode beigelegt

aber wie gesagt behersche ich AutoIt derzeit doch noch besser als Visual Basic sodas ich doch lieber damit programmiere

[[Z]ohan.]

Nice Tool...
Aber gehört das nicht in die Minecraft Guides & Strategies Section? :O

[BlackWhidow]

find ich gut aber wie unterscheidet sich dein tool zu anderen die man unter Backup Utilities findet?
mehr funktionen wären klasse
mfg

[Der-Eddy]

Originally Posted by [Z]ohan.

Nice Tool...
Aber gehört das nicht in die Minecraft Guides & Strategies Section? :O

Irgendwie nicht, das ist ja keine Releaeses Section

[[Z]ohan.]

Originally Posted by Der-Eddy

Irgendwie nicht, das ist ja keine Releaes Section

&' warum Releasen da andere Leute ihre Tools?
Dann könnte man ja sowas gleich hinzufügen oder nicht?

MfG