encender y apagar wi-fi

Esta sección es para preguntas sobre programación/scripting usando AutoHotkey.

Moderator: Flipeador

goyoex
Posts: 4
Joined: 25 Mar 2017, 09:17

encender y apagar wi-fi

25 Mar 2017, 10:03

Hola.

Necesito ayuda con un script para conectar y desconectar la wi-fi con una sola tecla y mostrando un mesaje en la pantalla. lo he intentado pero no se como resolver el problema cuando hay dos condiciones.
Lo he intentado con errorlevel pero nada.

1- Primero debo ver el status de la wi-fi con el comado devcon y lo salvo en un archivo .txt

RunWait %comspec% /c "devcon status "PCI\VEN_168C&DEV_0034">wireless_log.txt",,Hide


2- Despues si existe en el archivo wireless_log.txt la palabra running es que la wi-fi esta encendida y deberia hacer esto.

RunWait %comspec% /c devcon disable "PCI\VEN_168C&DEV_0034",,Hide ;esto desactiva la wi-fi

Progress, zh0 fm15 WS500 CW00FFFF H30 W100, , WI-FI OFF, wireless ; esto muestra el mensaje wifi-off
WinSet, Style, -0xC00000, wireless
Sleep, 500
Progress, Off

3- Si no existiese la palabra running o existiese la palabra disabled en el archivo wireless_log.txt . la wireless esta apagada y deberia hacer esto.

RunWait %comspec% /c devcon enable "PCI\VEN_168C&DEV_0034",,Hide ;esto activa la wi-fi

Progress, zh0 fm15 WS500 CW00FFFF H30 W100, , WI-FI ON, wireless ; esto muestra el mensaje wifi-on
WinSet, Style, -0xC00000, wireless
Sleep, 500
Progress, Off

Gracias por anticipado. Los comandos ya estan probados pero no se como montar el script
goyoex
Posts: 4
Joined: 25 Mar 2017, 09:17

Re: encender y apagar wi-fi

25 Mar 2017, 20:27

Finalmente he dado con una forma de hacerlo. Llevo dos dias con autohotkey y supongo que no habra sido la mas ortodoxa pero funciona.

Gracias.

Code: Select all

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

>^F8::

RunWait %comspec% /c "devcon status "PCI\VEN_168C&DEV_0034">wireless_log.txt",,Hide

FileRead, wireless, wireless_log.txt
Haystack = %wireless%
Needle = disabled
StringGetPos, pos, Haystack, %Needle%
if pos >= 0
{
    RunWait %comspec% /c devcon enable "PCI\VEN_168C&DEV_0034",,Hide  ; disable wifi
    Progress, zh0 fm15 WS500 CW00FFFF H30 W100, , WI-FI ON, wireless  ; show message wifi-on
    WinSet, Style, -0xC00000, wireless
    Sleep, 1000
    Progress, Off 
    return
}
else
{
    RunWait %comspec% /c devcon disable "PCI\VEN_168C&DEV_0034",,Hide  ; disable wifi
    Progress, zh0 fm15 WS500 CW00FFFF H30 W100, , WI-FI OFF, wireless  ; show message wifi-off
    WinSet, Style, -0xC00000, wireless
    Sleep, 1000
    Progress, Off
    return 
}
Return


Return to “Pedir Ayuda”

Who is online

Users browsing this forum: No registered users and 44 guests