Мышь, клавиатура MouseOnEvent - Обработка событии мышки

#include "MouseOnEvent.au3"

$iPaused = False

_MouseSetOnEvent($MOUSE_WHEELDOWN_EVENT, "PausePlay")
Sleep(5000)
_MouseSetOnEvent($MOUSE_WHEELDOWN_EVENT)

Func PausePlay()
	$iPaused = Not $iPaused
	ConsoleWrite("Paused: " & $iPaused & @CRLF)
EndFunc   ;==>PausePlay

#include "MouseOnEvent.au3"

Global $iPrmUp_Event = 0, $iDblClck_Timer = 0
Global $iDblClck_Delay = 300
Global $iDblClck_Event = 0

HotKeySet("^+e", "_Quit")

_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "_PrmUpDwn_Event", 1, "", 0, 0)
_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "_PrmUpDwn_Event", 2, "", 0, 0)

While 1
	Sleep(10)
	
	If $iDblClck_Event Then
		$iDblClck_Event = 0
		
		MsgBox(64, 'Title', 'Primary Mouse Button Double Clicked.')
		;Exit
	EndIf
WEnd

Func _PrmUpDwn_Event($iEvent)
	If $iEvent = 1 Then
		If $iPrmUp_Event = 1 And TimerDiff($iDblClck_Timer) > $iDblClck_Delay Then
			$iPrmUp_Event = 0
			$iDblClck_Event = 0
			$iDblClck_Timer = 0
		EndIf
		
		Return
	EndIf
	
	$iPrmUp_Event += 1
	
	If $iDblClck_Timer = 0 Then
		$iDblClck_Timer = TimerInit()
		Return
	EndIf
	
	If TimerDiff($iDblClck_Timer) > $iDblClck_Delay Then
		$iPrmUp_Event = 0
		$iDblClck_Event = 0
		$iDblClck_Timer = 0
		Return
	EndIf
	
	$iPrmUp_Event = 0
	$iDblClck_Event = 1
	$iDblClck_Timer = 0
EndFunc

Func _Quit()
	Exit
EndFunc

#include <Misc.au3>

HotKeySet('{Esc}', '_Exit')

Global $iCount = 0, _
		$fClick = True, _
		$iDblClick = 0, _
		$iStart = TimerInit()

While 1
	If _DblClick() Then
		_MyFunc()
	EndIf
	Sleep(20)
WEnd

Func _MyFunc()
	$iDblClick += 1
	MsgBox(64, $iDblClick, '2 click', 2)
EndFunc   ;==>_MyFunc

Func _DblClick($iWait = 250, $sKey = '01')
	If _IsPressed($sKey) Then
		If $fClick Then
			$iStart = TimerInit()
			$iCount += 1
			$fClick = False
		EndIf
	Else
		$fClick = True
	EndIf
	If TimerDiff($iStart) >= $iWait Then
		$iCount = 0
		Return False
	EndIf
	If $iCount = 2 Then Return True
EndFunc   ;==>_DblClick

Func _Exit()
	Exit
EndFunc   ;==>_Exit

Func _Hid()
    If Not WinActive($hChild_GUI) Then
        GUISetState(@SW_HIDE, $hGui)
        GUISetState(@SW_SHOW, $hChild_GUI)
		$hMenu = _GUICtrlMenu_GetSystemMenu($hChild_GUI)
		_GUICtrlMenu_DeleteMenu($hMenu, $SC_MOVE, False)
    Else
        GUISetState(@SW_SHOW, $hGui)
        GUISetState(@SW_HIDE, $hChild_GUI)
    EndIf
EndFunc

;;;;;;;;;;;;;;;;;;;;;;;;;

_MouseSetOnEvent($MOUSE_WHEELSCROLLDOWN_EVENT, "_Hid")
_MouseSetOnEvent($MOUSE_WHEELSCROLLUP_EVENT, "_Hid")

;;;;;;;;;;;;;;;;;;;;;;;;

#include "MouseOnEvent.au3"
#include "IsPressedEx.au3"

Global $a__MSG_LastMPos = -1
Global $s__MSG_Buffer = ''

 _MouseSetGesture("{Ctrl}", "Right,Up", "_Gesture_RightUp_Proc")

Sleep(10000)

Func _MouseSetGesture($sModifiers, $sGestures, $sFuncName)
	Local $aParam[3] = [$sModifiers, $sGestures, $sFuncName]
	$a__MSG_LastMPos = MouseGetPos()
	_MouseSetOnEvent($MOUSE_MOVE_EVENT, "__MouseSetGesture_Handler", 0, 0, $aParam)
EndFunc

Func __MouseSetGesture_Handler($iEvent, $aParam)
	Local $aMPos = MouseGetPos()
	Local $sModifiers, $sGestures, $sFuncName
	Local $iGesture_Left, $iGesture_Right, $iGesture_Up, $iGesture_Down
	Local $iMoved_Left, $iMoved_Right, $iMoved_Up, $iMoved_Down
	
	$sModifiers = $aParam[0]
	$sGestures = $aParam[1]
	$sFuncName = $aParam[2]
	
	If $sModifiers <> '' And Not _IsPressedEx($sModifiers) Then
		Return 0
	EndIf
	
	$aSplit_Gesture = StringSplit($sGestures, ',')
	
	$iGesture_Left = (StringInStr($sGestures, 'Left') > 0)
	$iGesture_Right = (StringInStr($sGestures, 'Right') > 0)
	$iGesture_Up = (StringInStr($sGestures, 'Up') > 0)
	$iGesture_Down = (StringInStr($sGestures, 'Down') > 0)
	
	$iMoved_Left = ($aMPos[0] < $a__MSG_LastMPos[0])
	$iMoved_Right = ($aMPos[0] > $a__MSG_LastMPos[0])
	$iMoved_Up = ($aMPos[1] < $a__MSG_LastMPos[1])
	$iMoved_Down = ($aMPos[1] > $a__MSG_LastMPos[1])
	
	$a__MSG_LastMPos = $aMPos
	
	If $iMoved_Left And $iGesture_Left Then
		$s__MSG_Buffer &= 'Left,'
	EndIf
	
	If $iMoved_Right And $iGesture_Right Then
		$s__MSG_Buffer &= 'Right,'
	EndIf
	
	If $iMoved_Up And $iGesture_Up Then
		$s__MSG_Buffer &= 'Up,'
	EndIf
	
	If $iMoved_Down And $iGesture_Down Then
		$s__MSG_Buffer &= 'Down,'
	EndIf
	
	$s__MSG_Buffer = StringRegExpReplace($s__MSG_Buffer, ',+$', '')
	
	For $i = 1 To $aSplit_Gesture[0]
		If Not StringInStr($s__MSG_Buffer, $aSplit_Gesture[$i]) Then
			Return
		EndIf
	Next
	
	$s__MSG_Buffer = ''
	Call($sFuncName)
EndFunc

Func _Gesture_RightUp_Proc()
	ToolTip('<Ctrl + Right-Up> Gesture recieved!')
EndFunc