vba - quitar - modo avion windows 7

Cómo cambiar automáticamente el modo Avión en Windows

Question

En mi computadora portátil puedo cambiar el modo Avión manualmente presionando FN + F12 , quiero hacer lo mismo automáticamente desde el proyecto VB6 o VBA.

Hice mucha búsqueda y solo encontré respuestas sobre Habilitar / Inhabilitar el adaptador inalámbrico o usar Sendkeys para Windows 8:

Dim WSh As Object
Set WSh = CreateObject("Wscript.Shell")
WSh.Run "C:/WINDOWS/system32/rundll32.exe %SystemRoot%/system32/van.dll,RunVAN", , True
Sleep 200
WSh.SendKeys " "
Sleep 1000
WSh.SendKeys "{ESC}"

Pero este código no es confiable y no creo que funcione en Windows 7 o Windows 10.

Así que mi pregunta es: ¿Existe alguna forma confiable de alternar automáticamente el modo Avión en Windows?

Answer 1

No tengo una tecla de función en mi teclado, y esto no está probado, solo es una idea. ¿Por qué no lo intentas así?

Sub SetMode()

    CreateObject("Shell.Application").MinimizeAll        
    Application.SendKeys "{F12}"  ''Try a way to refer the function key

End Sub

Otra opción posible es algo como esto, dependiendo de tu Windows:

Option Explicit

Public Sub TestMe()

    Application.SendKeys ("^{ESC}")
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys ("{s}")
    SendKeys ("{e}")
    SendKeys ("{t}")
    SendKeys ("{t}")
    SendKeys ("{i}")
    SendKeys ("{n}")
    SendKeys ("{g}")
    SendKeys ("{s}")
    SendKeys "~", False
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys ("{a}")
    SendKeys ("{i}")
    SendKeys ("{r}")
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys "~", False
    Application.Wait Now + TimeValue("00:00:01")
    SendKeys "~", False

End Sub

El signo ~ es para ENTRAR, y la tecla ctrl+escape simula la tecla de windows en su teclado. Después de alcanzar lo que desea, puede navegar con pestañas y flechas.

Answer 2

Solución 1: SendKeys

AFAIK la tecla Fn en un teclado no es interceptada por Windows, es una asignación de hardware a una tecla de función, es decir. "Sube el volumen". Ahora el problema con eso es que la tecla "apagar / habilitar wifi" envía una señal al hardware para apagar la tarjeta. Así que eso es para SendKey, no hay una clave virtual para "Conexión / desconexión inalámbrica" ​​(aunque hay una para "subir volumen").

Solución 2: La API de Windows 8

Ahora, el otro enfoque sería utilizar la API de Windows 8 aquí https://msdn.microsoft.com/en-us/library/windows/hardware/hh406627(v=vs.85).aspx y más específicamente las siguientes interfaces:

• IMediaRadioManager
• IRadioInstance
• IRadioInstanceCollection
• IMediaRadioManagerNotifySink

Esto debería permitirle obtener la radio para bluetooth, wifi, ... así como el "modo avión" y luego apagarlos, pero nunca he intentado usar eso con VBS.

Solución 3: Uso de consultas WMI

Con las consultas de WMI, básicamente puede acceder a cualquier elemento de su máquina, incluidas las tarjetas de red. La clase que busca es "Win32_NetworkAdapter" y puede encontrar todos los documentos aquí: https://msdn.microsoft.com/en-us/library/aa394216(v=vs.85).aspx

Aquí hay un pequeño código de ejemplo que mostrará una lista de los adaptadores de red actuales; puede personalizarlo para guardar los que estaban habilitados antes de ejecutar el script para poder volver a habilitarlos después.

'' connects to the WMI server of the local machine
Set objConnection = GetObject("winmgmts:" _
    & "{impersonationLevel=Delegate," _
    & "authenticationLevel=PktPrivacy}!" _
    & "//localhost/root/cimv2")

'' gets a list of all the network adapters in the system
Set objNetworkAdapters = objConnection.ExecQuery("SELECT * FROM  Win32_NetworkAdapter")

'' loops through all network adapters
For Each objCurrentNetworkAdapter in objNetworkAdapters
    '' objCurrentNetworkAdapter.Disable
    '' objCurrentNetworkAdapter.Enable
    WScript.Echo objCurrentNetworkAdapter.Name
Next

Observación:

Básicamente, se supone que no debe acceder al "Modo avión" desde el código, ya que es un privilegio de usuario hacerlo. Imagínese si alguien crea una aplicación que active el roaming y la conexión de datos y luego comience a actualizarse mientras está en el extranjero ...