[VB] Vérifier l'accès à internet
Résolu/Fermé
Utilisateur anonyme
-
12 sept. 2012 à 15:22
Demonnya Messages postés 20 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 17 avril 2016 - 29 oct. 2014 à 16:30
Demonnya Messages postés 20 Date d'inscription samedi 19 avril 2014 Statut Membre Dernière intervention 17 avril 2016 - 29 oct. 2014 à 16:30
A voir également:
- [VB] Vérifier l'accès à internet
- Verifier un lien - Guide
- Gps sans internet - Guide
- Comment verifier un site internet - Guide
- Aucun accès à internet - Guide
- Vb cable - Télécharger - Audio & Musique
2 réponses
Demonnya
Messages postés
20
Date d'inscription
samedi 19 avril 2014
Statut
Membre
Dernière intervention
17 avril 2016
20
29 oct. 2014 à 16:30
29 oct. 2014 à 16:30
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é)
Myster62
Messages postés
5
Date d'inscription
mercredi 12 septembre 2012
Statut
Membre
Dernière intervention
12 septembre 2012
12 sept. 2012 à 15:27
12 sept. 2012 à 15:27
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
