Global $iID_Old, $iCount
HotKeySet('{Esc}', '_Exit')
$iID_Old = MouseGetCursor()
AdlibRegister('_Change_Cursor_Info', 100)
While 1
Sleep(50)
WEnd
Func _Change_Cursor_Info()
Local $i_X, $i_Y, $i_ID_New = MouseGetCursor()
If $iID_Old <> $i_ID_New Then
$iID_Old = $i_ID_New
$iCount += 1
Beep(300, 50)
$i_X = MouseGetPos(0)
$i_Y = MouseGetPos(1)
ToolTip('Курсор изменился: ' & $iCount & @LF & 'В координатах: ' & $i_X & 'x' & $i_Y & @LF & _
'Можно кликать мышкой.', 0, 0)
EndIf
EndFunc ;==>_Change_Cursor_Info
Func _Exit()
Exit
EndFunc ;==>_Exit