Sección de códigos , trucos y ejemplos para visual basic

39 - Saber el estado de la conexión de red y que tipo de Red estamos usando - Wan, Lan

Código fuente que utiliza la función del Api IsNetworkAlive para poder saber si estamos o no conectados a Internet, y además saber el tipo de red a la que estamos conectados si es que hay conexión, si es una red de tipo Lan o una Wan o alguna otra.

El ejemplo muestra un mensaje como este si está conectado a una Wan

Saber si estamos conectados a internet desde visual basic y saber que tipo de red estamos conectados

Controles

Colocar un control CommandButton llamado Command1

Nota: Al llamar a la función api, retorna como parámetro una serie de flags que están declarados en el código fuente, y cada uno corresponde a los diferentes tipos de red

Código fuente en el formulario

Option Explicit 'Constantes para determinar que tipo de Red estamos conectados Const NETWORK_ALIVE_AOL = &H4 Const NETWORK_ALIVE_LAN = &H1 Const NETWORK_ALIVE_WAN = &H2 'Función Api IsNetworkAlive para detectar _ si estamos conectados y a que tipo de red Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" ( _ ByRef lpdwFlags As Long) As Long Private Sub Command1_Click() Dim Ret As Long 'Si la Api retorna 0 quiere decir que no hay ningun tipo de conexión de Red If IsNetworkAlive(Ret) = 0 Then MsgBox "El sistema no está conectado a una NetWork!", vbInformation Else ' hay conexión , y muestra el tipo MsgBox "El sistema está conectado a: " + _ IIf(Ret = NETWORK_ALIVE_AOL, "AOL", _ IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network", vbInformation End If End Sub

Recursos vb 6.0 - Enlaces relacionados

Recursos visual basic.NET - Relacionados

My.Computer.NetWork - Métodos para trabajar con red en vb.net

Buscar en Recursos vb