Chikitown SpeedChangerPues eso... que tenia un programa para cambiar la velocidad del ratón y me tenia hasta las mismísimas pelotas con la licencia y esta mañana estaba inspirado y he dicho: voy a hacerme uno y a pelarla.
El programa básicamente lo he hecho para cambiar la velocidad del ratón entre el táctil y el ratón con un simple atajo, pero después le he ido añadiendo cosas. Lo pongo aquí porque probablemente a alguien le puede ser de ayuda.
Los atajos son:
- ctrl+alt+shift+1: Velocidad Rápida. (para el táctil)
- ctrl+alt+shift+2: Velocidad Lenta. (para el mouse)
- ctrl+alt+shift+3: Velocidad Personalizada (Un número del 1 al 20).
(https://dl.dropboxusercontent.com/u/4713257/Imagenes/Temporales/chispeed1.jpg) - cltr+alt+shift+4: Configuracion.
(https://dl.dropboxusercontent.com/u/4713257/Imagenes/Temporales/chispeed2.jpg)(https://dl.dropboxusercontent.com/u/4713257/Imagenes/Temporales/chispeed3.jpg)
El programa está hecho con AutoHotKey (http://www.autohotkey.com/).
Aquí os dejo el Código Fuente por si alguien tiene ya el programa compilador:
#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.
SplitPath, A_Scriptname, , , , OutNameNoExt
LinkFile=%A_Startup%\%OutNameNoExt%.lnk
;IfNotExist, %LinkFile% ;si existe mejor que lo sobre escriba, asi actualiza el path, si cambia
;FileCreateShortcut, %A_ScriptFullPath%, %LinkFile%
SetWorkingDir, %A_ScriptDir%
;Hotkey para teclas:
;ctrl+alt+shift+1=rapido
;ctrl+alt+shift+2=lento
;ctrl+alt+shift+3=personalizado
;ctrl+alt+shift+4=configuracion
TrayTip, Chikitown SpeedChanger Info:, Cambiador de velocidad Iniciado`nctrl+alt+shift+`n1=Rápido`n2=Lento`n3=Personalizado`n4=Opciones, 5, 1
rapido := 10
lento := 4
;NOTIFICACIONES
RegRead, notificaciones, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones
if ErrorLevel{
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones, 0
notificaciones := 0
}
;STARTUP
RegRead, startup, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup
if ErrorLevel{
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup, 0
startup := 0
}
;TRAYICON
RegRead, trayicon, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon
if ErrorLevel{
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon, 1
trayicon := 1
menu, tray, Icon
}
if(trayicon==0){
menu, tray, NoIcon
}
^!+1::
DllCall("SystemParametersInfo", Int,113, Int,0, UInt,rapido, Int,2)
if(notificaciones==1){
if(trayicon==0)
menu, tray, Icon
TrayTip, Chikitown SpeedChanger Info:, Velocidad: rapido, 3, 1
sleep 3000
if(trayicon==0)
menu, tray, NoIcon
}
else{
ToolTip, % ("Puntero velocidad rapido")
sleep 1000
ToolTip
}
return
^!+2::
DllCall("SystemParametersInfo", Int,113, Int,0, UInt,lento, Int,2)
if(notificaciones==1){
if(trayicon==0)
menu, tray, Icon
TrayTip, Chikitown SpeedChanger Info:, Velocidad: lento, 3, 1
sleep 3000
if(trayicon==0)
menu, tray, NoIcon
}
else{
ToolTip, % ("Puntero velocidad lento")
sleep 1000
ToolTip
}
return
^!+3::
Gui, Add, Text, x30, Valor personalizado(entre 1 y 20):
Gui, Add, Edit, x30 vvalor
Gui, Add, Button, w90 y50 default, Aceptar ; The label ButtonAceptar (if it exists) will be run when the button is pressed.
Gui, Add, Button, w90 y50, Cancelar ; The label ButtonCancelar (if it exists) will be run when the button is pressed.
Gui, Show,, Chikitown SpeedChanger: Introducir valor
return ; End of auto-execute section. The script is idle until the user does something.
ButtonAceptar:
Gui, Submit ; Save the input from the user to each control's associated variable.
valor := round(valor)
if(valor<21 && valor>0){
DllCall("SystemParametersInfo", Int,113, Int,0, UInt,valor, Int,2)
if(notificaciones==1){
if(trayicon==0)
menu, tray, Icon
TrayTip, Chikitown SpeedChanger Info:, Velocidad Personalizada: "%valor%", 3, 1
sleep 3000
if(trayicon==0)
menu, tray, NoIcon
}
else{
ToolTip, Puntero velocidad "%valor%"
sleep 1000
ToolTip
}
}
else
MsgBox El valor "%valor%" está fuera de los limites.
GuiClose:
GuiEscape:
ButtonCancelar:
Gui, Destroy
return
^!+4::
; Example: Tab control:
Gui, New ; Creates a new GUI named Conf.
Gui, New:Add, Tab2,, Configuracion|Acerca de.. ; Tab2 vs. Tab requires v1.0.47.05.
if(startup==1)
Gui, New:Add, Checkbox, Checked vMyCheckbox1, Autoejecutar con Windows
else
Gui, New:Add, Checkbox, vMyCheckbox1, Autoejecutar con Windows
if(notificaciones==1)
Gui, New:Add, Checkbox, Checked vMyCheckbox2, Activar Notificaciones
else
Gui, New:Add, Checkbox, vMyCheckbox2, Activar Notificaciones
if(trayicon==1)
Gui, New:Add, Checkbox, Checked vMyCheckbox3, Activar TrayIcon
else
Gui, New:Add, Checkbox, vMyCheckbox3, Activar TrayIcon
Gui, New:Add,Text,,
Gui, New:Add, Checkbox, vMyCheckbox4, Salir de la aplicacion
Gui, New:Tab, 2
Gui, New:Add, Text,, Puede dejar su comentario`ny para ayuda o soporte`nen mi facebook:`n
Gui, New:Add, Edit,, https://www.facebook.com/Chikitown (https://www.facebook.com/Chikitown)
Gui, New:Tab ; i.e. subsequently-added controls will not belong to the tab control.
Gui, New:Add, Button, default w90 xm, OK ; xm puts it at the bottom left corner.
Gui, New:Show
return
NewButtonOK:
Gui, Submit ; Save each control's contents to its associated variable.
if(MyCheckbox1==0){
FileDelete, %LinkFile%
startup := 0
}
else{
FileCreateShortcut, %A_ScriptFullPath%, %LinkFile%
startup := 1
}
if(MyCheckbox2==1)
notificaciones := 1
else
notificaciones := 0
if(MyCheckbox3==1){
trayicon := 1
menu, tray, Icon
}
else{
trayicon := 0
menu, tray, NoIcon
}
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones, %notificaciones%
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup, %startup%
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon, %trayicon%
if(MyCheckbox4==1)
ExitApp
NewGuiClose:
NewGuiEscape:
Gui, Destroy
return
Descargar (https://dl.dropboxusercontent.com/u/4713257/Chikitown%20SpeedChanger.rar)
Un saludete, Chikitown :ok: