Verificar conexion a internet

juan
18 de Mayo del 2004
Holas! Necesito verificar si el ordenador está o no está conectado a internet mediante visual basic. Como se hace??

gracias

juan
18 de Mayo del 2004
Ya lo encontre. No se si funciona pero bueno.


http://www.e-mision.net/crazyhouse/secciones/codigo.asp?i=API35

Esta función devuelve Verdadero o Falso dependiendo de si tenemos la conexión a Internet "Abierta" o no.
Para probar esta API, debes copiar este código en un módulo y llamar a la función EstamosConectados, te devolvera Verdadero o Falso dependiendo del estado de las conexiones a Inet.

Option Explicit

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, _
lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _
lpStatus As Any) As Long

Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32

Public Type RASCONN95
dwSize As Long
hRasCon As Long
szEntryName(RAS95_MaxEntryName) As Byte
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Type RASCONNSTATUS95
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS95_MaxDeviceType) As Byte
szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
Public Function EstamosConectados() As Boolean
Dim TRasCon(255) As RASCONN95
Dim lg As Long
Dim lpcon As Long
Dim ResVal As Long
Dim Tstatus As RASCONNSTATUS95

TRasCon(0).dwSize = 412
lg = 256 * TRasCon(0).dwSize

ResVal = RasEnumConnections(TRasCon(0), lg, lpcon)
If ResVal <> 0 Then
EstamosConectados = False
Exit Function
End If

Tstatus.dwSize = 160
ResVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
If Tstatus.RasConnState = &H2000 Then
EstamosConectados = True
Else
EstamosConectados = False
End If
End Function

juan
18 de Mayo del 2004
No funciona. :(