Bon d'accord il existe déjà ce genre de sources sur le site.
Mais je viens proproper une "autre méthode" que je n'ai pas trouvé sur le site pour tester la connection à Internet en utilisant la classe HttpWebRequest.
Ce n'est pas la source du siècle quelques lignes mais simple à comprendre.
Utilisation:
If TestInternetConnection then
'Connecté à Internet
Else
'Non connecté
End If
Source / Exemple :
Imports System.Net
Function TestInternetConnection() As Boolean
Dim IsOK As Boolean
Try
Dim ReqHttp As HttpWebRequest = WebRequest.Create("http://www.vbfrance.com")
'Envois de la requete et attente d'une réponse
Dim ReponseReq As HttpWebResponse = CType(ReqHttp.GetResponse, HttpWebResponse)
'Si la réponse est ok on retourne Vrai
If ReponseReq.StatusCode = HttpStatusCode.OK Then
IsOK = True
Else
IsOK = False
End If
ReponseReq.Close()
Catch ex As Exception
IsOK = False
End Try
Return IsOK
End Function
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.