Sujet Précédent Sujet Suivant

Barre de progression + téléchargement sincro?

Fermé
oxytomire Messages postés 1 Date d'inscription samedi 15 décembre 2012 Statut Membre Dernière intervention 15 décembre 2012 - 15 déc. 2012 à 16:45
Bonjour,
Moi c'est oxytomire et je suis nouveaux ici.

J'aimerais savoir comment faire pour qu'une barre de progression soit en mouvement en même temps que mon téléchargement.

voila le code de mon téléchargement: 

 MsgBox("Avez-vous pensé à fermer Minecraft? Veuillez attendre le méssage de confirmation de la Mise à Jour.", MsgBoxStyle.Exclamation)

        If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version_skeelcraft.txt") = True Then

            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version_skeelcraft.txt")

            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")

            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/version_skeelcraft.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version_skeelcraft.txt")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
        ElseIf System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version_skeelcraft.txt") = False Then

            Kill(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/version_skeelcraft.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\version_skeelcraft.txt")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/minecraft.jar", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.jar")

            My.Computer.Network.DownloadFile("https://dl.dropbox.com/u/76891325/SkeelCraft/launch-vbnet/minecraft.exe", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\.minecraft\bin\minecraft.exe")
        End If

        MsgBox("Mise à Jour terminé.", MsgBoxStyle.Information)
        Button2.Hide()
        Button3.Hide()
    End Sub



Si possible j'aimerais que le code de téléchargement soit pas trop changer.
Merci et à bientôt
A voir également: