Accueil > > > [.NET2] TESTER LA CONNECTION À INTERNET (AUTRE MÉTHODE PAR HTTPWEBREQUEST)
[.NET2] TESTER LA CONNECTION À INTERNET (AUTRE MÉTHODE PAR HTTPWEBREQUEST)
Information sur la source
Description
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
- 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
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
Historique
- 12 février 2006 14:22:05 :
- mots-clés
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
test connexion internet [ par snake57 ]
Bonjour,Alors oui je sais vous allez me dire que sur le site il y'a beaucoup de testeur de connexion internet.Le problème c'est qu'aucun ne fonct
info connexion internet [ par galexis ]
Je souhaite réaliser un compteur internet (avec visual basic 6), qui détecte la connexion par le modem, mais qui sache différencier la connexion activ
probleme connection lors de l'empactage [ par developvbdebut ]
Bonjour tout le mondeJ'ai terminée mon application, j'ai créé un petite base de données avec Ado et une table access.Mai lor
Connection SQL disante [ par macgiver159 ]
Bonjours,J'ai trouvé un programme qui se connecte à une base de donné distante(sur internet) et pour mon programme j'en est besoin le problème c'est q
Tester la connexion à la BDD [ par chouchou270403 ]
Bonjour à tous,Voila après quelques recherches infructueuses, je me suis enfin décidé à demander de l'aide.Dans le cadre d'un cours je dois réaliser u
tester une connexion LDAP [ par benny83 ]
bonjour,savez vous comment tester si une connexion LDAP est toujours établie ? (car apres un certain temps d'inactivité le serveur déconnecte automati
connexion a sql server 2005 [ par imad_lol ]
salut tout le monde.j'ai une base de donné sql server 2005 et c est la 1er fois que j essaye a me connecter via vb2005.je travail normalement sur vb6.
comment lancer l'assistant de connexion internet? [ par ghislia61 ]
Bonjour à tous...svp, j'aimerai savoir comment lancer l'assistant de connexion à internet de windows ( 2000, xp ...) dans le langage visual basic .
Script VBS pour test connexion internet [ par papy46 ]
Bonsoir à tous, j'ai un petit souci sur un script VBS : je souhaite réaliser un script d'accueil qui s'affiche à l'ouverture d'une session windows pou
Tester une connexion WIFI [ par seb_geminox ]
J'ai installé une connexion WIFI sur un PC portable. J'utilise des tables Access en lien (application Access avec code VB) et lorsque je fais une mise
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|