[Visual Basic] Auto Checker
Utilisateur anonyme
-
ShayFmw Messages postés 121 Statut Membre -
ShayFmw Messages postés 121 Statut Membre -
Bonjour,
Je cherche un petit code qui se lancerait automatiquement quand le programme est ouvert. Il ferait une comparaison de deux fichiers textes, l'un sur un serveur l'autre dans un fichier texte local.
Dans les fichiers textes il n'y aurait qu'un nombre entier, genre 11 (pour version 1.1) ou 12 (pour 1.2).
Ce code me servirait à faire un updater qui check au lancement de l'application si le serveur a une version > au local et si oui il ouvre une msgbox qui dit : Une nouvelle version est disponible : aller sur "http://.."
Merci
PS :
Je cherche un petit code qui se lancerait automatiquement quand le programme est ouvert. Il ferait une comparaison de deux fichiers textes, l'un sur un serveur l'autre dans un fichier texte local.
Dans les fichiers textes il n'y aurait qu'un nombre entier, genre 11 (pour version 1.1) ou 12 (pour 1.2).
Ce code me servirait à faire un updater qui check au lancement de l'application si le serveur a une version > au local et si oui il ouvre une msgbox qui dit : Une nouvelle version est disponible : aller sur "http://.."
Merci
PS :
If TxtServeur>txtLocal Then MsgBox "Nouvelle version disponible" (sinon il continue le lancement de l'application) Else "continue le lancement normal de l'application"
A voir également:
- [Visual Basic] Auto Checker
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
2 réponses
De ShayFmw
"Hmmmm bon je te fais un petit tuto,
Pré-requis :
- Un fichier version.txt sur un serveur (dropbox ou autre, accessible par url), dans ce fichier, écrire à la première ligne 1.0 (ou 1.1 si tu veux tester le check maj)
On va déjà donner une version à l'apli !
Pour cela
Dim version As String = "1.0" 'on commence souvent à 1.0 , logique !
Mais ça serait encore mieux de l'afficher pour visualiser non ? Pas de problème !
Créez un label text nommé ver par exemple
ver.Text = version.ToString() 'on affiche la version
Bon maintenant c'est cool mais comment on sait si c'est à jour ou pas...
Déjà dans le le form load il faut faire télécharger le fichier version.txt situer sur un serveur distant
My.Computer.Network.DownloadFile("http://monsupersite.com/version.txt", ".\version.txt")
Après toujours dans le load, on fait une batterie de vérifications
'Vérification automatique d'une mise à jour disponible selon la version
Dim filePathRes As String = "version.txt"
Dim linesRes As List(Of String) = File.ReadLines(filePathRes).ToList()
Dim verOk As String = linesRes(0) 'version du logiciel demandée, présente dans le fichier version.txt
If verOk <> ver.Text Then
MsgBox("Une mise à jour du logiciel vers la version " & verOk "est disponible sur le site à l'adresse ... ")
System.Diagnostics.Process.Start("http://www.......com")
Voilà, l'inconvénient c'est que le My.Computer.Network.DownloadFile fige la fenêtre et peut mettre du temps, car le fichier version txt est téléchargé à chaque fois. Après c'est à toi de voir, tu as déjà une grosse piste !!
Ah et aussi, pense à changer le Dim version As String = "1.0" quand tu proposes en DL une nouvelle version (autrement dit, redonne toujours le exe en mise à jour sur ton site avec la nouvelle variable modifié qui correspond au fichier version.txt)
"Hmmmm bon je te fais un petit tuto,
Pré-requis :
- Un fichier version.txt sur un serveur (dropbox ou autre, accessible par url), dans ce fichier, écrire à la première ligne 1.0 (ou 1.1 si tu veux tester le check maj)
On va déjà donner une version à l'apli !
Pour cela
Dim version As String = "1.0" 'on commence souvent à 1.0 , logique !
Mais ça serait encore mieux de l'afficher pour visualiser non ? Pas de problème !
Créez un label text nommé ver par exemple
ver.Text = version.ToString() 'on affiche la version
Bon maintenant c'est cool mais comment on sait si c'est à jour ou pas...
Déjà dans le le form load il faut faire télécharger le fichier version.txt situer sur un serveur distant
My.Computer.Network.DownloadFile("http://monsupersite.com/version.txt", ".\version.txt")
Après toujours dans le load, on fait une batterie de vérifications
'Vérification automatique d'une mise à jour disponible selon la version
Dim filePathRes As String = "version.txt"
Dim linesRes As List(Of String) = File.ReadLines(filePathRes).ToList()
Dim verOk As String = linesRes(0) 'version du logiciel demandée, présente dans le fichier version.txt
If verOk <> ver.Text Then
MsgBox("Une mise à jour du logiciel vers la version " & verOk "est disponible sur le site à l'adresse ... ")
System.Diagnostics.Process.Start("http://www.......com")
Voilà, l'inconvénient c'est que le My.Computer.Network.DownloadFile fige la fenêtre et peut mettre du temps, car le fichier version txt est téléchargé à chaque fois. Après c'est à toi de voir, tu as déjà une grosse piste !!
Ah et aussi, pense à changer le Dim version As String = "1.0" quand tu proposes en DL une nouvelle version (autrement dit, redonne toujours le exe en mise à jour sur ton site avec la nouvelle variable modifié qui correspond au fichier version.txt)
