Discussion :

[MADA BLACK]

Salut tout le monde
SVP gentelman .. si vous pouvez m'aider a corriger ce code pour essayer de faire Update a mon programme
J'ai vu plusieurs videos et j'ai j'ai essaye d'appliquer ce que j'ai vu mais malheureusement j'ai eu cet erreur .. malgres que les liens sont bien corrects

Merci beaucoup d'avance pour n'importe quelle suggestion
Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Class Form1
    Public Sub CheckForUpdates()
        If ProgressBar1.Value = 100 Then
            Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://dl.dropbox.com/s/extdecighawem8m/Version.txt?dl=0")
            Dim response As System.Net.HttpWebResponse = request.GetResponse()
            Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
            Dim newestversion As String = sr.ReadToEnd()
            Dim currentversion As String = Application.ProductVersion
            If newestversion.Contains(currentversion) Then
                Button1.Text = ("You are up todate!")
                Label2.Text = ("You may now close this dialog")
            Else
                Button1.Text = ("Downloading update!")
                WebBrowser1.Navigate("http://dl.dropbox.com/s/5e1fkjdq5ki87v7/BITTORENT.exe?dl=0")
                Label2.Text = ("You may now close this dialog")
            End If
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button1.Text = "Checking for updates..."
        Timer1.Start()
        Label1.Text = ProgressBar1.Value
        CheckForUpdates()
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(5)
        Label1.Text = ProgressBar1.Value
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            If ProgressBar1.Value = 100 Then
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://dl.dropbox.com/s/extdecighawem8z/Version.txt?dl=0")
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                Dim newestversion As String = sr.ReadToEnd()
                Dim currentversion As String = Application.ProductVersion
                If newestversion.Contains(currentversion) Then
                    Button1.Text = ("You are up todate!")
                    Label2.Text = ("You may now close this dialog")
                Else
                    Button1.Text = ("Downloading update!")
                    WebBrowser1.Navigate("http://dl.dropbox.com/s/5e1fkjdq5ki87v7/BITTORENT.exe?dl=0")
                    Label2.Text = ("You may now close this dialog")
                End If
            End If
        End If
    End Sub
End Class

NB : Fichier Text ( 1.0.0.1 )
Amicalement
MADA

[ProgElecT]

Salut

Cela ne doit pas venir de là

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            If ProgressBar1.Value = 100 Then

mais 2 même conditions à la suite, il y problème d'algorithme, non ?

[Phil Rob]

C'est vrai qu'il doit y avoir quelques hésitations algorithmiques ...

Mais à part cela, es-tu sûr de tes URL ? Je sais que Dropbox a modifié l'organisation du site et que certaines applications qui y avaient accès auparavant sont maintenant arrêtées si elles n'ont ps subi les modifications nécessaires.
Que se passe-t-il si tu tentes d'accéder directement à http://dl.dropbox.com/s/extdecighawe...rsion.txt?dl=0 avec ton navigateur habituel ? ou bien une partie de cette chaine ?

Bonne journée,

[MADA BLACK]

Bonjour ProgElect
Bonjour Phil Rob
Merci beaucoup pour l'intevention
Alors j'ai pas pu mettre fin a ce probleme avec DropBox .. malgre que j'ai ouvert ce compte DropBox depuis 2 jours ..
J'ai essaye de changer le site avec Google Drive .. et la ca fonctionne tres tres bien .. et j'ai pas eu cet erreur comme indique cet image
Avec ce meme code j'ai simplement change les liens ..
Mon seul probleme qui reste .. c'est toujours j'aurai cet image de telechargement comme exemple UTORRENT .. quelque soit le numero de version inscrit dans le fichier notepad ( 1.0.0.1 ) ou ( 1.0.0.1) ou ( 1.0.0.2 )
SVP si vous pouvez m'aider a resoudre ce dernier probleme

Amicalement
MADA

[Phil Rob]

Répondre à une question par une question ..., je ne suis pourtant pas jésuite !
Mais en fait, je ne comprends pas ta question. Quel devrait être l'affichage ?
Que reçois-tu si tu utilises la même URL dans ton navigateur habituel ? peux-tu nous transmettre un screenshot ? (si c'est pas indiscret ... )

Suite ... (et ce n'est plus une question )

J'ai repris ton code tel quel, sauf pour l'URL vers GoogleDrive, et j'obtiens bien le fichier visé dans le WebBrowser (il s'agit de la photo d'un chat ..., rien de confidentiel ).
Voici le code modifié, tu peux l'essayer. Si ça marche chez toi aussi, alors c'est que tu as un problème avec l'URL, la mienne est donnée par Drive comme lien de partage.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
            If ProgressBar1.Value = 100 Then
                Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://drive.google.com/open?id=0BxchF2HAUuPSei1tOVMxVzBRUmVBclhEaXl1Q3dMNTc2QllB") 'http://dl-web.dropbox.com/s/extdecighawem8z/Version.txt?dl=0")
                Dim response As System.Net.HttpWebResponse = request.GetResponse()
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
                Dim newestversion As String = sr.ReadToEnd()
                Dim currentversion As String = Application.ProductVersion
                If newestversion.Contains(currentversion) Then
                    Button1.Text = ("You are up todate!")
                    Label2.Text = ("You may now close this dialog")
                Else
                    Button1.Text = ("Downloading update!")
                    WebBrowser1.Navigate("https://drive.google.com/open?id=0BxchF2HAUuPSei1tOVMxVzBRUmVBclhEaXl1Q3dMNTc2QllB") 'http://dl.dropbox.com/s/5e1fkjdq5ki87v7/BITTORENT.exe?dl=0")
                    Label2.Text = ("You may now close this dialog")
                End If
            End If

[MADA BLACK]

Bonjour Phil Rob
Je vous remercie beaucoup pour l'aide
Tres gentil de votre part Gentelman
Peut etre j'ai mal exprime avec ma mal langue francaise
En realite j'ai suivi un video YOUTUBE et j'ai exactement pris le code tel qu'il est pour faire auto UPDATE au programme
Le fichier NotePade et le programme (UTORRENT) je les ai (upload) sur le site Google Drive
La facon est lorsque le fichier NotePad deja upload sur le site est inscrit comme exemple (1.0.0.0) lorsque j'execute Button1 je n'aurai pas cet image..l'image du site pour telecharger UTORENT ne sera pas affichee.
Lorsque je change ce numero de version du fichier NotePade au comme exemple (1.0.0.1) alors lorsque j'execute le code avec Button1 l'image pour telecharger la nouvelle version ici c'est (UTORRENT) sera bien affichee.
Avec ce code l'image de telechargement s'affichera dans toutes les conditions.
Je vais essaye votre code des que je rentre chez moi
Merci beaucoup d'avance pour n'importe quelle suggestion
Amicalement
MADA