BlockInputEx - Расширенная блокировка мышки и клавиатуры

CreatoR · 25 Сен 2009

AutoIt: 3.2.12.1+
Версия: 1.8

Категория: Мышь и клавиатура

Описание: Позволяет блокировать мышь и клавиатуру в расширенном режиме.
Эта библиотека поддерживает некоторые возможности, которых нет во встроенной BlockInput().
Вот небольшой список возможностей:

Отдельная блокировка мышки и клавиатуры.
Блокировка указанных клавиш/кнопок на клавиатуре/мышке.
+ Кроме Hex-значений, поддерживаются и строковые значение (такие как {ENTER}).
[*]Поддержка списка исключения определённых клавиш/кнопок.
[*]Блокирование клавиш используя т.н «CLASS Name» (см. документацию к библиотеке).
[*]Блокировка ввода для определённого окна.
[*]После нажатия «Ctrl+Alt+Del» ввод пользователя не возобновляется.

Примечание: Данная библиотека, как и встроенная BlockInput, не может блокировать «Ctrl+Alt+Del» (особенность системы Windows), однако при этом ввод пользователя не возобновляется.

Пример №1 - Использование ограничения по заданному(ым) окну(ам):

Код:

#include <BlockInputEx.au3>

;================== hWindows usage Example ==================

HotKeySet("{ESC}", "_Quit") ;Это вызовет выход из скрипта (на любом окне кроме блокнота (см. далее)).

Run(@WindowsDir & "\Notepad.exe", "", @SW_MAXIMIZE)
WinWait("[REGEXPCLASS:Notepad.*]")
$hNotepad_Wnd = WinGetHandle("[REGEXPCLASS:Notepad.*]")

ControlSetText($hNotepad_Wnd, "", "", _
    "Now try to input some keys in here..." & @CRLF & _
    "Well, that's the idea, you can't, don't you?" & @CRLF & @CRLF & ":)")

;Здесь мы блокируем *все* клавишы на клавиатуре для определённого окна (в этом случае окно Блокнота).
_BlockInputEx(3, "", "", $hNotepad_Wnd)

;Это только для отладки, на сллучай если что то нарушится, скрипт завершит свою работу через 10 секунд.
AdlibRegister("_Quit", 10000)

While 1
    Sleep(100)
WEnd

Func _Quit()
    Exit
EndFunc

Пример №2 - Использование классов:

Код:

#include <BlockInputEx.au3>

;================== CLASSes usage Example ==================

HotKeySet("{ESC}", "_Quit") ;Это вызовет выход из скрипта

;Здесь мы блокируем ввод клавиш нумерации, строку "Test" (каждый символ в этой группе), и клавиши стрелок UP / DOWN.
_BlockInputEx(3, "", "[:NUMBER:]|[Test]|{UP}|{DOWN}")

;Это только для отладки, на случай если что то нарушится, скрипт завершит свою работу через 10 секунд.
AdlibRegister("_Quit", 10000)

While 1
    Sleep(100)
WEnd

Func _Quit()
    Exit
EndFunc

Файл: BlockInputEx_UDF_1.8.zip

Источник: CreatoR, http://www.autoitscript.com/forum/index.php?showtopic=87735

VitAl2013 · 10 Ноя 2009

Можно ли отключить все кнопки для любых приложений за исключением того с которым работаем? Зачастую выбор меню осуществляется с первичным нажатием кнопки Alt, затем буквы меню... Но если какое-либо приложение использует Alt как горячую клавишу (например Лингво, сразу мечется чего бы перевести и перехватывает ввод), то возникают проблемы. ControlSend при этом не является панацеей (Лингво всё равно куда Alt отправляют).

CreatoR · 10 Ноя 2009

VitAl2013 [?]

Можно ли отключить все кнопки для любых приложений за исключением того с которым работаем?

Да, можно сделать такой трюк:

Код:

#include <BlockInputEx.au3>

