[TUT] Einfachen Updater erstellen!

~~Tiimä~~ · 07/11/2013, 18:00

Hey,
das ist mein erstes TUT, also seid nicht so streng mit mir!

1. Voraussetzungen
- Webspace
- Zip.au3

2. GUI
So nun brauchen wir eine Gui für die Abfrage, ob geupdated werden soll, und eine Gui, um den Changelog anzuzeigen.
Hier mal meine:

3. Dateien erstellen
Als erstes müsst ihr eine Datei erstellen, die die Versionnummer enthält. Bei mir: version.txt
Beispiel:

HTML Code:

2.5

Danach noch eine HTML Datei, die den Changelog enthält. Bei mir: log.html
Beispiel:

HTML Code:

<p>added: GUI</p>
<p>*Bug fixes</p>

4. AutoIt
Als erstes müssen wir die Versionsnummer auslesen und den Source der HTML Datei verarbeiten. Dafür ersetzen wir und !

Code:

$version = _INetGetSource("http://tim-lange.org/tut/version.txt") ;Version
$read = _INetGetSource("http://tim-lange.org/tut/log.html") ;Source einlesen
$umbruch = StringReplace($read, "</p>", @CRLF) ;</p> durch Zeilenumbruch ersetzen
$logedit = StringReplace($umbruch, "<p>", "") ;<p> rauslöschen

Nun will der User natürlich auch wissen, auf welche Version geupdated werden soll.

