Site du Zero :Le premier code est à mettre dans les fonctions du bouton(Ou d'autre chose) , Dans cette exemple le bouton s'appelle "start"
Ensuite créer deux nouveau sub :
Plus (Par moi): Il ne vous reste plus qu'a faire une vérification de version
Code:
Dim Client As WebClient = New WebClient
AddHandler Client.DownloadProgressChanged, AddressOf client_ProgressChanged
AddHandler Client.DownloadFileCompleted, AddressOf client_DownloadCompleted
Client.DownloadFileAsync(New Uri("Adresse du fichier à télécharger"), "Nom du fichier à télécharger.extension")
start.Text = "Téléchargement en cours" 'Affiche sur le boutton "Téléchargement en cours
start.Enabled = False 'Désactive le bouton(On ne peut pas cliquer
Ensuite créer deux nouveau sub :
Code:
Private Sub client_ProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
Dim percentage As Double = bytesIn / totalBytes * 100
ProgressBar.Value = Int32.Parse(Math.Truncate(percentage).ToString())
Label1.Text = ProgressBar.Value & "%"
End Sub
Private Sub client_DownloadCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
MessageBox.Show("Téléchargement Terminé !")
start.Text = "Téléchargement Terminé !"
start.Enabled = False
End Sub
Plus (Par moi): Il ne vous reste plus qu'a faire une vérification de version
Code:
Dim maversion = GetSetting("Appname", "Section", "Key", "")
Dim newversion = Client.DownloadString("Lien du txt")
If not maversion = newversion Then
MsgBox("Grouille toi ! Il y a une Maj !", MsgBoxStyle.Information, "Maj")
'Ici vous mettez le code du bouton ou alors :
start.enabled = True