Discussion :

[Tusbar]

Bonjour à tous... j'ai un big probleme là, je ne savais pas trop comment l'appeler, car je ne sais pas du tout d'ou il vient :

J'ai cette fonction :

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 Function CheckInternetConnection(ByVal Url As String) As Boolean
        Dim Result As Boolean = False
        If CheckInternetAddress(Url) Then
            Dim ReqHttp As HttpWebRequest
            Dim RespHttp As HttpWebResponse
            Try
                ReqHttp = CType(HttpWebRequest.Create(Url), HttpWebRequest)
                RespHttp = CType(ReqHttp.GetResponse, HttpWebResponse)
                ReqHttp.Abort()
                If RespHttp.StatusCode = HttpStatusCode.OK Then Result = True
            Catch ex As Exception
                MsgBox(ex.ToString)
                Result = False
            End Try
        End If
        Return Result
    End Function

Et voici l'erreur que j'obtiens :



Voila voila... si vous avez quelques infos à ce sujet je suis prenneur. Merci d'avance.

Cdlt.

[mafyoso]

Bonjour,

Qui y-a-t-il à la ligne 54 de ton fichier Fonction.vb?

A suivre

[Tusbar]

Bonjour,

Pardon oui j'ai oublié de préciser.

Il s'agit de cette ligne de la fonction :

Code :

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

ReqHttp = CType(HttpWebRequest.Create(Url), HttpWebRequest)

Cdlt.

[Tusbar]

Bonjour,

Des nouvelles : La fonction fonctionne en elle meme, dans un projet a part je n'ai aucun probleme... mais dans mon application ça ne fonctionne pas...

Deja vu ?

Cdlt

[Aspic]

Bonjour,

Des nouvelles : La fonction fonctionne en elle meme, dans un projet a part je n'ai aucun probleme... mais dans mon application ça ne fonctionne pas...

Deja vu ?

Cdlt

Aucune idée, tu es sur que la variable URL est correcte ?

[Tusbar]

Oui, quand elle ne l'est pas, j'ai un autre message d'erreur qui me dit qu'elle n'est pas valide/au format.

Quand je ne met pas de Try/Catch, j'ai le message d'erreur suivant :

ConfigurationErrorsException was unhandled :
Echec de l'initialisation du système de configuration.