[VB] Vérifier l'accès à internet
Résolu
Utilisateur anonyme
-
Demonnya Messages postés 27 Statut Membre -
Demonnya Messages postés 27 Statut Membre -
Bonjour,
Sous VB, je souhaiterai savoir comment tester si le PC est connecté à INTERNET. Je connais déja la méthode My.Computer.Network.IsAvailable mais celle-ci ne permet que de tester la connexion à un RESEAU.
J'ai finalement trouvé la méthode InternetGetConnectedState mais ne comprend pas comment l'utiliser.
Si vous pouvez me répondre ou connaissez une autre méthode, répondez-moi !
Merci !
Sous VB, je souhaiterai savoir comment tester si le PC est connecté à INTERNET. Je connais déja la méthode My.Computer.Network.IsAvailable mais celle-ci ne permet que de tester la connexion à un RESEAU.
J'ai finalement trouvé la méthode InternetGetConnectedState mais ne comprend pas comment l'utiliser.
Si vous pouvez me répondre ou connaissez une autre méthode, répondez-moi !
Merci !
2 réponses
-
Plus court :
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
(non essayé) -
Une petite recherche suffit :
Option Explicit
Function Connessione()
Set WshShell = CreateObject("WScript.Shell")
PINGFlag = Not CBool(WshShell.run("ping -n 1 www.google.it",0,True))
If PINGFlag = True Then
'Successful ping
Connessione = True
Else
'Unsuccessful ping
Connessione = False
End If
End Function
Dim Result : Result = Connessione()
Source: http://www.visualbasicscript.com/VBS-to-check-for-active-internet-connection-m65481.aspx
