updater

[supremer]

ik heb een script nodig dat kijkt of er een update is

 

[That Guy]

dat's leuk voor je


[edit]geez, vermeld dan iig je type vb, en wat je al gedaan hebt. Dan Google je, en dan gebruik je de zoekfunctie van Helpmij. Ik weet namelijk 100% zeker dat deze vraag vaker is gesteld en de volledige code online staat. (vb6 versie door mij en 200X door iemand anders)[/edit]

 

[supremer]

ik heb dit script:
Dim website As String
Dim Update As String
Dim Version As String
Dim Download As Integer
'This should be changed into the link of your version.txt
website = Inet1.OpenURL("http://www.freewebs.com/jessydeman/version.txt")
'This should be changed into the current version of the hack.
Version = "2.0"
If Version = Current Then
MsgBox ("There is no new version avaible.")
Else
'This should be changed into the link of your update.txt
Update = Inet1.OpenURL("http://www.freewebs.com/jessydeman/Update.txt")
Download = MsgBox(Update, vbYesNo)
If Download = vbYes Then
'This should be changed into the link of where you will upload your hack to
WebBrowser1.Navigate "http://www.freewebs.com/jessydeman/Censored.rar"
End If
End If
'You should take this away if it's in the form_load event
cmdupdate.Enabled = False

maar hij geeft nooit aan there is no update avaible

 

[That Guy]

Werkt inet1 wel? Wat bevat de 'website' string?

 

[supremer]

ja die werkt alleen = current is geen functie in vb6? wat kan ik daarvoor gebruiken?

 

[etri]

Current is je huidige geinstalleerde versie. Die kun je via je app class ophalen. Zet iets neer als:

Current = App.Major & "." & App.Minor & "." & App.Revision

Zoiets moet je dus ook hebben voor de laatste versie die je op het internet beschikbaar hebt. Hiervoor upload je bijvoorbeeld - bij elke nieuwe versie die je beschikbaar stelt - een bestandje genaamd 'version.txt' waarin je ook het versienummer aangeeft in de syntax: "1.01.1023"

Bij elke check of een nieuwe versie beschikbaar is, download je eerst version.txt. Lees je het versienummer in (= version). Vergelijk je die met current en wanneer die afwijkt, dan download je de hele nieuwe setup, patch of iets dergelijks.

Kun je hier verder mee?

 

[That Guy]

dude, weak!

Dit werkt wel. Je was vergeten de opgehaalde gegevens op te slaan als version.

Dim website As String
Dim Update As String
Dim Version As String
Dim Download As Integer
[COLOR="seagreen"]'This should be changed into the link of your version.txt[/COLOR]
website = Inet1.OpenURL("http://www.freewebs.com/jessydeman/version.txt")
[COLOR="seagreen"]'This should be changed into the current version of the hack.[/COLOR]




[COLOR="seagreen"]'omdat de string 'website' nu de variabele houd (bv. "1.0") moet je DIE checken met de current.
'Ik ga er even van uit dat je geen revisions gebruikt zoals etri zei, maar alleen major en minor.[/COLOR]
[COLOR="seagreen"]'zoiets dus:[/COLOR]
Version = app.major & "." & app.minor [COLOR="seagreen"] 'zet de versie[/COLOR]
[COLOR="SeaGreen"]'OF, hard code het, dus zo: Version = "2.0"[/COLOR]
current = website                                [COLOR="seagreen"] 'website had de string, niet current.[/COLOR]
[COLOR="SeaGreen"]'Noot trouwens wel dat je variabele-namen nergens op slaan, want 'current' bevat nu dus de waarde van de remote-app, en version die van de app waar deze code op draaid. Whatever.[/COLOR]




If Version = Current Then
MsgBox ("There is no new version avaible.")
Else
[COLOR="seagreen"]'This should be changed into the link of your update.txt[/COLOR]
Update = Inet1.OpenURL("http://www.freewebs.com/jessydeman/Update.txt")
Download = MsgBox(Update, vbYesNo)
If Download = vbYes Then
[COLOR="seagreen"]'This should be changed into the link of where you will upload your hack to[/COLOR]
WebBrowser1.Navigate "http://www.freewebs.com/jessydeman/Censored.rar"
End If
End If
[COLOR="seagreen"]'You should take this away if it's in the form_load event[/COLOR]
cmdupdate.Enabled = False

 

[etri]

Ik zie dat ik met mijn 'lame story' je wel heb getriggered..!?!

 

[That Guy]

het was niet tegen jou erti, maar tegen supr niets pesoonlijks hoor, lol. Sorry dat het zo klonk.
kijk teveel southpark deze dagen...