WinControlSetEvent - Обработка событии нажатия на элементы указанного окна

[CreatoR]

AutoIt: 3.3.6.1
Версия: 1.2
Категория: Окна / Элементы управления
Описание: Устанавливает событие для элементов управления определённого окна. Полезно для слежения за нажатием кнопок во внешних приложениях (окнах).

Пример:

Спойлер

#include <WinControlSetEvent.au3>

;============== Calc Demo ==============
;In this example we use the main loop to avoid blocking of mouse processing from inside CalcGetResult_Proc() function.

HotKeySet("^q", "_Quit")

$iGetCalcResults = False

Run("Calc.exe")

If Not WinWait("[CLASS:SciCalc]", "", 3) Then
	Exit
EndIf

For $i = 0 To 9
	_WinControlSetEvent("[CLASS:SciCalc]", String($i), "", "", _
		"_CalcGetResult_Trigger_Proc", "'" & $i & "' Button has been pressed")
Next

_WinControlSetEvent("[CLASS:SciCalc]", "=", "", "", "_CalcGetResult_Trigger_Proc", "'=' Button has been pressed")
_WinControlSetEvent("[CLASS:SciCalc]", "/", "", "", "_CalcGetResult_Trigger_Proc", "'/' Button has been pressed")
_WinControlSetEvent("[CLASS:SciCalc]", "*", "", "", "_CalcGetResult_Trigger_Proc", "'*' Button has been pressed")
_WinControlSetEvent("[CLASS:SciCalc]", "-", "", "", "_CalcGetResult_Trigger_Proc", "'-' Button has been pressed")
_WinControlSetEvent("[CLASS:SciCalc]", "+", "", "", "_CalcGetResult_Trigger_Proc", "'+' Button has been pressed")

;~ _WinControlSetEvent("[CLASS:SciCalc]", "Button28", "", "", "_CalcGetResult_Trigger_Proc", "'X' Button has been pressed")

While WinExists("[CLASS:SciCalc]")
	Sleep(10)
WEnd

;Warning: blocking of this function by window messages with commands such as "Msgbox()" can lead to unexpected behavior,
;the return to the system should be as fast as possible !!!
Func _CalcGetResult_Trigger_Proc($sParams, $hWnd, $nCtrlID)
	ConsoleWrite("Passed params: " & $sParams & @CRLF)
	
	$iGetCalcResults = $nCtrlID
	AdlibRegister("_CalcGetResult_Main_Proc", 1)
EndFunc

Func _CalcGetResult_Main_Proc()
	AdlibUnRegister()
	
	If $iGetCalcResults = 168 Then Exit ;Calc closed
	
	$sCtrl_Data = ControlGetText("[CLASS:SciCalc]", "", $iGetCalcResults)
	
	If $sCtrl_Data = "=" Then
		Local $sResult = StringStripWS(ControlGetText("[CLASS:SciCalc]", "", "Edit1"), 3)
		If StringRight($sResult, 1) = "," Then $sResult = StringTrimRight($sResult, 1)
	
		ToolTip("The result has been calculated: " & $sResult, Default, Default, "Calc Info", 1, 5)
	ElseIf $sCtrl_Data <> "" Then
		ToolTip("Calc Button Pressed: " & $sCtrl_Data, Default, Default, "Calc Info", 1, 5)
	EndIf
EndFunc

Func _Quit()
	Exit
EndFunc

Screenshot: N/A

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

 

[dronet]

вопрос на засыпку
Где взять функцию AdlibEnable и AdlibDisable :whistle:

 

[kaster]

dronet
в последней версии дистрибутива он идет в коробке
facepalm мне

 

[Yashied]

В последних версиях AutoIt, эти функции называются как AdlibRegister() и AdlibUnRegister() соответственно.

 

[dronet]

Это был очень тупой вопрос :wall_brake:
что-то после отпуска за бугром немогу вообше сообразить :'(

 

[Yashied]

Это был очень тупой вопрос...

Полностью согласен.

 

[CreatoR]

Обновил.

 

[madmasles]

CreatoR [?]

Обновил.

Скажите, пожалуйста, кроме AdlibRegister(), AdlibUnRegister(), есть другие обновления? Нет.

 

[werton]

Приветствую, потребовался функционал данной UDF, но к сожалению в windows 7 работает не совсем корректно, все запущенные гуевые приложения после использования функции _WinControlSetEvent зависают при попытке нажатия кнопки свернуть или закрыть. Есть ли какое решение данной проблемы? (проверить можно непосредственно на примере с калькулятором идущем в комплекте)

 

[CreatoR]

werton
Возможно проблема с разницей в битности.
Если система х64, то и скрипт должен запускаться как х64.
На 10-ке у меня всё нормально (за исключением самого примера конечно, калькулятор там сильно изменился :laugh.

 

[smsgeorge]

CreatoR
а как она следит.. мне как раз нужно это, вот пост..

https://autoit-script.ru/index.php?topic=23569.msg135735#msg135735

 

[CreatoR]

smsgeorge [?]

а как она следит

Обычный хук мышки на WM_LBUTTONDOWN/UP.

 

[PopMix]

Как перехватывать нажатие на пункты меню в стандартном Блокноте? Строка состояния (msctls_statusbar321) работает отлично. А с меню никак не получается. Win10 x64

 

[PopMix]

Есть ли способ мониторить UIA Объекты?