[VB] Vérifier l'accès à internet
Résolu
Utilisateur anonyme
-
Demonnya Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
Demonnya Messages postés 20 Date d'inscription Statut Membre Dernière intervention -
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 !
A voir également:
- [VB] Vérifier l'accès à internet
- Acces rapide - Guide
- Verifier compatibilite windows 11 - Guide
- Vérifier lien internet - Guide
- Gps sans internet - Guide
- Vb - Télécharger - Langages
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é)
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
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
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