Sujet Précédent Sujet Suivant

Aidé moi Très important

cs_noob21 Messages postés 5 Date d'inscription dimanche 31 juillet 2011 Statut Membre Dernière intervention 5 février 2012 - 10 août 2011 à 10:37
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 3 nov. 2011 à 18:52
Bonjours chère amis codeurs

J'ai un sérieux problème j'ai un UpLuncher pour un jeux.
est il y à des autre' UpLuncher qui sont des système de mise à jours ....
Est moi ce que je voudrais bien c'est ça :

-Système de vérification de mise à jours

-Système de téléchargement de .zip est de la décompression à un endroit précis par exemple C:\

Voila je vous donne déjà mon code 
Imports System.Net

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("/!\ Vous devez mettre ce UpLuncher dans le dossier Dofus /!", MsgBoxStyle.Exclamation, MsgBoxStyle.OkOnly)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Chargement de la vérification de la mise à jours", MsgBoxStyle.OkOnly)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = "100" Then
            Timer1.Stop()
            MsgBox("Une mise à jours à étè trouvé")
            Button3.Visible = True
            RichTextBox1.Visible = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Oui" Then
            ProgressBar2.Visible = True
            Label1.Visible = True
            Label2.Visible = True
            Button2.Visible = True
            ProgressBar1.Visible = True
        End If
        If ComboBox1.Text = "Non" Then
            ProgressBar2.Visible = False
            Label1.Visible = False
            Label2.Visible = False
            Button2.Visible = False
            ProgressBar1.Visible = False
            Button3.Visible = False
            RichTextBox1.Visible = False
        End If
    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Recherche des mise à jours")
        Timer1.Start()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(1)
        Label1.Text = ProgressBar2.Value
        If ProgressBar2.Value = "100" Then
            Timer2.Stop()
            MsgBox("Chargement [...]")
            Dim address As String = "http://votresite/config.xml"

            Me.RichTextBox1.AppendText("Pacientez" & vbCrLf)

            Dim num As Integer = FileSystem.FreeFile

            Dim client As New WebClient

            Me.RichTextBox1.AppendText("Cr" & ChrW(233) & "ation du controle client " & vbCrLf)

            Dim fileName As String = "fichier"

            Me.RichTextBox1.AppendText("Tous les fichier ont été télécharger." & vbCrLf)

            Try

                client.DownloadFile(address, fileName)

                Me.RichTextBox1.AppendText(" " & vbCrLf)

            Catch exception1 As Exception



            End Try

            Me.Timer1.Enabled = False

            Me.Timer1.Interval = 100

            Me.Timer1.Enabled = True

            Me.ProgressBar1.Value = 100

            Interaction.MsgBox("Fichier télécharger", MsgBoxStyle.OkOnly, Nothing)
        End If
    End Sub

    Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter
        AxWindowsMediaPlayer1.URL = "http://milenuim.exano.net/soundofmilenuim.mp3"
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class
'A gardé         
'ProgressBar2.Increment(1)
'Label1.Text = ProgressBar2.Value
'If ProgressBar2.Value = "100" Then
'Timer1.Stop()
'End If


Voila merci de m'aidé c'est très importants

Cordialement , [Saw].

2 réponses

Réponse 1 / 2
lolokun Messages postés 1241 Date d'inscription mardi 10 octobre 2006 Statut Membre Dernière intervention 27 août 2013 7
10 août 2011 à 13:21
Bonjour,

Oui mais encore? On a du code mais qu'attends-tu exactement? il te met un message d'erreur?
Endroit précis : tu veux que l'utilisateur sélectionne où il doit enregistrer le zip ou c'est un chemin fixe en dur dans le code ?


L'expérience, c'est une connerie par jour, mais jamais la même..
0
Réponse 2 / 2
Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
3 nov. 2011 à 18:52
à virer !

Tiens les balises ne sont pas reconnues ^_____^, zut alors.....
0
Rejoignez-nous