HotKeySet("{ESC}", "_Quit") ;This will trigger an exit (on the Notepad's window).

Global $iMark = 0

Run(@WindowsDir & "\Notepad.exe", "", @SW_MAXIMIZE)
WinWait("[REGEXPCLASS:Notepad.*]")
$hNotepad_Wnd = WinGetHandle("[REGEXPCLASS:Notepad.*]")

_BlockInputEx(3)

;This is only for testing, so if anything go wrong, the script will exit after 10 seconds.
AdlibEnable("_Quit", 10000)

While 1
	If $iMark = 0 And WinActive($hNotepad_Wnd) Then
		$iMark = 1
		_BlockInputEx(0)
	ElseIf $iMark = 1 And Not WinActive($hNotepad_Wnd) Then
		$iMark = 0
		_BlockInputEx(3)
	EndIf
	
    Sleep(10)
WEnd

Func _Quit()
	Exit
EndFunc

VitAl2013 · 22 Янв 2010

Как теперь заставить работать её в парралель с основным текстом программы?

Проверка происходит при переключении окна по средствам while, но там программа и крутиться (между while и wend). То есть я не могу дописать мои Send или ControlSend ни до ни после while. Так? Какже мне отправлять хотябы ("!f") в ноутпад?

И это получается своего рода просто проверка на то какое окно выбрано. Нужного блока не происходит. Происходит не "блок посылки нажатий в другие приложения", а "блок нажатий при неправильно выбраном окне". То есть если окно выбрано правильное Лингво всё равно чувствует Alt и перехватаывает нажатие.

ТО что у меня получилос:

Код:

#include <BlockInputEx.au3>

HotKeySet("{ESC}", "_Quit")

Global $iMark = 0

WinActive ("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
WinWaitActive ("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
$hTarget_Wnd = WinGetHandle("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
MsgBox (0, "WinGetHandle", $hTarget_Wnd, 2)
_BlockInputEx(3)

_check() ;тут происходит именно проверка
   ;а тут блок снимается и делай всё что хошь - всем (любой программе) всё позволено
WinWaitActive ("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
MsgBox (0, "Active", "Window was selected", 2)
Send("!f")
Sleep(1000)

Func _check()
While 1
    If $iMark = 0 And WinActive($hTarget_Wnd) Then
        $iMark = 1
        _BlockInputEx(0)
    ElseIf $iMark = 1 And Not WinActive($hTarget_Wnd) Then
        $iMark = 0
        _BlockInputEx(3)
    EndIf

   ExitLoop ;если тут не сделать выход то программа бесконечно крутится между while и wend
WEnd
EndFunc

MsgBox (0, "Exitloop", "done", 2)
Exit

Func _Quit()
    Exit
EndFunc

CreatoR · 22 Янв 2010

VitAl2013 [?]

Как теперь заставить работать её в парралель с основным текстом программы?

А что именно должно выполняться?

ТО что у меня получилос:

Цикл тогда вовсе не нужен:

Код:

#include <BlockInputEx.au3>

HotKeySet("{ESC}", "_Quit")

Global $iMark = 0

$hTarget_Wnd = WinGetHandle("[REGEXPTITLE:(Active).*Pro/ENGINEER]")
WinActive($hTarget_Wnd)
WinWaitActive($hTarget_Wnd)
MsgBox(0, "WinGetHandle", $hTarget_Wnd, 2)

;Тут блокируем только если окно не активно

If Not WinActive($hTarget_Wnd) Then
     _BlockInputEx(3)
Else
     MsgBox (0, "Active", "Window was selected", 2)
     Send("!f")
     Sleep(1000)
     MsgBox (0, "Exit", "done", 2)
EndIf

Exit

Func _Quit()
    Exit
EndFunc

VitAl2013 · 22 Янв 2010

А что именно должно выполняться?

Программа-оператор должна работать по средствам хоткеев программы-цели с программой-целью и дочерними окнами программы-цели, обходя хоткеи других программ. Другими словами - выбираем программу и работаем по ней Send'ами. Всё должно попасть в цель.

Программа оператор многокнопочная и многофункциональная. Код проверки-доступа должен быть либо повторяющейся функцией, либо работать как параллельная функция, в примерах пока фигурирует только единожды повторяющаяся проверка.

Думаю можно былобы соорудить какойнить SendEx(а, б) в который вкладывать проверку-блокиратор на определённую программу (а) и необходимое послание которое надо передать цели(б).

Или изменить подход и блокировать хоткеи всех программ кроме выбраной.

И ещё момент... Вот мы кинули Сэндом в программу, а получила ли она его? Есть способ узнать? ПРинимается любой вариант, даже через Пиксельсёч. Есть вероятность что в самый неподходящий момент начнёт работать антивирус и затормозит программу-цель, а программа-оператор продолжит метать Сэдали незная этого.

CreatoR · 22 Янв 2010

VitAl2013
С описания увы почти ничего не понял, но если я всё же хоть что то понял :wacko:, то вот некое решение:

Код:

_BlockInputEx(3)

;......

_SendUnBlock("[REGEXPTITLE:(Active).*Pro/ENGINEER]", "!f")

Func _SendUnBlock($sTitle, $sSend)
	_BlockInputEx(0)
	SendKeepActive($sTitle)
	Send($sSend)
	_BlockInputEx(3)
EndFunc

VitAl2013 · 26 Янв 2010

В принцыпе да, но что происходит:

Код:

_BlockInputEx(3) ;блокируем всё и вся

;......

_SendUnBlock("[REGEXPTITLE:(Active).*Pro/ENGINEER]", "!f")

Func _SendUnBlock($sTitle, $sSend)
    _BlockInputEx(0) ;тут идёт разблокирование и Лингво приспокойно снова ловит нажатия Альта (Лингво их ловит из бэкграунда и ему не обязательно быть активным)
    SendKeepActive($sTitle) ;полезная вещь, но Лингво всё равно какое актно активно, точнее ему бы и надо чтоб было активное окно не его
    Send($sSend) ;мы ведь отправляем "!f", что значит Alt+f, Лингво ловит Альт и начинает искать что ему перевести.
    _BlockInputEx(3)
EndFunc

В итоге мы не далеко ушли от простого блока клавишь и нажатий.

CreatoR · 26 Янв 2010

VitAl2013
Я не пойму проблему. Функция отключает блокировку на время посылания клавиш, и затем снова включает.

Проблема в отправке Alt+F? тогда такой вопрос - какая раскладка клавиатуры в системе по умолчанию?

VitAl2013 · 27 Янв 2010

какая раскладка клавиатуры в системе по умолчанию

Раскладка стандартная для Windows XP.

Функция отключает блокировку на время посылания клавиш, и затем снова включает.

Да действительно - это так и есть. Но она включает и выключает её для всех программ сразу, а не только конкретно для какой-то.

CreatoR · 27 Янв 2010

VitAl2013 [?]

Раскладка стандартная для Windows XP

Русская или Английская, или ещё какая?

Но она включает и выключает её для всех программ сразу, а не только конкретно для какой-то

Так это на долю секунды, на время выполнения команды Send.

VitAl2013 · 27 Янв 2010

на долю секунды

Для лингво этого достаточно. Он уже поймал Альт на себя и в программу которую надо он не попал, а только попал оставшийся "f".
Если тоже самое организовать со стандартным BlockInput то чем они будут отличаться?

Русская или Английская, или ещё какая?

Ааа... Язык раскладки какой? Могут быть оба, но на что это влияет?
Я было подумал Мак-102-104-фонетическая или вообще не qwerty раскладка.

CreatoR · 28 Янв 2010

VitAl2013
Теперь я совсем запутался :wacko:.

Перечитал твой вопрос с начала, и вроде прояснилась ситуация - тебе нужно заблокировать ALT для лингво, т.е иметь возможность обойти его и всё же посылать куда нужно сочетание «Alt+i», или я ошибаюсь? если нет, то BlockInput тут не поможет, тут нужно либо изменить клавишу в лингво, либо найти другой метод открывать меню (вместо ALT'а).

VitAl2013 · 28 Янв 2010

Во... примерно к этой мысли я и веду. Тоесть нельзя с помощью этой библиотеки блокировать хоткеи других программ.

Вопрос изначально и был:

Можно ли отключить все кнопки для любых приложений за исключением того с которым работаем?

Ответ: нет, нельзя. Так как мы включаем и отключаем клавиши только для всех приложений сразу или для заранее известных приложений.

Мне надо найти не "другой метод открывать меню" (так как я нашёл давно их, и они меня не устраивают), а действительно альтернативный способ передачи нажатий клавиш в программу.

CreatoR · 28 Янв 2010

VitAl2013 [?]

Вопрос изначально и был:
Цитата

Можно ли отключить все кнопки для любых приложений за исключением того с которым работаем?

Нажмите, чтобы раскрыть...

Ответ: нет, нельзя.

Ответ как раз можно, я это показал в своём примере, просто твой вопрос был немного неправилен для твоей задачи ;)

альтернативный способ передачи нажатий клавиш в программу

ControlSend? но это уже в другую тему.

CreatoR · 3 Авг 2010

Обновление.

[v1.4 - 03.08.2010, 12:00]
+ Поддержка AutoIt 3.3.6.1.
* Исправлена проблема с залипанием клавиш "Alt + Ctrl" после вызова "Alt + Ctrl + Del". Кроме прочего, это вызывало проблемы дальнейшего использования HotKeySet.
* Исправлены примеры для совместимости с AutoIt 3.3.6.1.
* Мелкие косметические поправки в коде.

CreatoR · 3 Авг 2010

Мелкое fix-обновление («проблема с залипанием клавиш "Alt + Ctrl"») для тех (того?) кто успел скачать последнюю версию. Номер версии остался тот же.

WSWR · 11 Сен 2010

А для определенного окна можно блокировать нажатия\отжатия мыши? Попробовал - с клавиатурой без проблем, с мышью - блокирует для всех окон или не блокирует вообще.

CreatoR · 11 Сен 2010

Re: BlockInputEx - Расширенная блокировка мышки и

WSWR

WSWR сказал(а):
А для определенного окна можно блокировать нажатия\отжатия мыши? Попробовал - с клавиатурой без проблем, с мышью - блокирует для всех окон или не блокирует вообще.

Покажи как пробовал.

WSWR · 11 Сен 2010

Re: BlockInputEx - Расширенная блокировка мышки и

CreatoR сказал(а):
Покажи как пробовал.

Код:

#include <BlockInputEx.au3>
Run(@WindowsDir & "\Notepad.exe", "", @SW_RESTORE)
WinWait("Безымянный — Блокнот")
$hNotepad_Wnd = WinGetHandle("Безымянный — Блокнот")
ControlSetText($hNotepad_Wnd, "", "", _
	"Now try to input some keys in here..." & @CRLF & _
	"Well, that's the idea, you can't, don't you?" & @CRLF & @CRLF & ":)")
_BlockInputEx(2, "", "", $hNotepad_Wnd)
While 1
    Sleep(100)
WEnd

В принципе, работает, но следующим образом: если окно блокнота становится активным, то мышь блокируется на всем экране, если же с помощью клавиатуры активизировать другое окно, то мышь начинает работать. Подстановка в функцию {MPDOWN}, {MPUP} и т.д. не меняет поведение скрипта
Изначально цель была запретить нажатия кнопок мыши в этом окне, чтобы его нельзя было перемещать, закрывать и т.д.

Автор темы	Похожие темы	Форум	Ответы	Дата
A	_BlockInputEx иногда пропускает нажатие мыши	Баг-репорты и запросы на новые функции	0	18 Фев 2018
M	Исключение в _BlockInputEx	Общие вопросы по AutoIt	0	31 Авг 2017
S	не работает _BlockInputEx	Баг-репорты и запросы на новые функции	2	5 Мар 2016
	Перенесено: [Мышь, клавиатура] blockinputex не работает в fps игре, вероятно проблема в directInput	Разработка ботов	0	6 Авг 2014
R	[Мышь, клавиатура] blockinputex не работает в fps игре, вероятно проблема в directInput	Общие вопросы по AutoIt	2	5 Авг 2014

BlockInputEx - Расширенная блокировка мышки и клавиатуры

Must AutoIt!

Вложения

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

VitAl2013

Гость

Must AutoIt!

Must AutoIt!

Must AutoIt!

AutoIT Гуру

Must AutoIt!

AutoIT Гуру