VB/VB.Net Syteme de MaJ auto

Inscrit
21 Février 2012
Messages
81
Reactions
5
#1
Bonjour alors j'ai fait un petit logiciel( bref ) il à une option pour voir si le logiciel et à jour j'ai coder un truc voila le code.

Code:
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/slqfiku15lx0nnu/version.txt")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = Application.ProductVersion

        If newestversion.Contains(currentversion) Then
            MessageBox.Show("Vous avez la bonne version !")
        Else
            MessageBox.Show("Une nouvelle est version est disponible !")
        End If
Le truc c'est que le fichier texte bah dedans j'ecrit genre 2.0.0.0 et dans les propriete de l'assembly je mais 1.0.0.0 comme version et il me dit que le logiciel et a jour --" .
Donc voila si vous pouviez m'aider.

Cordialement,
 

miniteck27140

Contributeur
Inscrit
7 Avril 2010
Messages
151
Reactions
2
#2
Code:
 Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://127.0.0.1/version.txt")
        Dim response As System.Net.HttpWebResponse = request.GetResponse()

        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

        Dim newestversion As String = sr.ReadToEnd()
        Dim currentversion As String = ConsoleApplication1.My.Application.Info.Version.ToString

        If newestversion.Contains(currentversion) Then
            Console.WriteLine("Vous avez la bonne version !")
        Else
            Console.WriteLine("Une nouvelle est version est disponible !")
        End If
        Console.Read()
Regarde, moi sa fonctionne bien ;)
 
Inscrit
21 Février 2012
Messages
81
Reactions
5
#3
Bah alors ou ets le blème dans mon truc U_u
 

miniteck27140

Contributeur
Inscrit
7 Avril 2010
Messages
151
Reactions
2
#4
Remplace :
Dim currentversion As String = Application.ProductVersion
Par
Dim currentversion As String = Lenomdetonappli.My.Application.Info.Version.ToString
 
Inscrit
21 Février 2012
Messages
81
Reactions
5
#5
Marche pas ... le fichier version.txt jais mi 1.0.0.0 et la version de l'assembly aussi 1.0.0.0 et il me dit que il y'a une maj de dispo
 
Inscrit
21 Février 2012
Messages
81
Reactions
5
#6
C'est peut être un problème venant du fichier ?
 

miniteck27140

Contributeur
Inscrit
7 Avril 2010
Messages
151
Reactions
2
#7
N'heberge pas ton fichier sur dropbox mais le en local et test tu verra sa fonctionne mieux
 
Inscrit
21 Février 2012
Messages
81
Reactions
5
#8
Inscrit
21 Février 2012
Messages
81
Reactions
5
#9
C'est bon j'ai réussi merci de ton aide enfaite sa venait du fichier ;)
 
Inscrit
16 Aout 2011
Messages
184
Reactions
0
#10
Sinon, tu essayes de dl le fichier par exemple 2.0 avec un try, sinon tu passes. Et si le fichier existe dans le dossier racine de ton prog alors tu affiches une msgbox en expliquant qu'il faut déziper/utiliser l'autre version et tu mets un close.
 
Haut Bas