/*
AutoHotkey Version: 1.x
Language: English
Platform: WinXP
Title: Laptop Mouse Monitor
Author: Wesley Treat, www.wesleytreat.com
Date: May 2006
Script Function:
If a USB mouse is plugged into the laptop
, optimize the pointer speed
and precision settings
for the mouse
. If it
's not, optimize the settingsfor the touch pad. Monitor for changes in mouse's presence.
*/
; ============================================================
; CONFIGURATION
; ============================================================
; ------------------------------------------------------------
; USER POINTER SETTINGS
; Mouse ID
; Check HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Mouclass\Enum
; to determine the ID of your mouse. This should be the value of the key that
; appears and disappears when you plug in and unplug your mouse. You can
; probably just use "HID."
MouseID = HID
; Pointer Speed (1-20)
PadSpeed = 10
MouseSpeed = 12
; Enhance Pointer Precision
PadEnhance = 1
MouseEnhance = 0
; Precision Thresholds
PadThreshold1 = 6
PadThreshold2 = 10
MouseThreshold1 = 0
MouseThreshold2 = 0
; For details on precision and threshold settings, see
; http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wceui40/html/cerefSystemParametersInfo.asp
; under SPI_SETMOUSE. By default, thresholds 1 and 2 are "6" and "10" respectively.
; Use a tray icon?
TrayIcon = 1
; Tray Icons
; If you want the tray icon to reflect the current settings, enter a valid
; PadIcon and PadIconGroup. To use the only standard AutoHotkey icon, comment
; out all the icon locations.
MouseIcon = %A_WinDir%\system32\main.cpl
MouseIconGroup = 1
; The likely location of the Alps Touch Pad icon.
; PadIcon = %ProgramFiles%\Apoint\Apoint.exe
; PadIconGroup = 1
; The likely location of the Synaptics Touch Pad icon.
; PadIcon = %ProgramFiles%\Synaptics\SynTP\SynTPEnh.exe
; PadIconGroup = 1
; If you like, you can change the names for your devices. These names are
; reflected in the tooltips.
MouseName = Mouse
PadName = Touch Pad
; ------------------------------------------------------------
; SCRIPT SETTINGS - YOU SHOULDN'T NEED TO CHANGE ANYTHING BELOW THIS LINE.
Menu, Tray, NoIcon
; Constants
; Read more at the following:
; http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/systemparametersinfo.asp
; http://www.pinvoke.net/search.aspx?search=SPI&namespace=%5BAll%5D
SPI_GETMOUSE = 0x0003
SPI_SETMOUSE = 0x0004
SPI_GETMOUSESPEED = 0x0070
SPI_SETMOUSESPEED = 0x0071
; Watch for hardware changes
OnMessage(0x219, "HardwareUpdate")
; Check whether or not the mouse exists to begin with and make sure the pointer
; settings match.
Gosub, MouseCheck
Gosub, ChangeSettings
If !MousePresent
and !FileExist
(PadIcon
) and FileExist
(MouseIcon
) Menu, Tray, Icon, %MouseIcon%, %MouseIconGroup%
MouseLast = %MousePresent%
ToolTip, Pointer Settings Set
To:
%CurrentName%
Exit ; Everything above this line is run when the script is loaded.
; ============================================================
; FUNCTIONS & SUBROUTINES
; ============================================================
HardwareUpdate()
{
Gosub, MouseCheck
; We might get phantom hardware-change messages, so make sure the status
; of the mouse has actually changed before changing any settings.
If MousePresent
= %MouseLast%
{
Gosub, ChangeSettings
MouseLast = %MousePresent% ; Update mouse status.
ToolTip, Pointer Settings Changed
To:
%CurrentName%
}
}
MouseCheck:
MousePresent = 0
Sleep, 1000 ; Give the registry a moment to update. Loop
, HKEY_LOCAL_MACHINE
, SYSTEM\CurrentControlSet\Services\Mouclass\
Enum, 0, 0 {
IfInString, CurrentValue, %MouseID%
{
MousePresent = 1
Break ; Don't check any more values. }
}
ChangeSettings:
{
CurrentName = %MouseName%
DeviceSpeed = %MouseSpeed%
DeviceEnhance = %MouseEnhance%
DeviceThreshold1 = %MouseThreshold1%
DeviceThreshold2 = %MouseThreshold2%
If TrayIcon
and FileExist
(MouseIcon
) Menu, Tray, Icon, %MouseIcon%, %MouseIconGroup%
Menu, Tray, Tip, Current Pointer Settings: %CurrentName%
}
{
CurrentName = %PadName%
DeviceSpeed = %PadSpeed%
DeviceEnhance = %PadEnhance%
DeviceThreshold1 = %PadThreshold1%
DeviceThreshold2 = %PadThreshold2%
If TrayIcon
and FileExist
(PadIcon
) Menu, Tray, Icon, %PadIcon%, %PadIconGroup%
Menu, Tray, Tip, Current Pointer Settings: %CurrentName%
}
VarSetCapacity(DeviceArray, 12, 0)
InsertInteger(DeviceThreshold1, DeviceArray, 0) ; Reg. Value MouseThreshold1
InsertInteger(DeviceThreshold2, DeviceArray, 4) ; Reg. Value MouseThreshold2
InsertInteger(DeviceEnhance, DeviceArray, 8) ; Reg. Value MouseSpeed
InsertInteger
(pInteger
, ByRef pDest
, pOffset
= 0, pSize
= 4) ; The caller must ensure that pDest has sufficient capacity. To preserve any existing contents in pDest,
; only pSize number of bytes starting at pOffset are altered in it.
{
Loop %pSize% ; Copy each byte in the integer into the structure as raw binary data.
DllCall("RtlFillMemory", "UInt", &pDest
+ pOffset
+ A_Index
-1, "UInt", 1, "UChar", pInteger
>> 8*(A_Index
-1) & 0xFF
) }
; Keep this here for future reference.
; DllCall("SystemParametersInfo", UInt, SPI_GETMOUSESPEED, UInt, 0, UIntP, SpeedCurrent, UInt, 0)
; Change the pointer speed.
DllCall("SystemParametersInfo", UInt
, SPI_SETMOUSESPEED
, UInt
, 0, UInt
, DeviceSpeed
, UInt
, 1) ; Change the pointer precision settings.
DllCall("SystemParametersInfo", UInt
, SPI_SETMOUSE
, UInt
, 0, Str
, DeviceArray
, UInt
, 1)
Show Posts
) which I have uninstalled before ActivePython installation. I have WinXP SP2 
