Ejemplos usando el Api de windows para Visual basic

25 - Algunas funciones Api para saber el estado de red y obtener información

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo que muestra como obtener información de red, especificamente de:

El estado de la red Lan o red Local
El estado del módem, es decir si se encuentra activo, no si está instalado
Saber si se está conectado a un servidor Proxy
Saber si se está en línea, es decir si se está conectado a internet.

La función Api que obtiene esta información se llama: InternetGetConnectedState , y cuando llamamos a la función le debemos pasar una variable de tipo Long como parámetro que nos retornará un valor.

Después consultando ese valor de retorno y comparandolo con unas constantes podemos obtener la información

Para probar el ejemplo colocar 4 Command Button como está en la imagen:

saber el estado de red y otra información mediante algunas funciones Api

Código fuente en un formulario

Option Explicit 'Funcion Api que obtiene información sobre el estado de Red Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long 'Constantes para obtener la información Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_MODEM_BUSY As Long = &H8 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Private Const INTERNET_CONNECTION_CONFIGURED As Long = &H40 Private dwflags As Long ' Función Booleana para saber el estado de la Red Lan Private Function Lan() As Boolean Call InternetGetConnectedState(dwflags, 0&) Lan = dwflags And INTERNET_CONNECTION_LAN End Function ' Función Booleana para saber si el Modem está activo Private Function Modem() As Boolean Call InternetGetConnectedState(dwflags, 0&) Modem = dwflags And INTERNET_CONNECTION_MODEM End Function ' Función Booleana para saber si se está conectado a un servidor Proxy Private Function Proxy() As Boolean Call InternetGetConnectedState(dwflags, 0&) Proxy = dwflags And INTERNET_CONNECTION_PROXY End Function ' Función Booleana para saber si se está conectado a internet Private Function Online() As Boolean Online = InternetGetConnectedState(0&, 0&) End Function Private Sub Command1_Click() MsgBox "La red LAN está activa:? " & CBool(Lan()) End Sub Private Sub Command2_Click() MsgBox "El Modem está en linea:? " & CBool(Modem()) End Sub Private Sub Command3_Click() MsgBox "Estás conectado a un Proxy: ?" & CBool(Proxy()) End Sub Private Sub Command4_Click() MsgBox "Estás conectado a la red:? " & CBool(Online()) End Sub Private Sub Form_Load() Command1.Caption = " Saber si hay conexión Lan " Command2.Caption = " Saber si el Modem está activo " Command3.Caption = " saber si hay conexión Proxy " Command4.Caption = " Saber si hay conexión a internet " End Sub

Ejemplo 2

A continuación hay otro ejemplo que permite mediante las funciones RasEnumConnections y RasGetConnectStatus, poder determinar si estamos o no conectados

Colocar en un nuevo proyecto un módulo bas

Código fuente en el .bas

Option Explicit ' Funciones Api ''''''''''''''''''''''''''' 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 ' constantes '''''''''''''''''''''''''''''' Public Const RAS95_MaxEntryName = 256 Public Const RAS95_MaxDeviceType = 16 Public Const RAS95_MaxDeviceName = 32 ' Estructuras '''''''''''''''''''''''''''' 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 Conectado() As Boolean Dim TC(255) As RASCONN95 Dim lg As Long Dim lpcon As Long Dim ret As Long Dim Tstatus As RASCONNSTATUS95 TC(0).dwSize = 412 lg = 256 * TC(0).dwSize ret = RasEnumConnections(TC(0), lg, lpcon) If ret <> 0 Then MsgBox "error", vbCritical Exit Function End If Tstatus.dwSize = 160 ret = RasGetConnectStatus(TC(0).hRasCon, Tstatus) 'retorno If Tstatus.RasConnState = &H2000 Then Conectado = True Else Conectado = False End If End Function

Para llamar a la función :

Private Sub Form_Load() If Conectado Then MsgBox "Si hay conexión a internet", vbInformation Else MsgBox ("No Hay conexión"), vbInformation End If End Sub

Enlaces relacionados a red

Módulo de clase con funciones de red con el Api

Buscar en Recursos vb