vb6 - updating

[supremer]

ik moet een updater (update ding) hebben dat je versie checkt (van programma) en dan kijkt of op internet dezelfde versie is of dat er al een nieuwe versie is. btw update systeem die topic snap ik niet daarom maak ik een nieuw topic aan.

 

[supremer]

ik heb nu dit
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 = App.Major & "." & App.Minor 'zet de versie
'OF, hard code het, dus zo: Version = "2.0"
Current = website
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

moet ik hier nog iets aan veranderen??
Version = App.Major & "." & App.Minor 'zet de versie