Usaremos las teclas de movimiento o flechas para sustituir al ratón en esos puntos:
- -eliminamos el tiempo de transladar el ratón por la pantalla (ganas tiempo y productividad)
- -eliminamos el desgaste del nervio que pasa por el tunel carpiano, con lo que prevenimos o "rehabilitamos" el nervio
- -usamos menos recursos mentales o neuronas, que podemos usar para concentrarnos en la pregunta, ya que es más facil dar a dos teclas que estar calculando mentalmente donde aterrizara el ratón y mil cosas que pasan.
- las típicas preguntas de esas páginas de gente o gustos como ¿Quieres conocerme si/no etc..? Te gusta etc..
Incluyo fuentes y ejecutable - Incluimos accesibilidad para personas que tienen problemas para usar el ratón (e.g.:cuando tienen que usar un procesador de texto como maquina de escribir y usar los botones como GUARDAR o imprimir.)
- Admite hasta 80 posiciones diferentes de ratón para hacer click y asociarlas a teclas.
1.-Elegimos las teclas que vamos a usar
1.-Memorizamos las posiciones que deseamos para colocar el ratón en cada tecla. Se asigna cada posición a las teclas arriba, abajo, derecha e izquierda. Se piden 4 puntos o botones consecutivamente y darle a aceptar cada vez.
2.Usamos ahora el teclado y no el ratón.
Salu22:)
Código: Seleccionar todo
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=tunelcarpiano.ico
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_LegalCopyright=BAsicos de www.autoit.es
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
;EMILImouse Autor Basicos de www.autoit.es 04/04/2012
MsgBox(0, "EMILIMOUSE - Elimina el mouse (Ayuda tunel carpiano)", "Usara las teclas en vez del ratón en varias posiciones a elegir con las flechas" & @CRLF & "Ahora coloque el ratón y elija con enter cada diferente posición a memorizar")
$INIteclas = IniRead("emilimouse.ini", "[general]", "initeclas", "{ESC},{UP},{DOWN},{LEFT},{RIGHT}")
$teclasprograma = InputBox("Antes elija teclas que desea usar para memorizar el ratón por orden", "Modifique los códigos o incluya las teclas separadas por comillas" & @CRLF & "1.-Tecla para salir, luego las 4 teclas siguientes las que se va a sustituir el ratón, (teclas especiales entre{})", $INIteclas)
$ateclasprograma = StringSplit($teclasprograma, ",")
Global $pos[80][2]
$ratonesposicion = ""
$iniratones = IniRead("emilimouse.ini", "[general]", "iniratones", "NO")
$ainiratones = StringSplit($iniratones, ";")
For $i = 1 To $ateclasprograma[0]
HotKeySet($ateclasprograma[$i], "redireccion")
If $i > 1 Then
If $iniratones <> "NO" Then
$inimueve = StringSplit($ainiratones[$i - 1], ",")
MouseMove($inimueve[1], $inimueve[2])
EndIf
MsgBox(0, "Memorizando " & String($i - 1) & " posición: " & $ateclasprograma, "Posicione el ratón donde funcionará con " & $ateclasprograma[$i] & " y enter con el teclado (no use el click del ratón)")
$posraton = MouseGetPos()
$pos[$i][0] = $posraton[0]
$pos[$i][1] = $posraton[1]
$ratonesposicion = $ratonesposicion & $posraton[1] & "," & $posraton[1] & ";"
EndIf
Next
If Not FileExists("emilimouse.ini") Then MsgBox(0, "Grabacion de fichero de configuración", "Sus alternativas se han guardado en el ordenador para la próxima vez")
IniWrite("emilimouse.ini", "[general]", "initeclas", $teclasprograma)
IniWrite("emilimouse.ini", "[general]", "iniratones", $ratonesposicion)
While 1
Sleep(150)
WEnd
#include <Array.au3>
Func redireccion()
$iIndex = _ArraySearch($ateclasprograma, @HotKeyPressed)
If @error Then
MsgBox(0, "Error", "Tecla no existe" & @HotKeyPressed)
Exit
EndIf
If $iIndex = 1 Then
MsgBox(0, "EMILIMOUSE", "Gracias por usar el programa")
Exit
EndIf
MouseClick("left", $pos[$iIndex][0], $pos[$iIndex][1])
EndFunc ;==>redireccion
