1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
Try
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("URL DE TON FICHIER .TXT HÉBERGÉ SUR DROPBOX DANS LE DOSSIER PUBLIC") 'Envoie une requête HTTP sur le lien du fichier .txt
Dim response As System.Net.HttpWebResponse = request.GetResponse() 'Initialise la variable réponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream()) ' Lit le contenue du fichier texte ATTENTION, le fichier doit contenir la version assembly du programme exemple : 1.2.5.3
Dim newestversion As String = sr.ReadToEnd()
Dim currentversion As String = Application.ProductVersion
If newestversion.Contains(currentversion) Then ' Ici on fait une comparaison des deux versions. Aucun message n'est affiché si la version est la bonne mais tu peux en mettre un si tu le souhaites.
Else
MsgBox("New Version is avaible !", MsgBoxStyle.Information)
End If
Catch
MsgBox("Impossible to search update because no connection is available or server not respond", MsgBoxStyle.Exclamation)
End Try
End Sub |
Partager