Code:

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Updater", 250, 71, -1, -1)
$updatelabel = GUICtrlCreateLabel("Update to " & $version & "?", 64, 8, 124, 28) ;Nur diese Zeile ist wichtig!
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$y = GUICtrlCreateButton("Yes", 8, 40, 75, 25)
$n = GUICtrlCreateButton("No", 88, 40, 75, 25)
$log = GUICtrlCreateButton("Changelog", 168, 40, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

Wenn das geschafft ist setzen wir dem Editfeld Eigentschaften, dass man Scrollen kann, aber den Inhalt nicht editieren kann.

Code:

#region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Changelog", 261, 174, -1, -1)
$Edit1 = GUICtrlCreateEdit($logedit, 8, 8, 241, 129, $ES_READONLY + $WS_VSCROLL + $WS_HSCROLL) ;Nur die Zeile ist wichtig!
$close = GUICtrlCreateButton("Close", 8, 144, 243, 25)
#endregion ### END Koda GUI section ###

Zum Schluss müssen wir noch unseren Buttons eine Funktion geben.

Code:

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $log ;Wenn unser Changelog Button gedrückt wird, soll die 2. GUI mit dem Changelog angezeigt werden. Dafür setzen wir die Form2 auf SHOW!
			GUISetState(@SW_SHOW, $Form2)
		Case $close;Wenn die GUI wieder geschlossen werden soll, ohne das sich das Programm schließt, müssen wird die Form2 einfach wieder auf HIDE setzen!
			GUISetState(@SW_HIDE, $Form2)
		Case $n ;Wenn der User nicht updaten will kann er auf nein drücken und das Programm schließt sich einfach. Ist aber kein Muss!
			Exit
		Case $y ;Wenn er nun das Update bestätigt, wird per InetGet die neuste Version heruntergeladen, Unzipped und gesagt, dass alles Erfolgreich war.
			InetGet("http://tim-lange.org/tut/prefix-" & $version & ".zip", "C:\update.zip") ;Prefix kann nach belieben geändert werden!
			_Zip_UnzipAll("C:\update.zip", @ScriptDir, 1)
			MsgBox(64, "Updater", "Succesfuly updated to " & $version & "!")
			Exit
	EndSwitch
WEnd

Das wars dein eigentlich schon

Der Updater ist fertig! Ich hoffe es ist gut verständlich.

YatoDev · 07/11/2013, 18:09

lad bitte die zip.au3 hoch

~~Tiimä~~ · 07/11/2013, 18:14

Quote:

Originally Posted by »FlutterShy™

lad bitte die zip.au3 hoch

Habs gemacht

YatoDev · 07/11/2013, 18:34

bist du dir sicher das du das richtige hochgeladen hast ?

Achat · 07/11/2013, 18:42

Quote:

Originally Posted by Tiimä

1. Voraussetzungen
- Webspace
- INet.au3
- Zip.au3
- GUI Includes
- Koda
[/code]

1. Voraussetzungen
- Webspace
- INet.au3
- Zip.au3
- GUI Includes
- Koda

MfG

Asuramaru · 07/11/2013, 19:46

Anstadt ein extra Include zu nutzen könntest du auch einfach InetRead benutzen und das Ergebniss mit BinaryToString in einen String umwandeln.

Code:

$version = BinaryToString(InetRead("http://tim-lange.org/tut/version.txt",2))

Wenn du sowieso löscht, wieso benutzt du dieses dann eigentlich?
Man könnte diese einfach weglassen und somit das StringReplace() sparen.

Du solltest darauf achten auf mögliche Fehler einzugehen und den Rückgabewert der Funktionen überprüfen.
Denn du weißt nicht ob der Download und somit das updaten erfolgreich war.

Je nach geschmack könnte man die zip.au3 auch raushauen und die Files einzelnt runterladen, wenn man allerdings lieber mit einem Zip-Packet arbeitet ist das auch okay.

mfg.

K1ramoX · 07/11/2013, 19:55

paar ideen:

würde lieber JSON code nehmen statt xml
error abfragen implementieren, dein script macht einfach weiter. kann ja sein dass dein webspace mal down ist und dass wäre fürs script nicht so gut
es ist definitiv sauberer, wenn du statt codeteile wie Case $GUI_EVENT_CLOSE lieber Case -3 nimmst. so sparst du dir includes und die datei wird kleiner

YatoDev · 07/11/2013, 20:04

ich möchte trotzdem noch die zip.au3 , oder bin ich wirklich zu dumm die zu finden ? (nein im anhang ist die nicht da ist die win api constants und word.au3)

K1ramoX · 07/11/2013, 20:31

Quote:

Originally Posted by »FlutterShy™

ich möchte trotzdem noch die zip.au3 , oder bin ich wirklich zu dumm die zu finden ? (nein im anhang ist die nicht da ist die win api constants und word.au3)

google hätte auch geholfen ;o

Achat · 07/11/2013, 20:54

Quote:

Originally Posted by »FlutterShy™

ich möchte trotzdem noch die zip.au3 , oder bin ich wirklich zu dumm die zu finden ? (nein im anhang ist die nicht da ist die win api constants und word.au3)

MfG

~~Tiimä~~ · 07/11/2013, 21:17

Quote:

Originally Posted by »FlutterShy™

ich möchte trotzdem noch die zip.au3 , oder bin ich wirklich zu dumm die zu finden ? (nein im anhang ist die nicht da ist die win api constants und word.au3)

LOL! Ich hasse Windows

Quote:
Originally Posted by *_Kenshi_*
Anstadt ein extra Include zu nutzen könntest du auch einfach InetRead benutzen und das Ergebniss mit BinaryToString in einen String umwandeln.
Code:
$version = BinaryToString(InetRead("http://tim-lange.org/tut/version.txt",2))
Wenn du sowieso löscht, wieso benutzt du dieses dann eigentlich?
Man könnte diese einfach weglassen und somit das StringReplace() sparen.

Du solltest darauf achten auf mögliche Fehler einzugehen und den Rückgabewert der Funktionen überprüfen.
Denn du weißt nicht ob der Download und somit das updaten erfolgreich war.

Je nach geschmack könnte man die zip.au3 auch raushauen und die Files einzelnt runterladen, wenn man allerdings lieber mit einem Zip-Packet arbeitet ist das auch okay.

mfg.

Ich hatte sonst immer das Problem, dass die Umbrüche nicht übernommen wurden!

Achat · 07/11/2013, 22:30

Quote:

Originally Posted by Tiimä

LOL! Ich hasse Windows

Ich hatte sonst immer das Problem, dass die Umbrüche nicht übernommen wurden!

Code?

Es gibt übrigens @LF, @CR und @CRLF
bzw \n \r \r\n

In einem Editor (z.B. Notepad++) kannst du dir auch nicht-druckbare Zeichen anzeigen.

MfG

YatoDev · 07/11/2013, 22:46

Quote:

Originally Posted by K1ramoX

google hätte auch geholfen ;o

Quote:

Originally Posted by Achat

Code?

Es gibt übrigens @LF, @CR und @CRLF
bzw \n \r \r\n

In einem Editor (z.B. Notepad++) kannst du dir auch nicht-druckbare Zeichen anzeigen.

MfG

Ich wuerde sagen das es an der codierung des textes liegt .

Zu der zip.au3
Nein ich haette die mir nicht aus google suchen koennen ! ich hab vor einigen wochen hier schonmal nach einer gefragt welche aber nicht richtig oder garnicht funktioniert haben

~~Tiimä~~ · 07/11/2013, 23:35

Die richtige ist nun oben!