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

[Phil Rob]

OK, j'espère que le test avec l'URL (de mon chat) que j'ai encodée dans ton code te permettra la mise au point de ton programme.
Bon travail,

[MADA BLACK]

Salut Phil Rob
J'ai essaye avec ce 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
    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()
            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
    End Sub

Voila ce que j'ai obtenu :

Je ne sais ce que signifie ..
Merci Phil Rob
Amicalement
MADA

[Phil Rob]

L'erreur ne se montre pas à chaque essai.

Je crois que cela vient d'un script chez Drive, peut-être parce qu'il ne sait pas avec quoi ouvrir cette image. Il signale une erreur de script à la ligne 100 mais ton programme n'est pas un script et il ne contient que ± 40 lignes.

Peut-être que tu ne dois pas perdre de temps avec ma photo, simplement tu as pu constater qu'avec une URL valable, tu obtiens une réponse (un peu moins nulle, peut-être).
Je pense que tout n'est pas gagné car tu es dépendant du fonctionnement de Drive, comme tu l'étais ce matin avec Dropbox.
Il te faut obtenir une meilleure URL chez Drive pour accéder aux fichiers que tu veux gérer.
Par exemple :


En y regardant encore, ce n'est pas parce qu'il ne sait pas avec quoi ouvrir cette image, mais il s'agit bien d'un de leurs scripts, peut-être pour une question de sécurité : je n'ai pas l'erreur tant que je suis connecté sur Drive avec Google.
Tu peux donc faire des essais semblables au mien avec un de tes documents, après t'être connecté sur Drive avec ton navigateur ...

[MADA BLACK]

Merci beaucoup Phil Rob pour toutes les explications .. pour moi sont des meilleurs Leçon
J'ai essaye d'obtenir les liens de partages .. vous avez bien ils ne se ressemblent pas a les mien qui sont dans mon code .. par exemple ici .. a la fin du lien on remarque le mot ( sharing ) :

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
    Public Sub CheckForUpdates()
        If ProgressBar1.Value = 100 Then
            Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://drive.google.com/file/d/1FTp8EpQmnC7gIuiKIAZJKSzxpzjP5tuu/view?usp=sharing") 'Fichier
            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/file/d/1f89G8ilPlebaJ2EdTnRdQZaMpBIVdQd2/view?usp=sharing") 'Programme
                Label2.Text = ("You may now close this dialog")
            End If
        End If
    End Sub

J'ai essaye meme avec Mediafire et j'ai eu toujours le meme script peut etre il s'agit de mon navigateur FireFox qui est d'ancien version

Alors .. laisse tomber ce script d'erreur tant que le code fonctionne au moin 95%
SVP Gentelman .. si vous pouvez m'aider a finir ce cauchemar
Comment faire une comparaison pour que l'image de telecharegemnt ne s'affichera pas sauf si le numero de versement sera change a ( 1.0.0.1 )
Le fichier maintenant pose a Google Drive est comme indique l'image au dessous

Comment faire svp si je change ce numero comme exemple a (1.0.0.1) alors la .. l'image de telechargement d'UTORRENT sera affichee des que le progressbar1 atteint (100).
Merci d'avance pour l'aide
Amicalement
MADA

[Phil Rob]

Bonjour,

Voilà, j'ai recommencé le travail avec Dropbox et un peu modifié ton code que je te remets entièrement ci-dessous.

Sous Dropbox, j'ai créé un dossier Mada, dans lequel j'ai copié les fichiers DisBonjour.exe et PHR.jpg
J'ai partagé les fichiers et récupéré les liens : chez Dropbox, ces fichiers sont accessibles en LECTURE pour qui possède le lien.
J'ai aussi partagé le dossier et récupéré le lien : chez Dropbox, un dossier peut être accessible en MODIFICATION pour qui possède le lien et c'est le cas (tu peux donc faire ce que tu veux dans ce dossier).

