[Мышь, клавиатура] как сделать что бы скрипт работал при зажатой клавише и не работал при отжатии

[Sejan]

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

Func pixel( $aColors )
    Local $Idx, $aResult

    While 1
        For $Idx = 1 To $aColors[0][0] Step 1
            $aResult = PixelSearch( 0, 0, 1920, 1080, $aColors[$Idx][0], $aColors[$Idx][1] )
            If Not @error Then MouseClick("left", $aResult[0], $aResult[1], 1, 0)
        Next
    WEnd
EndFunc


Global $aColors[5][2] = [ [4], [ 0x000000, 1 ], [ 0x000000, 0 ], [ 0x0000000, 0 ], [ 0x000000, 0 ] ]
pixel( $aColors )

 

[joiner]

Re: [Мышь, клавиатура] как сделать что бы скрипт работал при зажатой клавише и не работал при отжат

по быстрому так

Спойлер

#include <Misc.au3>



Global $hDLL = DllOpen("user32.dll")
Global $aColors[5][2] = [ [4], [ 0x000000, 1 ], [ 0x000000, 0 ], [ 0x0000000, 0 ], [ 0x000000, 0 ] ]

While 1
	If _IsPressed(12, $hDLL) Then pixel( $aColors )
	If _IsPressed('1B', $hDLL) Then Exit
	Sleep(10)
WEnd

Func pixel( $aColors )
    Local $Idx, $aResult

    While 1
		If Not _IsPressed(12, $hDLL) Then Return
        For $Idx = 1 To $aColors[0][0] Step 1
			If Not _IsPressed(12, $hDLL) Then Return
            $aResult = PixelSearch( 0, 0, 1920, 1080, $aColors[$Idx][0], $aColors[$Idx][1] )
            If Not @error Then MouseClick("left", $aResult[0], $aResult[1], 1, 0)
        Next
    WEnd
EndFunc

если по-другому то так
есть и другие примеры на форуме

 

[Sejan]

Re: [Мышь, клавиатура] как сделать что бы скрипт работал при зажатой клавише и не работал при отжат

Огромное спасибо