Author Topic: Альт+таб после нажатия мыши  (Read 3983 times)

0 Members and 1 Guest are viewing this topic.

Dimka4369

  • Освоившийся
  • **
  • Posts: 29
    • View Profile
Альт+таб после нажатия мыши
« on: January 02, 2022, 06:56:10 PM »
Здравствуйте! Помогите пожалуйста написать следующий скрипт:
1. Никакие клавиши не нажаты
2. Зажата левая кнопка мыши - ничего не происходит (может быть зажата от 50 мс до минуты)
3. Левую кнопку мыши "ОТПУСТИЛИ" - нужно нажать Alt + Tab и спустя примерно 100 мс нажать кнопку "T" (англ.)
Ну и далее по кругу.
Заранее спасибо!

4.У.В.@.К

  • Активный участник
  • ***
  • Posts: 117
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #1 on: January 12, 2022, 07:22:56 PM »
Code: (clickermann) [Select]
WHILE(ISKEYDOWN(1))
   DEFINE($var,1)
   WAITMS(30)
END_CYC

IF($var)
   UNDEFINE($var)
   KEYDOWN(#ALT)
   WAITMS(5)
   KEYPRESS(#TAB)
   KEYUP(#ALT)
   WAITMS(100)
   KEYPRESS(#T)
END_IF

WAITMS(30)

Иван_Васильевич

  • Освоившийся
  • **
  • Posts: 72
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #2 on: January 12, 2022, 11:57:48 PM »
 К сожалению, скрипт неверный, игнорируется первая проверка заданная автором темы
1. Никакие клавиши не нажаты
 предложенный скрипт будет работать и при  уже нажатых клавишах.
 да и нажатия Alt + Tab он будет делать постоянно если не зажата левая кнопка мыши, а не как указал автор срабатывать только после отпускания.
 да и писать нужно (ISKEYDOWN(1)=1)
 В общем, Работайте Братья, над ошибками! ;)
« Last Edit: January 13, 2022, 12:03:59 AM by Иван_Васильевич »

dramster

  • Герой форума
  • *****
  • Posts: 1134
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #3 on: January 13, 2022, 12:17:24 AM »
Да не, все верно  ::), скрипт рабочий и должен выполнять  то что спрашивал автор темы.

Иван_Васильевич

  • Освоившийся
  • **
  • Posts: 72
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #4 on: January 13, 2022, 03:53:31 PM »
остаюсь при своём мнении, Скрипт однозначно извращённый, хоть и реагирует на ЛКМ.
 Если настолько нестандартные решения, втюхивать начинающим пользователям только и умеющим нажимать кнопку записи своих действий, то никакого толка от готовых решений лежащих на форуме вообще не будет. :o

Иван_Васильевич

  • Освоившийся
  • **
  • Posts: 72
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #5 on: January 13, 2022, 04:10:23 PM »
2. Зажата левая кнопка мыши - ничего не происходит (может быть зажата от 50 мс до минуты)
Этот пункт задания тоже не реализован, по чётко заданному автором темы промежутку времени от 50 мс до минуты, видимо по тому что сам автор не указал, что должно происходить при нарушении описанного им условия. :-\

4.У.В.@.К

  • Активный участник
  • ***
  • Posts: 117
    • View Profile
Re: Альт+таб после нажатия мыши
« Reply #6 on: January 13, 2022, 09:59:11 PM »
писать нужно (ISKEYDOWN(1)=1)

Вот тесты на скорость выполнения условий IF, записанные по-разному. Вариант написания пусть каждый выбирает для себя сам...

Code: (clickermann) [Select]
WAITMS(500)

$count = 1000 // количество повторений тестов

// 1 вариант //--------------------------------
$t = $_ms
FOR($n = 0, $n < $count)
   IF(1 = 1) // Зачем сравнивать истину с истиной? Вот ЭТО и есть извращение. :)
      //
   END_IF
END_CYC
$a = $_ms - $t
LOGWRITE ("1 вариант: ", $a, "ms")

// 2 вариант //--------------------------------
$t = $_ms
FOR($n = 0, $n < $count)
   IF(1) // принимаем истину без сравнений
      //
   END_IF
END_CYC
$b = $_ms - $t
LOGWRITE ("2 вариант: ", $b, "ms")

// Итог //--------------------------------
$ms = $a - $b
$percent = ROUND($ms*100/$a, -2)
LOGWRITE ("Разница в скорости: ", $ms, "ms", " (", $percent, "%", ")")
LOGWRITE (------------)
HALT

Для вариантов с IF(ISKEYDOWN(1)=1) и IF(ISKEYDOWN(1)) разница в скорости не так ощутима, но она там тоже есть.

2. Зажата левая кнопка мыши - ничего не происходит (может быть зажата от 50 мс до минуты)
Этот пункт задания тоже не реализован, по чётко заданному автором темы промежутку времени от 50 мс до минуты, видимо по тому что сам автор не указал, что должно происходить при нарушении описанного им условия. :-\

Действительно, этот пункт "задания", задан не чётко. И я тут не выкатываю готовое решение. Немного подсказал, показал свой вариант, и всё. Претензии не принимаю.  ;D

И вообще, насчет заданий - сказано же:  ;D
Биржевую цену на нужный, Вам скрипт укажите и дополнительные требования  к работе  8)

У кого есть желание, может написать скрипт лучше моего и не столь извращенный.  :)