J'ai testé chacun des liens sous des navigateurs internet (IExplorer et Opera) :
Pour l'exe, Dropbox affiche qu'il ne peut produire d'aperçu, mais il n'y a pas de message d'erreur.
Pour le jpg, Dropbox affiche l'image.
Pour le dossier, Dropbox affiche le contenu du dossier et un lien vers les outils disponibles.
Voici les liens, de sorte que tu puisses faire les mêmes essais que moi et faire les mêmes constations (je l'espère).
Lien à EXE (Accès en lecture) : https://www.dropbox.com/s/p25i7ehc5h...njour.exe?dl=0
Lien à JPG (Accès en lecture) : https://www.dropbox.com/s/cxt4c4cug6y31dy/PHR.jpg?dl=0
Lien à Mada (Accès en modification) : https://www.dropbox.com/sh/pgx74wxa0...npuRBpkba?dl=0

L'exécution de ton programme modifié avec ces liens donne exactement les mêmes résultats dans le WebBrowser que ceux obtenus avec le navigateur Opera, par exemple.
Ainsi, il me semble que ton programme fonctionne parfaitement et on a accès aux fichiers et aux dossiers selon les droits définis.
Bien sûr, je ne considère en rien la vérification éventuelle des versions de programme, ce pourquoi je n'imagine même pas la façon de faire ...
Si je devais envisager de ne télécharger que des fichiers de versions plus récentes que ceux présents sur mon PC, je m'intéressais plutôt aux dates des fichiers, d'autant que tous les documents n'ont pas une propriété "Version". Mais je n'ai peut-être toujours pas très bien compris ton projet ...

Pour ce qui concerne les modifications de ton programme (faites sans réflexions algorithmiques), voici :
Comme l'URL était encodée en 4 endroits (et pas toujours la même ... c'est normal ça ? ... ), j'ai remplacé cette URL par une variable nommée MonURL définie en début de code. Il est ainsi beaucoup plus facile de faire des essais, il suffit d'enlever la marque de commentaire de l'URL qu'on veut tester et isoler les autres :


Remplacer les URL par une variable MonURL ne change rien à l'algorithme, mais comme les 4 URL encodées n'étaient pas toutes identiques, il y a effectivement modification du programme. Voici son code complet :

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
49
50
51
52
53
54
55
56
57
58
Public Class Form1
 
    'Lien à fichier DisBonjour.EXE (Accès en lecture) : 
    'Dim MonURL As String = "https://www.dropbox.com/s/p25i7ehc5h9n99i/DisBonjour.exe?dl=0"
 
    'Lien à fichier PHR.JPG (Accès en lecture) : 
    'Dim MonURL As String = "https://www.dropbox.com/s/cxt4c4cug6y31dy/PHR.jpg?dl=0"
 
    'Lien à dossier Mada (Accès en modification) : 
    Dim MonURL As String = "https://www.dropbox.com/sh/pgx74wxa0k2llwj/AADYJb5OXvwsDX5EnpuRBpkba?dl=0"
 
    Public Sub CheckForUpdates()
        If ProgressBar1.Value = 100 Then
            Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(MonURL)
            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(MonURL)
                Label2.Text = ("You may now close this dialog")
            End If
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As Object, ByVal 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(ByVal sender As Object, ByVal 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(MonURL)
                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(MonURL)
                    Label2.Text = ("You may now close this dialog")
                End If
            End If
        End If
    End Sub
End Class

[MADA BLACK]

Merci 1000 fois maitre
Tres gentil de votre part Gentelman
Phil Rob ..
Je vous remercie de tout cœur pour cette coopération et ces grands lecons utiles et ces efforts
Je vous remercie de tout cœur pour le super suivi de ce sujet et pour ces divers impeccables solutions
Je m'arrette la avec ton dernier code et je pense à l'idée de mises à jour plus tard
Parfaitement resolu
Amicalement
MADA