Red de conocimiento informático - Problemas con los teléfonos móviles - Programación VB cómo desconectar la conexión de red adsl

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