Salut donc je reviens avec un super tutoriel qui se construira petit a petit (faute de temps)
Le pré-requis:
Un cerveau (dure)
Un clavier(dure)
Une souris(dure)
VB 2008 ou 2010(facile)
Et bien sur un tuto |
|
V
A vos Clavier et votre souris on est parti !
Création de la partie visuel:
Ouvrez votre VB et choisissez windows form et nommez la Maj Auto
Prennez 1 label pour la version
1 label (vide)
1 progressBar
Double clic sur la form1
vous devriez avoir:
Modifier par:
voila donc je vous donnes une petite avance pour la partie 2 et 3
vous devez avoir 2 pages comme sa: Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
voila bonne chance je fini le tuto plus tard ;)
Le pré-requis:
Un cerveau (dure)
Un clavier(dure)
Une souris(dure)
VB 2008 ou 2010(facile)
Et bien sur un tuto |
|
V
A vos Clavier et votre souris on est parti !
Création de la partie visuel:
Ouvrez votre VB et choisissez windows form et nommez la Maj Auto
Prennez 1 label pour la version
1 label (vide)
1 progressBar
Double clic sur la form1
vous devriez avoir:
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End ClassModifier par:
Code:
Option Strict On
Option Explicit On
Imports System.Net.FtpWebRequest
Imports System.Net.HttpWebRequest
Imports System.Web
Imports System.Net
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False 'n'intercepte pas les erreur inter-thread
If Label1.Text = (DownloadSource("adresse de votre page de version(voir partie 2)", "IE")) Then
'Ouverture du logiciel
MsgBox("Pas de mise a jours disponible")
Else
Label2.Text = (DownloadSource2("adresse de votre page de maj(voir partie 3)", "IE"))
MsgBox("Une mise a jours est disponible !")
Dim thread2 As New Threading.Thread(AddressOf Start2) 'declare le thread
thread2.Start() 'demarre le thread
End If
End Sub
Private Function DownloadSource(ByVal address As String, ByVal UserAgent As String) As String
If My.Computer.Network.IsAvailable Then ' Fonctionne si il y a une connexion Internet
Dim Result As String
Using NetC As New WebClient() ' Le Label4 affiche l'IP
NetC.Headers(HttpRequestHeader.UserAgent) = UserAgent
Result = NetC.DownloadString(address)
End Using
Return Result
Else
End If
End Function
Private Sub Start2() '2eme procédure de dl
Dim succes As Boolean = Download_File_2(Label2.Text, "C:\Programmes files\Maj auto") 'appelle la 1ere procédure de download
If succes = True Then
MsgBox("Fichier téléchargé") 'affiche le resultat
Else
MsgBox("Erreur lors du téléchargement du fichier") 'affiche le resultat
End If
End Sub
Private Function Download_File_2(ByVal Source As String, ByVal Path As String, Optional ByVal User As String = "", Optional ByVal Pass As String = "") As Boolean
Try 'test
My.Computer.Network.DownloadFile(Source, Path & Microsoft.VisualBasic.Right("adresse de votre page de maj(voir partie 3)", 3), User, Pass, True, 100, True)
Return True
Catch ex As Exception 'en cas d'erreur
Return False
End Try
End Function
Private Function DownloadSource2(ByVal address As String, ByVal UserAgent As String) As String
If My.Computer.Network.IsAvailable Then ' Fonctionne si il y a une connexion Internet
Dim Result As String
Using NetC As New WebClient()
NetC.Headers(HttpRequestHeader.UserAgent) = UserAgent
Result = NetC.DownloadString(address)
End Using
Return Result
Else
End If
End Function
End Classvoila donc je vous donnes une petite avance pour la partie 2 et 3
vous devez avoir 2 pages comme sa: Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
voila bonne chance je fini le tuto plus tard ;)
