Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Dlmx

Pages: [1]
1
Общие вопросы / Re: Задержка в KEYSTRING
« on: December 03, 2021, 11:48:44 AM »
Code: (clickermann) [Select]
KEYSTRING("Всё очень просто", 75)
https://youtu.be/V3rjtOR27CU

Интересно, а возможно для реалистичности сделать так, чтобы задержка между буквами была рандомной?

Это даёт странный результат:
Code: (clickermann) [Select]
WAITMS(500)
KEYSTRING("9037678567", RND(50,1150))
HALT
Задержка разная при каждом запуске скрипта, но одинаковая при каждом наборе новой буквы. Можно конечно сделать каждую строчку под каждую букву и между строчками ставить рандомное время на задержку, но это очень длинный скрипт получается.

2
Заходишь в сам текстовый файл / сохранить как / внизу меняешь кодировку с UTF-8 на ANSI / Сохранить

3
Virtualbox.

Друзья, обнаружил проблему, что на виртуалках функция GETSCREEN работает через раз. Если нажать ожидание картинки, то обнаружит картинку через минуту. Через нормальную винду работает норм и видит сразу, но к сожалению, работа выполняется через виртуалки.

Что можно сделать?

4
Здравствуйте! Очень прошу помочь.

Скопированный текст:
$adr = Антона Петрова, 63
$adr = Нарымская, 20
$adr = Гоголя, 43Б
И т.д.

Нужно разделить, чтобы было так в переменной:
$uliz = Антона Петрова
$dom = 63

$uliz = Нарымская
$dom = 20

$uliz = Гоголя
$dom = 43Б

Code: (clickermann) [Select]
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#C)
KEYUP (#CTRL)
WAITMS (50)
$adr = FROMCLIP()
WAITMS (50)
// разделение на 2 переменной, улица и номер дома
WAITMS (50)
LCLICK(103,153)  // Клик в поле, куда улицу вводить
WAITMS (50)
TOCLIP($uliz)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS (50)
LCLICK(1224,604)  // Клик в поле, куда вводить номер дома
WAITMS (50)
TOCLIP($dom)
WAITMS (50)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
HALT

5
Code: (clickermann) [Select]
// Клики в строку сообщения

TOCLIP("Текст")
WAITMS (10)
KEYDOWN (#CTRL)
WAITMS (50)
KEYPRESS (#V)
KEYUP (#CTRL)
WAITMS (50)

// Скрипт отправляет сообщение

6
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 ов, но я исправил и стало работать как часы))

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

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

9
Здравствуйте!

Помогите пожалуйста! Измучился! Не понимаю, как сделать!

Если открыто и развёрнуто окно "MicroSIP - 131", то проигрывается скрипт:

Code: (clickermann) [Select]
IF(WNDFIND("MicroSIP - 131"), 1)
   WNDGETINFO(WNDFIND("MicroSIP - 131"), $var1, $var2, $var3, $var4) // Собирает информацию об окне
   WAITMS(10)
   LCLICK($var1+121, $var2+312)     // Нажать на кнопку
   WAITMS(20)
   WNDSTATE(WNDFIND("MicroSIP - 131"), 0) // Свернуть MicroSip
   WAITMS(20)
END_IF

Если окно свёрнуто, но открыто, то WAITMS(20)

С данным скриптом если окно развёрнуто, всё работает хорошо!
Если окно свёрнуто, оно кликает по координате, якобы окно развернуто! В итоге кликает не туда.

Pages: [1]