Ejemplos usando el Api de windows para Visual basic

16 - Obtener las conexiones de red del sistema, y poder conectar y desconectarse, ya sea una conexión DialUp o Adsl

Contenido

Ejemplo 1 - Listar conexiones, conectar y desconectar
Ejemplo 2 - Cuadro de diálogo de propiedades de una conexión
Relacionados

Ejemplo 1

Código fuente que usa las funciones del Api RasDial, RasHangUp y RasEnumEntries entre otras , para obtener y listar las conexiones del equipo y poder conectar y desconectarse a internet

El ejemplo lo saqué de 2 códigos que encontré en la web.

Uno de ellos solo permitía conectarse mediante DialUp, y le modifiqué algunas lineas para que pueda conectarse con ambos tipos de conexiones. Y otra parte del código, es del Api guide, y es la función que permite obtener el Handle de la conexión activa. ( es la función getHandleConnection )

Formulario

conectar y desconectar internet mediante el Api de Windows

Controles

Colocar los siguientes controles como muestra la imágen:

Un Text1 para indicar el nombre de usuario
Un Text2 para indicar el password
Un ListBox para listar las conexiones del sistema
Un Command1 para conectar a internet
Un command2 para desconectar

Código fuente en el formulario

Option Explicit Const RAS95_MaxEntryName = 256 'Estructur que utiliza la funcion que _ agrega en el List las conexiones del sistema Private Type RASENTRYNAME95 dwSize As Long szEntryName(RAS95_MaxEntryName) As Byte End Type 'Estructura con info sobre las conexiones Private Type RASDIALPARAMS dwSize As Long szEntryName As String * 257 szPhoneNumber As String * 129 szCallbackNumber As String * 129 szUserName As String * 257 szPassword As String * 257 szDomain As String * 16 filler As String * 16 End Type 'Para listar las conexiones del sistema Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" _ (ByVal reserved As String, _ ByVal lpszPhonebook As String, _ lprasentryname As Any, _ lpcb As Long, _ lpcEntries As Long) As Long ' estructura para la función RasEnumConnections Private Type RASCONN dwSize As Long hRasConn As Long szEntryName(0 To 256) As Byte szDeviceType(0 To 16) As Byte szDeviceName(0 To 128) As Byte pad As Byte End Type ' función Api para obtener el Handle de la conexión actual Private Declare Function RasEnumConnections Lib "rasapi32" Alias "RasEnumConnectionsA" ( _ ByVal lprasconn As Long, _ ByVal lpcb As Long, _ ByVal lpcConnections As Long) As Long 'Para realizar una pausa Private Declare Sub Sleep Lib "kernel32.dll" (ByVal miliseg As Long) Private Declare Sub strcpyn Lib "kernel32.dll" Alias "lstrcpynA" _ (ByVal a As String, _ ByVal de As String, _ ByVal N As Long) Private Declare Function strlen Lib "kernel32.dll" Alias "lstrlenA" _ (ByVal texto As String) As Long 'Para desconectar la conexion Private Declare Function RasHangUp Lib "rasapi32.dll" Alias "RasHangUpA" _ (ByVal handle As Long) As Integer 'PAra conectar y desconectase Private Declare Function RasDial Lib "rasapi32.dll" Alias "RasDialA" _ (ByVal p1 As Long, _ ByVal p2 As Long, _ rd As RASDIALPARAMS, _ ByVal p4 As Long, _ ByVal p5 As Long, _ handle As Long) As Integer 'Para los errores Private Declare Sub RasGetErrorString Lib "rasapi32.dll" Alias "RasGetErrorStringA" _ (ByVal nmumer As Long, _ ByVal buffer As String, _ ByVal sizebuf As Long) Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _ ByRef lpdwFlags As Long, _ ByVal dwReserved As Long) As Long 'Handle de la conexion actual a internet Dim hDial As Long 'Función que realiza la conexión Function Conectar(Entry As String, _ User As String, _ Pass As String) As Integer Dim Rdp As RASDIALPARAMS Rdp.dwSize = 1052 strcpyn Rdp.szEntryName, Entry + Chr$(0), 256 strcpyn Rdp.szPhoneNumber, Chr$(0), 128 strcpyn Rdp.szCallbackNumber, Chr$(0), 128 strcpyn Rdp.szUserName, User + Chr$(0), 256 strcpyn Rdp.szPassword, Pass + Chr$(0), 256 strcpyn Rdp.szDomain, Chr$(0), 15 'Llamamos a Conectar pasandole los valores. _ El importante es el parametro 3 y el 5 El 3° _ param es la estructura con la info y el 5 es el Handle de la conexión Conectar = RasDial(0, 0, Rdp, 0, 0, hDial) End Function 'Función que desconecta la conexión Function Desconectar() As Long Dim N As Long N = RasHangUp(hDial) hDial = GetHandleConnection Sleep (3000) Desconectar = N End Function Function TextoError(Num As Long) As String 'Formatea la cadena de texto que muestra el error ocurrido Dim Txt As String * 128 Txt = Chr$(0) RasGetErrorString Num, Txt, 127 TextoError = Left$(Txt, strlen(Txt)) End Function Private Sub Command1_Click() ' Botón de Conexión Dim N As Long Me.MousePointer = vbHourglass 'Verifica previamente si estamos online If IsOnline = True Then MsgBox "Ya se estaba conectado a internet", vbInformation Else 'Conectamos pasandole los parámetros, _ el nombre de la conexion, el usuario y el password N = Conectar(List1, Text1, Text2) 'Si N es 0 es porque handubo bien y conectó If N = 0 Then MsgBox "Conectado a internet", vbInformation 'Si no hubo un error Else MsgBox TextoError(N), vbCritical End If End If Me.MousePointer = 0 End Sub '/// Botón Desconexión Private Sub Command2_Click() Dim N As Long Me.MousePointer = vbHourglass hDial = GetHandleConnection ' verifica previamente si se está conectado a internet If IsOnline = False Then MsgBox "No se estaba conectado a internet", vbExclamation Else 'Si es <> 0 es por que hubo un error N = Desconectar If N = 0 Then MsgBox "Desconectado", vbInformation Else MsgBox TextoError(N), vbCritical, "Mensaje de error" End If End If hDial = GetHandleConnection Me.MousePointer = 0 End Sub 'Enumera las conexiones instaladas Private Sub ListarConexiones() Dim s As Long, l As Long, ln As Long, a$ ReDim r(255) As RASENTRYNAME95 r(0).dwSize = 264 s = 256 * r(0).dwSize l = RasEnumEntries(vbNullString, vbNullString, r(0), s, ln) 'Bucle para agregar las conexiones al List1 For l = 0 To ln - 1 a$ = StrConv(r(l).szEntryName(), vbUnicode) List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1) Next If List1.ListCount > 0 Then List1.ListIndex = 0 End If hDial = GetHandleConnection End Sub Function GetHandleConnection() As Long Dim conn As RASCONN Dim y As Long, z As Long Dim ret As Long ' tamaño de la estructura conn.dwSize = Len(conn) y = conn.dwSize ' devuelve el Handle de la conexión actual ret = RasEnumConnections(VarPtr(conn), _ VarPtr(y), _ VarPtr(z)) GetHandleConnection = conn.hRasConn End Function ' verifica si hay conexión a internet ''''''''''''''''''''''''''''''''''''''''''' Public Function IsOnline() As Boolean IsOnline = InternetGetConnectedState(0&, 0&) End Function Private Sub Form_Load() 'Apenas carga el Form llenamos el List _ con las conexiones que hay instaladas Call ListarConexiones Me.Caption = " Ejemplo para listar las conexiones de internet, " & _ "conectar y desconectar" Command1.Caption = "Conectar" Command2.Caption = "Desconectar" End Sub

Ejemplo 2 - cuadro de diálogo de propiedades de una conexión

Nota : si se quiere poder abrir el cuadro de diálogo de propiedades de una conexión , se puede hacer una llamada a la función del api RasEditPhonebookEntry :

En el último parámetro se le debe pasar el nombre de la conexión

Ejemplo :

Código fuente en el formulario

' declaración del Api RasEditPhonebookEntry Private Declare Function RasEditPhonebookEntry Lib "rasapi32.dll" Alias "RasEditPhonebookEntryA" ( _ ByVal hwnd As Long, _ ByVal lpcstr As String, _ ByVal lpcstr As String) As Long ' abrir cuadro de diálogo propiedades de la conexión a internet '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Command1_Click() Dim ret As Long ' indicar en el último parámetro el nombre de la conexión ret = RasEditPhonebookEntry(Me.hwnd, vbNullString, "WinPoET v6.6 Conexión") End Sub

Enlaces relacionados:

Buscar en Recursos vb