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.