[VB] Vérifier l'accès à internet Résolu/Fermé

Question

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 !

Myster62 · Answer

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

Demonnya · Answer

Plus court :

'|||||||||||||||||||||||||||||||||||||||||||||||||||||
If My.Computer.Network.IsAvailable Then
    MsgBox("Computer is connected.")
Else
    MsgBox("Computer is not connected.")
End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||

(non essayé)

[VB] Vérifier l'accès à internet

2 réponses

Discussions similaires