ограничение нажатия левой кнопки мыши

[kalpak44]

Дарова ребята.. есть вопрос - можно ли средствами автоита реализовать программку, которая бы ограничивала число нажатия левой кнопки мыши, то есть нужно запретить тройной клик.

 

[CreatoR]

kalpak44 [?]

можно ли средствами автоита реализовать программку, которая бы ограничивала число нажатия левой кнопки мыши, то есть нужно запретить тройной клик.

Можно, см. библиотеку MouseOnEvent.

 

[kalpak44]

кодик и благодарчик

#include <Misc.au3>
#include "MouseOnEvent.au3"

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

If (Not FileRead("settings.ini")) Then
IniWrite("settings.ini","options", "time","2000")
IniWrite("settings.ini","options", "click","2")
EndIf


Global $time = IniRead("settings.ini","options", "time","2000")
Global $Click = IniRead("settings.ini","options", "click","2")


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

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

Func _MyFunc()
    $iDblClick += 1
    _MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT, "__Dummy")
	_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT, "__Dummy")
;~ 	_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT, "__Dummy")
;~ 	_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT, "__Dummy")
	Sleep($time)
	_MouseSetOnEvent($MOUSE_PRIMARYUP_EVENT)
	_MouseSetOnEvent($MOUSE_PRIMARYDOWN_EVENT)
;~ 	_MouseSetOnEvent($MOUSE_SECONDARYUP_EVENT)
;~ 	_MouseSetOnEvent($MOUSE_SECONDARYDOWN_EVENT)
	
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 = $Click Then Return True
EndFunc   ;==>_DblClick

Func _Exit()
    Exit
EndFunc   ;==>_Exit