Verificar acceso a Internet
Resuelto
Usuario anónimo
-
Demonnya Mensajes publicados 27 Estado Miembro -
Demonnya Mensajes publicados 27 Estado Miembro -
Hola,
En VB, me gustaría saber cómo comprobar si la PC está conectada a INTERNET. Ya conozco el método My.Computer.Network.IsAvailable pero éste sólo permite probar la conexión a una RED.
Al final encontré el método InternetGetConnectedState pero no entiendo cómo usarlo.
Si puedes responderme o conoces otro método, ¡respóndeme!
¡Gracias!
En VB, me gustaría saber cómo comprobar si la PC está conectada a INTERNET. Ya conozco el método My.Computer.Network.IsAvailable pero éste sólo permite probar la conexión a una RED.
Al final encontré el método InternetGetConnectedState pero no entiendo cómo usarlo.
Si puedes responderme o conoces otro método, ¡respóndeme!
¡Gracias!
2 respuestas
Más corto:
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
(no probado)
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
If My.Computer.Network.IsAvailable Then
MsgBox("Computer is connected.")
Else
MsgBox("Computer is not connected.")
End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||
(no probado)
Una pequeña investigación es suficiente:
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
'Ping exitoso
Connessione = True
Else
'Ping no exitoso
Connessione = False
End If
End Function
Dim Result : Result = Connessione()
Source: http://www.visualbasicscript.com/VBS-to-check-for-active-internet-connection-m65481.aspx
--
Twibook.eu | ¡La red social hipercomunitaria! - Chat gratis - Chat sin registro - Chat para adolescentes - Chat para adultos
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
'Ping exitoso
Connessione = True
Else
'Ping no exitoso
Connessione = False
End If
End Function
Dim Result : Result = Connessione()
Source: http://www.visualbasicscript.com/VBS-to-check-for-active-internet-connection-m65481.aspx
--
Twibook.eu | ¡La red social hipercomunitaria! - Chat gratis - Chat sin registro - Chat para adolescentes - Chat para adultos