Tool oder Möglichekit zum wechslen von Maussensitivität und -beschleunigung gesucht

/*
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 settings
for 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.

If !TrayIcon
	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%
	Sleep, 2000
	ToolTip
	Return


Exit ; Everything above this line is run when the script is loaded.


; ============================================================
; FUNCTIONS & SUBROUTINES
; ============================================================

HardwareUpdate()
{
	Global MouseLast
	Global MousePresent
	Global CurrentName
	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%
		Exit
	Else
	{
		Gosub, ChangeSettings
		MouseLast = %MousePresent%	; Update mouse status.
		ToolTip, Pointer Settings Changed To: %CurrentName%
		Sleep, 2000
		ToolTip
	}
	Return
}

MouseCheck:
	MousePresent = 0
	Sleep, 1000	; Give the registry a moment to update.
	Loop, HKEY_LOCAL_MACHINE, SYSTEM\CurrentControlSet\Services\Mouclass\Enum, 0, 0
	{
		RegRead, CurrentValue
		IfInString, CurrentValue, %MouseID%
		{
			MousePresent = 1
			Break	; Don't check any more values.
		}
	}
	Return

ChangeSettings:
	If MousePresent
	{
		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%
	}
	Else
	{
		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)
	Return