Vérifier les mises à jours [Résolu]

Messages postés
20
Date d'inscription
samedi 6 juin 2009
Statut
Membre
Dernière intervention
30 octobre 2012
- - Dernière réponse : rud0205
Messages postés
20
Date d'inscription
samedi 6 juin 2009
Statut
Membre
Dernière intervention
30 octobre 2012
- 30 oct. 2012 à 19:19
Bonjour tout le monde

Voila, j'ai un petit soucis... J'ai tester un petit scripte de Antoine Bagnaud (Web Dev') Le tuto est disponible ici . Ce scripte permet de visualiser un document texte distant qui contiens un numéro de version, et comparer celui du programme... S'il est différent, il téléchargera le setup.exe.

Voila mon Sub :
Dim Response As HttpListenerResponse = Nothing
        Dim Sr As StreamReader = Nothing

        Try
            Dim request As HttpWebRequest = CType(WebRequest.Create("https://www.dropbox.com/s/ha8wx7hcarkb9u3/version.txt"), HttpWebRequest)
            Response = CType(request.GetResponse, HttpWebResponse)
            Sr = New StreamReader(Response.GetResponseStream)
            If sr.ReadToEnd <> Me.ProductVersion Then
                Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\setup.exe"
                If Dir(path) <> "" Then
                    Kill(path)
                End If
                Dim WebClient As New System.Net.WebClient
                WebClient.DownloadFile("http://dl.dropbox.com/u/25627637/setup.exe", path) ' Ne pas oublier de remplacer le lien
                Process.Start(path)
                Application.Exit()
            Else
                MsgBox("Le logiciel est à jour !", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        Finally
            If Not (response Is Nothing) Then
                response.Close()
            End If
            If Not (sr Is Nothing) Then
                sr.Close()
            End If
        End Try


J'ai pas oublier les instance système :
Imports System.IO
Imports System.Net


Mais j’obtiens deux erreur :

Erreur 1 Impossible de convertir une valeur de type 'System.Net.HttpWebResponse' en 'System.Net.HttpListenerResponse'.

Cela vien de :
CType(request.GetResponse, HttpWebResponse)


Erreur 2 'GetResponseStream' n'est pas un membre de 'System.Net.HttpListenerResponse'.

Et me souligne :
(Response.GetResponseStream)


Quelqu'un peu m'aider ?
Afficher la suite 

2 réponses

Meilleure réponse
3
Merci
Bonsoir,

C'est ta déclaration qui est fausse :
Dim Response As HttpListenerResponse = Nothing


Ce devrait être :
dim response as HttpWebResponse = nothing

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 137 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Utilisateur anonyme
Messages postés
20
Date d'inscription
samedi 6 juin 2009
Statut
Membre
Dernière intervention
30 octobre 2012
0
Merci
Banana32, je t'aime =)
J'ai chercher pendant des heurs!

Merci beaucoup !
Commenter la réponse de rud0205