Автокликер Clickermann :: Форум

Основной раздел => Общие вопросы => Topic started by: Dlmx on June 03, 2021, 03:00:46 PM

Title: Если курсор стоит на месте, то ожидание, иначе HALT
Post by: Dlmx on June 03, 2021, 03:00:46 PM

Всем программистам добра!

Code: (clickermann) [Select]

$HWND = HGET($_xmouse,$_ymouse)
$sx = $_xmouse
$sy = $_ymouse

// Если курсор стоит на месте, то в ожидании. При нажатии на ALT срабатывает LCLICK($sx,$sy). Если курсор сдвинулся хотя бы на пиксель, то HALT и ALT уже не запускает продолжение скрипта.

IF($sx = $_xmouse)
   IF($sy = $_ymouse)
      WHILE(iskeydown(#ALT)=0)
         WAITMS(20)
      END_CYC
      WHILE(iskeydown(#ALT)=1)
         WAITMS(20)
      END_CYC
      WAITMS(20)
      LCLICK($sx,$sy)
   END_IF
END_IF

Title: Re: Если курсор стоит на месте, то ожидание, иначе HALT
Post by: Vint on June 03, 2021, 03:17:17 PM

Code: (clickermann) [Select]

$sx = $_xmouse
$sy = $_ymouse
WHILE(($sx = $_xmouse) & ($sy = $_ymouse))
    IF(ISKEYDOWN(#ALT) = 1)
        LCLICK($sx, $sy)
        WHILE(ISKEYDOWN(#ALT) = 1)
            WAITMS(20)
        END_CYC
    END_IF
    WAITMS(20)
END_CYC
HALT

Title: Re: Если курсор стоит на месте, то ожидание, иначе HALT
Post by: Dlmx on June 03, 2021, 08:38:58 PM

Quote from: Vint on June 03, 2021, 03:17:17 PM

Code: (clickermann) [Select]

$sx = $_xmouse
$sy = $_ymouse
WHILE(($sx = $_xmouse) & ($sy = $_ymouse))
    IF(ISKEYDOWN(#ALT) = 1)
        WAITMS(300)
        LCLICK($sx, $sy)
        WAITMS(20)
        WHILE(ISKEYDOWN(#ALT) = 1)
            WAITMS(20)
        END_CYC
    END_IF
    WAITMS(20)
END_CYC
HALT

Очень благодрен за ответ!!! Спасибо!!!
Была небольшая ошибка, не хватало Walt ов, но я исправил и стало работать как часы))