Programación VB cómo desconectar la conexión de red adsl
Shell "Rasphone.exe -h " amp "Nombre de conexión"
==========================
Si no conoce el nombre de la conexión, puede utilizar el siguiente código para obtener primero el nombre de la conexión de red y el estado de conexión
Función de declaración privada InternetGetConnectedStateEx Lib Alias "wininet.dll" "InternetGetConnectedStateExA" (ByRef lpdwFlags siempre, ByVal lpszConnectionName como cadena, ByVal dwNameLen mientras, ByVal dwReserved mientras) Siempre
Propiedad privada Get OnLine(ln como cadena) como booleano
ln = String$(128, 0 )
OnLine = InternetGetConnectedStateEx(0, ln, 128, 0amp;)
Propiedad final
Subcomando privado1_Click( )
Dim LinkName As String
Si está en línea (LinkName) entonces Shell "Rasphone.exe -h " amp LinkName
End Sub