Autoupdater

EmEx

hi,

hab schon die suche benmutzt aber nicht so das ware gefunden suche ein update tool für mein script
hab auch schon eine schöne gui gefunden

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
$Form1 = GUICreate("Update", 295, 133, 193, 125)
$Progress1 = GUICtrlCreateProgress(32, 56, 230, 17)
$Label1 = GUICtrlCreateLabel("Update Suche...", 110, 37, 82, 17)
GUISetstate(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

InetGet("http://DeineWebSite.de/update.upd", "update.upd")

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData($Progress1, 1)
sleep(200)
Guictrlsetdata($Progress1, 2)
sleep(200)
Guictrlsetdata($Progress1, 3)
sleep(200)
Guictrlsetdata($Progress1, 4)
sleep(200)
Guictrlsetdata($Progress1, 5)
sleep(200)
Guictrlsetdata($Progress1, 6)
Guictrlsetdata($Progress1, 7)
Guictrlsetdata($Progress1,
Guictrlsetdata($Progress1, 9)
Guictrlsetdata($Progress1, 10)
GuictrlsetData($Progress1, 11)
sleep(500)
Guictrlsetdata($Progress1, 12)
Guictrlsetdata($Progress1, 13)
Guictrlsetdata($Progress1, 14)
Guictrlsetdata($Progress1, 15)
Guictrlsetdata($Progress1, 16)
Guictrlsetdata($Progress1, 17)
Guictrlsetdata($Progress1, 18)
Guictrlsetdata($Progress1, 19)
Guictrlsetdata($Progress1, 20)
GuictrlsetData($Progress1, 21)
Guictrlsetdata($Progress1, 22)
Guictrlsetdata($Progress1, 23)
Guictrlsetdata($Progress1, 24)
Guictrlsetdata($Progress1, 25)
Guictrlsetdata($Progress1, 26)
sleep(100)
Guictrlsetdata($Progress1, 27)
Guictrlsetdata($Progress1, 28)
Guictrlsetdata($Progress1, 29)
Guictrlsetdata($Progress1, 30)
GuictrlsetData($Progress1, 31)
Guictrlsetdata($Progress1, 32)
Guictrlsetdata($Progress1, 33)
Guictrlsetdata($Progress1, 34)
Guictrlsetdata($Progress1, 35)
Guictrlsetdata($Progress1, 36)
Guictrlsetdata($Progress1, 37)
Guictrlsetdata($Progress1, 38)
Guictrlsetdata($Progress1, 39)
Guictrlsetdata($Progress1, 40)
GuictrlsetData($Progress1, 41)
Guictrlsetdata($Progress1, 42)
sleep(200)
Guictrlsetdata($Progress1, 43)
Guictrlsetdata($Progress1, 44)
Guictrlsetdata($Progress1, 45)
Guictrlsetdata($Progress1, 46)
Guictrlsetdata($Progress1, 47)
Guictrlsetdata($Progress1, 48)
Guictrlsetdata($Progress1, 49)
Guictrlsetdata($Progress1, 50)
GuictrlsetData($Progress1, 51)
Guictrlsetdata($Progress1, 52)
sleep(10)
Guictrlsetdata($Progress1, 53)
Guictrlsetdata($Progress1, 54)
Guictrlsetdata($Progress1, 55)
Guictrlsetdata($Progress1, 56)
Guictrlsetdata($Progress1, 57)
Guictrlsetdata($Progress1, 58)
Guictrlsetdata($Progress1, 59)
Guictrlsetdata($Progress1, 60)
sleep(789)
GuictrlsetData($Progress1, 61)
Guictrlsetdata($Progress1, 62)
Guictrlsetdata($Progress1, 63)
Guictrlsetdata($Progress1, 64)
Guictrlsetdata($Progress1, 65)
Guictrlsetdata($Progress1, 66)
Guictrlsetdata($Progress1, 67)
Guictrlsetdata($Progress1, 68)
Guictrlsetdata($Progress1, 69)
Guictrlsetdata($Progress1, 70)
GuictrlsetData($Progress1, 71)
Guictrlsetdata($Progress1, 72)
Guictrlsetdata($Progress1, 73)
Guictrlsetdata($Progress1, 74)
Guictrlsetdata($Progress1, 75)
Guictrlsetdata($Progress1, 76)
Guictrlsetdata($Progress1, 77)
Guictrlsetdata($Progress1, 78)
sleep(123)
Guictrlsetdata($Progress1, 79)
Guictrlsetdata($Progress1, 80)
GuictrlsetData($Progress1, 81)
Guictrlsetdata($Progress1, 82)
Guictrlsetdata($Progress1, 83)
Guictrlsetdata($Progress1, 84)
Guictrlsetdata($Progress1, 85)
Guictrlsetdata($Progress1, 86)
Guictrlsetdata($Progress1, 87)
Guictrlsetdata($Progress1, 88)
Guictrlsetdata($Progress1, 89)
Guictrlsetdata($Progress1, 90)
sleep(30)
GuictrlsetData($Progress1, 91)
Guictrlsetdata($Progress1, 92)
Guictrlsetdata($Progress1, 93)
Guictrlsetdata($Progress1, 94)
Guictrlsetdata($Progress1, 95)
sleep(200)
Guictrlsetdata($Progress1, 96)
Guictrlsetdata($Progress1, 97)
Guictrlsetdata($Progress1, 98)
sleep(200)
Guictrlsetdata($Progress1, 99)
sleep(500)
Guictrlsetdata($Progress1, 100)

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
EndSwitch
Exit

[/autoit] [autoit][/autoit] [autoit]

WEnd
If Guictrlread($Progress1) == 100 and Filereadline("update.upd", 1) == Filereadline("Version.ver",1) Then
InetGet("http://Website.de/updatedatei.dll/exe/etc.", "update.dll/exe/etc.")
Else
Run("start.exe")
EndIf

[/autoit]

nur blicke ich da nicht ganz durch.
mein script bzw meine scripte sind nicht alle im gleichen ordner und es solln, wenn eine neue version da is (über eine datei festgelegt) alle upgedatet werden. also runtergeladen und in den richtigen ordner gelegt werden.

es sind 33 dateien und 1 ordner

name22

Das Script lädt zuerst die Datei mit der Versionsnummer runter und simuliert dann einen Fortschrittsbalken (keine Ahnung was das soll) und vergleicht die beiden Versionen des Scripts. Sind die beiden Versionen gleich, wird wie gewöhnlich die "Start.exe" ausgeführt, ist eine aktuellere Version vorhanden wird diese heruntergeladen. Im Script sind allerdings ein "paar" Fehler... Mit vielen Dateien müsstest du nur entsprechend viele "InetGet" Funktionen verwenden.

PCKing

Ich hab mir mal erlaubt das script ein bisschen umzuschreiben.
für die eine datei sollte es eigentlich gehen, habs nicht getestet

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Update", 295, 133)
$Progress1 = GUICtrlCreateProgress(32, 56, 230, 17)
$Label1 = GUICtrlCreateLabel("Update Suche...", 110, 37, 82, 17)

[/autoit] [autoit][/autoit] [autoit]

GUISetstate(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

InetGet("http://DeineWebSite.de/update.upd",@ScriptDir & "/update.upd",1,1)

[/autoit] [autoit][/autoit] [autoit]

Do ;Damit der Prozess auch den richtigen prozentwert angibt
$groesse = InetGetSize("http://DeineWebSite.de/update.upd")
$1 = $groesse/100
$prozent = @InetGetBytesRead/$1
GuictrlsetData($Progress1, $prozent)
$msg = GUIGetMsg()
Until $prozent = 100 Or $msg = $GUI_EVENT_CLOSE Or $groesse = -1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Filereadline(FileOpen(@ScriptDir & "/update.upd", 0),1) = Filereadline(FileOpen(@ScriptDir & "/Version.ver",0),1) Then ;bei FileReadLine muss man die datei vorher mit FileOpen öffnen
InetGet("http://Website.de/updatedatei.dll/exe/etc.",@ScriptDir & "/update.dll/exe/etc.")
Else
Run(@ScriptDir & "/start.exe")
EndIf

[/autoit]

EmEx

Zitat

If Filereadline(FileOpen(@ScriptDir & "/update.upd", 0),1) = Filereadline(FileOpen(@ScriptDir & "/Version.ver",0),1) Then ;bei FileReadLine muss man die datei vorher mit FileOpen öffnen
InetGet("http://Website.de/updatedatei.dll/exe/etc.",@ScriptDir & "/update.dll/exe/etc.")
Else
Run(@ScriptDir & "/start.exe")
EndIf

So das sieht ja viel besser aus, so wie ich das jetzt verstehe macht der hier in der if then else
wenn update.upd gleich mit der Version.ver dann runterladen von etc.? (ist nen ordner denke ich)
oder bedeutet nur ein = ungleich? eine kurze erleuterung, bitte.

EDIT:

hab mir nochmal die hilfe durchgelesen zu InetGet den teil hab ich verstanden nur die if function bitte nochmal genauer erklären

MfG EmEx

PCKing

hier:

[autoit]

If Filereadline(FileOpen(@ScriptDir & "/update.upd", 0),1) <> Filereadline(FileOpen(@ScriptDir & "/Version.ver",0),1) Then ;bei FileReadLine muss man die datei vorher mit FileOpen öffnen (sorry, hatte da nen fehler drinnen)
InetGet("http://Website.de/updatedatei.dll/exe/etc.",@ScriptDir & "/update.dll/exe/etc.");wenn in update.udp was anderes steht downloadet der das , was hier steht,
;du kannst auch mehrere InetGet befehle hier reinschreiben^^
Else
Run(@ScriptDir & "/start.exe");wenn in der update.udp was anderes steht startet der die start.exe
EndIf

[/autoit]

hatte in der if funktion nen kleinen fehler eingebaut gehabt, nämlich das = musste gegen ein <> ausgetauscht werden. ich war halt müde, wo ichs geschrieben hab

EmEx

jo hab ich mir schon gedacht

hab nur grad noch nen prob und zwar die update.upd läd er runter aber danach passiert nigs, da die Versionen gleich sind müsste er ja die start.exe starten aber nigs passiert erst wenn ich den updater schließe startet er das script.
hab ich da irgendwas übersehen oder nicht verstanden?

MfG EmEx

PCKing

so, hab jetzt alles nochmal überprüft, so geht es

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Update", 295, 133)
$Progress1 = GUICtrlCreateProgress(32, 56, 230, 17)
$Label1 = GUICtrlCreateLabel("Update Suche...", 110, 37, 82, 17)

[/autoit] [autoit][/autoit] [autoit]

GUISetstate(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

InetGet("http://DeineWebSite.de/update.upd",@ScriptDir & "/update.udp",1,1)

[/autoit] [autoit][/autoit] [autoit]

Do
$2 = @InetGetBytesRead
$groesse = InetGetSize("http://DeineWebSite.de/update.upd")
$1 = $groesse/100
$prozent = $2/$1
GuictrlsetData($Progress1, $prozent)
$msg = GUIGetMsg()
Until $prozent = 100 Or $msg = $GUI_EVENT_CLOSE Or $groesse = -1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Filereadline(FileOpen(@ScriptDir & "/update.upd", 0),1) <> Filereadline(FileOpen(@ScriptDir & "/Version.ver",0),1) Then
InetGet("http://Website.de/updatedatei.dll/exe/etc.",@ScriptDir & "/update.dll/exe/etc.")
Else
Run(@ScriptDir & "/start.exe")
EndIf

[/autoit]

EmEx

hmm, sicher?
also in der MsgBox wird die richtige byte größe der update.upd und version.ver angezeigt aber die MsgBox kommt immer wieder.
die MsgBox ist ja eigentlich nicht notwendig die kan man ja mit Semikolon abschalten, oder?
kann es sein das er in der schleife hängen bleibt?

PCKing

sorry, die msgbox hatte ich nur zum testen reingemacht, hab vergessen die wieder rauszumachen. lösch die msgbox.
ja ich bin mir sicher, dass es dann funktioniert, ich hab es mit einer ca. 3MB großen datei, die ich bei funpic hochgeladen hab getestet.

EmEx

so hab hier mal die abgeänderte version für meine zwecke.

unter der adresse sind auch alle sachen vorhanden.

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=data\icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Update", 295, 133)
$Progress1 = GUICtrlCreateProgress(32, 56, 230, 17)
$Label1 = GUICtrlCreateLabel("Update Suche...", 110, 37, 82, 17)

[/autoit] [autoit][/autoit] [autoit]

GUISetstate(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/update.upd",@ScriptDir & "/data/update.upd",1,1)

[/autoit] [autoit][/autoit] [autoit]

Do
$2 = @InetGetBytesRead
$groesse = InetGetSize("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/update.upd")
$1 = $groesse/100
$prozent = $2/$1
GuictrlsetData($Progress1, $prozent)
$msg = GUIGetMsg()
; MsgBox(0,$prozent,$groesse & ".........." & $2)
Until $prozent = 100 Or $msg = $GUI_EVENT_CLOSE Or $groesse = -1

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If Filereadline(FileOpen(@ScriptDir & "/data/update.upd", 0),1) <> Filereadline(FileOpen(@ScriptDir & "/data/Version.ver",0),1) Then ;bei FileReadLine muss man die datei vorher mit FileOpen öffnen

InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/1-Client.exe",@ScriptDir & "/data/1-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/2-Client.exe",@ScriptDir & "/data/2-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/3-Client.exe",@ScriptDir & "/data/3-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/4-Client.exe",@ScriptDir & "/data/4-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/5-Client.exe",@ScriptDir & "/data/5-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/6-Client.exe",@ScriptDir & "/data/6-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/7-Client.exe",@ScriptDir & "/data/7-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/8-Client.exe",@ScriptDir & "/data/8-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/9-Client.exe",@ScriptDir & "/data/9-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/10-Client.exe",@ScriptDir & "/data/10-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/11-Client.exe",@ScriptDir & "/data/11-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/12-Client.exe",@ScriptDir & "/data/12-Client.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/1-Client-PT.exe",@ScriptDir & "/data/1-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/2-Client-PT.exe",@ScriptDir & "/data/2-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/3-Client-PT.exe",@ScriptDir & "/data/3-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/4-Client-PT.exe",@ScriptDir & "/data/4-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/5-Client-PT.exe",@ScriptDir & "/data/5-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/6-Client-PT.exe",@ScriptDir & "/data/6-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/7-Client-PT.exe",@ScriptDir & "/data/7-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/8-Client-PT.exe",@ScriptDir & "/data/8-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/9-Client-PT.exe",@ScriptDir & "/data/9-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/10-Client-PT.exe",@ScriptDir & "/data/10-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/11-Client-PT.exe",@ScriptDir & "/data/11-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/12-Client-PT.exe",@ScriptDir & "/data/12-Client-PT.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/clients_umbennen.exe",@ScriptDir & "/data/clients_umbennen.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/alttoggle.exe",@ScriptDir & "/data/alttoggle.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/minilauncher.exe",@ScriptDir & "/minilauncher.exe")
InetGet("http://dergeldmacher.de.funpic.de/Downloads/Macros/Dekaron Multi Tool/data/Version.ver",@ScriptDir & "/data/Version.ver")

Run(@ScriptDir & "/minilauncher.exe")
Else

Run(@ScriptDir & "/minilauncher.exe")

[/autoit] [autoit][/autoit] [autoit]

EndIf

[/autoit]

PCKing

das script, was du da reingeschrieben hast sagt, dass es die datei am anfang (zeile: 14) nicht downloaden kann, wenn du die msgbox wieder reinmachst kommt nämlich als zahl hinter den punkten -1 raus und das heisst: das die datei nicht existiert oder das er die datei nicht downloaden kann.

EmEx

hmm

also hab die box wieder rein gemacht und erst steht 7......0 dann beim zweiten mal 7.......7
die datei ist ja vorhanden und es ist ja auch nen funpic account von daher warum geht es nicht.

PCKing

überprüf mal alle dateipfade ansonsten sollte es eigentlich gehen. also bei mir steht 7.....-1 da beim zwitem mal, ka warum. ich habs mit meinem funpic server ausprobiert, so wie du es da stehen hast (nur mit weniger inetget funktionen und anstatt run ne msgbox) und das funktioniert einwandfrei

EmEx

also die Pfade stimmen alle ich probs jetzt mal ohne leerzeichen im ordner namen.

Edit:

die leerzeichen waren glaub ich nicht das problem. weil geht net und die datei kann kann man runterladen d.h. die ist vorhanden

EmEx

so hab mir jetzt bei funpic nen komplett neuen und leeren acc angelegt alle adreesen umgeändert und getestet mit dem ergebniss das es immer noch net klappt. adresse aus dem script ist

http://dekamt.de.funpic.de/

die update.upd liegt

http://dekamt.de.funpic.de/data/update.upd

da im firefox kann is die ja auch öffnen nur das script macht net weiter.

EmEx

komisch ist nur er hängt in der do until schleife fest laut MsgBox hat die Variable $prozent den wert 100

Spoiler anzeigen

[autoit]

Do
$2 = @InetGetBytesRead
$groesse = InetGetSize("http://dekamt.de.funpic.de/data/update.upd")
$1 = $groesse/100
$prozent = $2/$1
GuictrlsetData($Progress1, $prozent)
$msg = GUIGetMsg()
MsgBox(0,$prozent,$groesse & ".........." & $2)
Until $prozent = 100 Or $msg = $GUI_EVENT_CLOSE Or $groesse = -1

[/autoit]

laut Until $prozent = 100 und so weiter soll er ja weiter machen sobald die Variable den wert 100 hat aber tut nigs
Aber wenn die update.upd einen anderen wert hat als die version.ver (also neue version verfügbar) dann macht er das update.
nur wenn die version gleich ist passiert nigs.

EmEx

ähm habe zwar nicht viel geändert am scrip aber aufeinmal geht das ganze.
zu Info habe noch die berechtigungen vona allen dateien und ordnern aufm FTP auf 777 gestellt.

DANKE UND MfG EmEx