Author Topic: Если курсор стоит на месте, то ожидание, иначе HALT  (Read 1608 times)

0 Members and 2 Guests are viewing this topic.

Dlmx

  • Зашел в гости
  • *
  • Posts: 9
    • View Profile
Всем программистам добра!

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
« Last Edit: June 03, 2021, 03:07:07 PM by Dlmx »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
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


Dlmx

  • Зашел в гости
  • *
  • Posts: 9
    • View Profile
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 ов, но я исправил и стало работать как часы))