Détecter une mise à jours [Résolu]

jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 8 oct. 2016 à 14:06 - Dernière réponse :  wmade
- 11 oct. 2016 à 18:37
Bonjour à tous,
Je souhaitais me faire une petite manip la plus simple possible pour détecter une mise à jours en ligne via un button, après des recherches j'ai essayé le code ci-dessous qui avait l'air de fonctionner il y a 2 ou 3 ans mais qui ne fonctionne plus à cause des accès Dropbox ? (fichier texte déposer sur Dropbox avec l'information "1.0")
Dim version As String = "1.0"
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
Dim MAJ As New WebClient
Dim DernièreVersion As String = MAJ.DownloadString("https://dl.dropbox.com/s/z15xq0tnsqgvjjj/version.txt?dl=0")
If version = DernièreVersion Then
MessageBox.Show("version à jours")
Else
MessageBox.Show("Nouvelle mise à jours disponible : ")
End If
End Sub


J'ai l'impression que Dropbox bloque la lecture, auriez-vous une idée du soucis ou une solution alternative ?
Vous remerciant par avance,
Afficher la suite 

8 réponses

Répondre au sujet
wmade 34 Messages postés samedi 18 juin 2016Date d'inscription 20 octobre 2017 Dernière intervention - Modifié par wmade le 8/10/2016 à 19:29
0
Utile
Bonjour,
Je croie que dropbox change les lien des fichier quand il sont modifier.
Je te conseil de te créer une boite mail GMX.com, comme ça t'a un "serveur", C'est gratuit.

1- Créer une boite mail


2- aller dans file stocage


3- Importer tes fichier


4- Pour modifier le continu du fichier il faut supprimer le fichier et importer le nouveaux avec le même nom.

5- Apres aller sur la page : https://storage-file-eu.gmx.com/ et se connecter.


6-Aller au dossier,
cliquer droit sur le fichier et copier le lien.

Normalement ça marchera.
Si tu veux modifier les fichiers sans supprimer l'ancien fichier:

1- aller dans l'explorateur Windows et clique ajouter un emplacement résaux.


mettre l'adresse : https://storage-file-eu.gmx.com/
apres s'enregistrer.


Si tu as encore des question tu le dis.
Petit apprenti du vb.net
Commenter la réponse de wmade
jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 8 oct. 2016 à 22:43
0
Utile
6
Merci wmade pour ton retour.
Oui après pas mal de lecture sur le Web il paraît que Dropbox modifie les liens... j'avais déjà fais 4 essais différents de liens sans succès.
Demain je vais tester ton lien GMX en espérant que la lecture fonctionne
Merci encore pour ton retour je vous tiens au courant après test.
Très cordialement,
jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 10 oct. 2016 à 16:46
Bonjour wmade,

après test cela ne fonctionne pas, malheureusement sa ne fonctionne pas j'ai une exeption non gérée... Le serveur distant a retourner une erreur : (401) Non autorisé

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click

Dim MAJ As New WebClient

Dim DernièreVersion As String = MAJ.DownloadString("https://storage-file-eu.gmx.com/My%20Documents/version.txt")
If version = DernièreVersion Then

MessageBox.Show("Votre version est à jours")
Else

MessageBox.Show("Nouvelle mise à jours disponible : ")
End If

End Sub
wmade > jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 10 oct. 2016 à 18:39
Bonjour,

Oui, t'a oublier de mettre t'on identifiant et ton mot de passe.

Il faux Télécharger le fichier.
Le code :
    Sub Mise_A_Jour
        Dim VersionActuelle = "1.0"

        Dim dossier As String = Application.StartupPath & "\version.txt"
        If IO.File.Exists(dossier) = True Then
            Kill(dossier)

        End If
        My.Computer.Network.DownloadFile("https://storage-file-eu.gmx.com/Programmes/Suriver/Mise%20%C3%A0%20jour/version.txt", dossier, "Nom d'utilisateur (email pour gmx)(ex:wmade@gmx.com)", "Code(gmx)")
        Dim sr As New IO.StreamReader(dossier)
        Dim contenu As String = sr.ReadLine
        sr.Close()

        If contenu = VersionActuelle Then
            MessageBox.Show("Votre version est à jours")
        Else

            MessageBox.Show("Nouvelle mise à jours disponible : " & contenu & ".")
        End If

        kill(dossier)
  End sub

essaye et tien moi au courent !
jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention > wmade - 10 oct. 2016 à 21:25
Merci pour ton retour :)
Je n'arrive pas à créer le lien de partage après avoir ajouter le fichier, quand je clic dans Share "Create Share link" ou autre tout est grisé.
Quand je fais clic droit sur le fichier je n'ai pas "copier le lien"
jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 11 oct. 2016 à 18:03
je suis reparti sur mon ancien lien tout est OP.
Merci wmade pour ton aide ;)
wmade > jerlo11 79 Messages postés mardi 19 mai 2015Date d'inscription 6 décembre 2017 Dernière intervention - 11 oct. 2016 à 18:37
C'est pas compliquer. Il faux juste metre l'identifiant et le mot de passe et suprimer le fichier aprer la lecture.
Comme tu veux.

Si tu as des question tu le dit. Je suis a disposition. A +
Commenter la réponse de jerlo11

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.