SetBatchLines, -1
SetMouseDelay, -1
OnExit, Exit

hHookMouse := DllCall("SetWindowsHookEx" . (A_IsUnicode ? "W" : "A")
	, Int, WH_MOUSE_LL := 14
	, Ptr, RegisterCallback("LowLevelMouseProc", "Fast")
	, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
	, UInt, 0, Ptr)
Return

Esc::
Exit:
	DllCall("UnhookWindowsHookEx", Ptr, hHookMouse)
	ExitApp

; F12::MouseMove(20, 10)

LowLevelMouseProc(nCode, wParam, lParam)
{
	static x_prev, y_prev, stop
	Critical
	CoordMode Mouse, Screen

	if (nCode < 0 || wParam != 0x200 || stop)   ; WM_MOUSEMOVE = 0x200
		Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, UInt, wParam, UInt, lParam)

	x := NumGet(lParam+0, 0), y := NumGet(lParam+0, 4)

	y_prev := (y_prev = "") ? y : y_prev
	x_prev := (x_prev = "") ? x : x_prev

	MouseMove, Round((-x+x_prev)/2), Round((-y+y_prev)/2), 0, R

	; If (abs(x-x_prev)>140 || abs(y-y_prev)>140) { ; ненормальные смещения
	; 	stop := true
	; 	MouseGetPos _x, _y
	; 	OutputDebug % x-x_prev " x=" x ", " y-y_prev " y=" y ". "  x " " y " - " _x " " _y
	; 	ExitApp
	; }
	; Else
		; MouseMove(Round((-x+x_prev)/2), Round((-y+y_prev)/2))

	x_prev := x, y_prev := y
	Return 1
}

MouseMove(x, y) {
	DllCall("mouse_event", UInt, MOUSEEVENTF_MOVE:=0x1, Int, x, Int, y, UInt, 0, Int, 0)
}

#SingleInstance force
#Persistent
#include CLR.ahk
asm := CLR_LoadLibrary("WaitableTimer\WaitableTimer.dll")

wt1 := asm.CreateInstance("WaitableTimer")
MyTimer1 := wt1.Create(Func("Test"), 1)
MyTimer1.Start() ;создаем первый таймер -1мс

loop 
{
++ZX
	if (ZX=1200) ;выдержка 500 мкс (кол-во циклов находим опытным путем)
	{
	ZX:=0
	Break   
	}
}	
wt2 := asm.CreateInstance("WaitableTimer")
MyTimer2 := wt2.Create(Func("Test"), 1)
MyTimer2.Start() ;через 500 микросекунд создаем второй таймер на 1 мс
return

Test(){ ;на выходе получаем частоту обращения в два раза выше(период 500 микросекунд вместо 1мс)
Gosub, s1
}
 
s1:
MouseGetPos, X, Y
if Joy7
{
   if (ABS(OldX-X)>=2)
   dx:=2*(OldX-X)//3
   else
   dx:=0
   
   if (ABS(OldY-Y)>=2)
   dy:=2*(OldY-Y)//3
   else
   dy:=0
   
   if (dx or dy)
   DllCall("mouse_event", uint, 1, int, dx, int, dy, uint, 0, int, 0)
} 
MouseGetPos, OldX, OldY
Return

F1::
SPI_GETMOUSESPEED = 0x70
SPI_SETMOUSESPEED = 0x71
; Retrieve the current speed so that it can be restored later:
DllCall("SystemParametersInfo", UInt, SPI_GETMOUSESPEED, UInt, 0, UIntP, OrigMouseSpeed, UInt, 0)
; Now set the mouse to the slower speed specified in the next-to-last parameter (the range is 1-20, 10 is default):
DllCall("SystemParametersInfo", UInt, SPI_SETMOUSESPEED, UInt, 0, UInt, 3, UInt, 0)
KeyWait F1 ; This prevents keyboard auto-repeat from doing the DllCall repeatedly.
return

F1 up::DllCall("SystemParametersInfo", UInt, 0x71, UInt, 0, UInt, OrigMouseSpeed, UInt, 0) ; Restore the original speed.
return

SetBatchLines -1
#Persistent
SetTimer, s1, 5 

s1:
++DR
if (DR=100)
{
stop:=A_TickCount,DR:=0
dT:=(stop-start)/100
start:=A_TickCount
ToolTip, продолжительность периода=%dT%  
}
Return 

SetBatchLines -1  ; Ensures maximum effectiveness of this method.

SleepDuration = 1  ; This can sometimes be finely adjusted (e.g. 2 is different than 3) depending on the value below.
TimePeriod = 3 ; Try 7 or 3.  See comment below.
; On a PC whose sleep duration normally rounds up to 15.6 ms, try TimePeriod=7 to allow
; somewhat shorter sleeps, and try TimePeriod=3 or less to allow the shortest possible sleeps.

DllCall("Winmm\timeBeginPeriod", uint, TimePeriod)  ; Affects all applications, not just this script's DllCall("Sleep"...), but does not affect SetTimer.
Iterations = 50
StartTime := A_TickCount

Loop %Iterations%
    DllCall("Sleep", UInt, SleepDuration)  ; Must use DllCall instead of the Sleep command.

DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)  ; Should be called to restore system to normal.
MsgBox % "Sleep duration = " . (A_TickCount - StartTime) / Iterations

SetBatchLines -1
SleepDuration:=1,TimePeriod:=3 
DllCall("Winmm\timeBeginPeriod", uint, TimePeriod)
Loop
{ 
DllCall("Sleep", UInt, SleepDuration)  
Gosub, s1
}

s1:
MouseGetPos, X, Y
if GetKeyState("n","P")
{
   If (ABS(OldX-X)>=2)
   dx:=Floor((OldX-X)/2)
   else
   dx:=0
   
   If (ABS(OldY-Y)>=2)
   dy:=Floor((OldY-Y)/2)
   else
   dy:=0
   
   if (dx or dy)
   DllCall("mouse_event", uint, 1, int, dx, int, dy, uint, 0, int, 0)
} 
MouseGetPos, OldX, OldY
return

*n::Return 

#Esc::
DllCall("Winmm\timeEndPeriod", UInt, TimePeriod)
ExitApp