<p style="text-align:center;"><span style="font-size:18px;"><u><strong>.:: Mise à jour automatique par internet ::.</strong></u></span></p>
<p> </p>
<p><em>Aujourd'hui je vais vous apprendre comment faire un système de Mise à jour automatique par internet.</em> <em>Si vous avez le moindre problème avec ce tutoriel, je vous invite à laisser un message pour me prévenir (et afin que je puisse vous aidez à régler ce problème)</em></p>
<p> </p>
<p><u><strong>Sommaire :</strong></u></p>
<p> </p>
<p>1) A quoi ça va nous servir ?</p>
<p>2) Tutoriel</p>
<p>3) Code complet</p>
<p> </p>
<p><u><strong>1) A quoi ça va nous servir ?</strong></u></p>
<p> </p>
<p>Donc tout d'abbord, si vous avez un programme dont vous oubliez à chaque fois de mettre la mise à jour sur un forum ou autre, ce système peut très bien convenir pour vous. De plus, il est largement plus facile d'utiliser ce système que de mettre à chaque fois la mise à jour sur un post quelconque.</p>
<p> </p>
<p><u><strong>2) Tutoriel :</strong></u></p>
<p> </p>
<p>-> Commencer par créer un projet</p>
<p>-> Ajouter un bouton</p>
<p>-> Double cliquer sur la form qui se présente devant vous, normalement, la partie ou l'on doit entrer les codes apparaîts</p>
<p>-> Pour commencer, ajouter "Imports Systems.Net" (juste au dessus de Public Class Form1)</p>
<p>Pour l'instant, votre code devrait ressembler à ça :</p>
<p></p><blockquote class="ipsStyle_spoiler" data-ipsspoiler="">
<pre class="ipsCode prettyprint lang-auto">
Imports System.Net
Public Class MAJ
End Class
</pre>
<p></p></blockquote><p></p><p>-> Ajouter dans le class, un dim, qu'on nommera "Version", il servira à définir la version actuelle de votre programme (changer la 1.0 par la version souhaitée)</p>
<pre class="ipsCode prettyprint lang-auto">
Dim version as string = "1.0"
</pre>
<p>-> Retourner sur l'interface de la form, et double cliquer sur le boutton que vous avez ajouter précedemment, cela devrait vous redirigez vers les codes et ajouter un SUB.</p>
<p>-> Dans ce sub, nous allons définir ce que dois faire le boutton, ici, il devra vérifier s'il y a une mise à jour (Si oui, il vous indiquera que votre programme n'est pas à jour et vous inviteras à télécharger la mise à jour, si non, il vous indiquera que votre programme est à jour)</p>
<p>-> Nous allons créer un TXT ou on metteras notre version dedans, pour mon exemple, j'ai pris 3.0. Héberger ce TXT sur un hébergeur (j'ai pris Dropbox pour ma part). S'il n'y a pas de mise à jour, laissez la version actuelle, s'il y en a une, mettez la nouvelle version de votre programme. (Ex : Si mon ancien programme est de version 1.0, et que je laisse 1.0 dans le TXT, aucune mise à jour ne sera faite. Hors, si la version de mon TXT à changer par 2.0 car j'ai fais une mise à jour, celle-ci sera alors faite)</p>
<p>(Exemple d'hébergement sur dropbox : <a href="https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt" rel="external nofollow">https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt</a>)</p>
<p>-> Dans notre code, nous allons ajouter deux DIM. Un qui se nommera "MAJ" et un autre qui se nommera "DernièreVersion". Le Dim DernièreVersion servira à vérifier la version actuelle de notre programme à celle qui est indiquée sur internet.</p>
<pre class="ipsCode prettyprint lang-auto">
Dim MAJ As New Webclient
Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")
</pre>
<p>(Changer le lien par le votre)</p>
<p>Votre code devrait ressembler à ça :</p>
<p></p><blockquote class="ipsStyle_spoiler" data-ipsspoiler="">
<pre class="ipsCode prettyprint lang-auto">
Imports System.Net
Public Class MAJ
Private Sub MephButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MephButton1.Click
Dim MAJ As New WebClient
Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")
End Sub
End Class
</pre>
<p></p></blockquote><p></p><p>-> Ensuite, nous allons indiquer au bouton ce qu'il doit faire lorsque il y a une mise à jour ou non. Pour cela nous allons créer un If :</p>
<pre class="ipsCode prettyprint lang-auto">
If Version = DernièreVersion Then
End If
</pre>
<p>-> Dans ce If, nous allons tout d'abord ajouter un MsgBox qui nous indiquera qu'il n'y a pas de mise à jour (si la version du programme est identique à celle marquée sur internet)</p>
<pre class="ipsCode prettyprint lang-auto">
If Version = DernièreVersion Then
MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
End If
</pre>
<p>-> Pour le moment, nous avons juste indiquer au bouton ce qu'il devait faire quand il n'y avait pas de mise à jour. Indiquons lui maintenant ce qu'il doit faire quand il y aura une mise à jour. Commençons par lui ajouter une MsgBox nous indiquant que le programme n'est pas à jour (si la version du programme n'est pas identique à celle héberger sur internet)</p>
<pre class="ipsCode prettyprint lang-auto">
If Version = DernièreVersion Then
MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
Else
MsgBox("Le programme n'est pas à jour" & vbNewLine & "La dernière version est : " & Dernièreversion, vbOkOnly + MsgBoxStyle.Critical, "Mise à jour"
End if
</pre>
<p>Sur le code ci-dessus, pour le deuxième message box. J'ai en premier temps mis un message fixe et fais un retour à la ligne (vbNewLine), ensuite j'ai mis un autre texte fixe puis j'ai ajouter le Dim DernièreVersion, qui indiquera automatiquement la version du programme disponible sur internet.</p>
<p> </p>
<p>-> Il vous faut créer un nouveau TXT, qu'on nommera "NewVersion", celui-ci contiendra le lien de téléchargement de la nouvelle version. S'il n'y a pas de nouvelle version (et donc pas de mise à jour) mettez tout simplement /</p>
<p>(Exemple : <a href="https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt" rel="external nofollow">https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt</a>)</p>
<p>-> Ensuite dans le code, nous allons ajouter deux dim. Un qui se nommera "NewVersion", qui contiendra le lien de téléchargement de la nouvelle version, et un autre "NewVersionDownload", qui indiquera ou le programme doit télécharger la nouvelle version.</p>
<pre class="ipsCode prettyprint lang-auto">
Dim NewVersion As New WebClient
Dim NewVersionDownload As String = NewVersion.DownloadString("https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt")
</pre>
<p>Le tutoriel est désormais terminé, vous pouvez maintenant tester le programme que vous venez vous-même de faire.</p>
<p> </p>
<p>PS : Changer la version disponible sur internet afin de voir si votre programme détecte bien celle-ci et donc que le If est bien fais.</p>
<p> </p>
<p><u><strong>Code complet :</strong></u></p>
<p> </p>
<p>Je vous donne le code source, seulement pour vous aider à comprendre et donc apprendre comment fonctionne ce système !</p>
<p></p><blockquote class="ipsStyle_spoiler" data-ipsspoiler="">
<pre class="ipsCode prettyprint lang-auto">
Imports System.Net
Public Class MAJ
Dim version As String = "1.0"
Private Sub MephButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MephButton1.Click
Dim MAJ As New WebClient
Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropboxusercontent.com/s/z5xu2ktgn0uw5bn/Version.txt")
If Version = DernièreVersion Then
MsgBox("Le programme est à jour", MsgBoxStyle.Information, "Mise à jour")
Else
MsgBox("Le programme n'est pas à jour", & vbNewLine & "La dernière version est : " & DernièreVersion, vbOKOnly + MsgBoxStyle.Critical, "Mise à jour")
Dim NewVersion As New WebClient
Dim NewVersionDownload As String = NewVersion.DownloadString("https://dl.dropboxusercontent.com/s/yv3wgdyjolabyl4/NewVersion.txt")
End If
End Sub
End Class
</pre>
<p></p></blockquote><p></p><p>Je pense que ça devrait-être tout pour mon premier tutoriel. Il y aura pas la suite d'autres, que je suis en train d'écrire </p>
