Что нового

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

Sejan

Новичок
Сообщения
3
Репутация
0
Добрый день. Нужно сделать что бы этот скрипт начинал работать при зажатой клавише и переставал работать когда клавиша не зажата
Код:
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

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
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

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

Sejan

Новичок
Сообщения
3
Репутация
0
Re: [Мышь, клавиатура] как сделать что бы скрипт работал при зажатой клавише и не работал при отжат

Огромное спасибо :smile:
 
Верх