mastermindzh
Verenigingslid
- Lid geworden
- 10 dec 2008
- Berichten
- 4.993
ik wil in mijn programma een update functie hebben, nou leek dit eerst gelukt maar nu werkt hij niet meer
zien jullie iets verkeerds? of vindt je een andere manier beter dan hoor ik het graag!
*uitleg*
ik haal dus een tekstbestandje van het internet af en daarin staat 2.0.0.0 (en programma is 2.0.0.0)
dus dan zou hij NIET moeten zeggen dat je kunt updaten... toch doet hij dat :evil:
*/uitleg*
zien jullie iets verkeerds? of vindt je een andere manier beter dan hoor ik het graag!
*uitleg*
ik haal dus een tekstbestandje van het internet af en daarin staat 2.0.0.0 (en programma is 2.0.0.0)
dus dan zou hij NIET moeten zeggen dat je kunt updaten... toch doet hij dat :evil:
*/uitleg*
Code:
Dim updater As Integer
Code:
Public Sub checkforupdates()
Dim file As String = Application.StartupPath & "/version.txt"
Dim MyVer As String = My.Application.Info.Version.ToString
If My.Computer.FileSystem.FileExists(file) Then
My.Computer.FileSystem.DeleteFile(file)
End If
My.Computer.Network.DownloadFile("http://virtualpetstool.webs.com/version.txt", file)
Dim lastver As String = My.Computer.FileSystem.ReadAllText(file)
If Not MyVer = lastver Then
updater = MsgBox("New Content available" & vbNewLine & "If you want to download it click yes" & vbNewLine & "" & vbNewLine & "" & vbNewLine & "It probably is a new pet!", vbYesNo)
If updater = vbYes Then
Process.Start("http://www.virtualpetstool.webs.com/downloads.html")
End If
Else : MsgBox("Program is up to date")
End If
End Sub