Печать

[CreatoR [?]]

AutoIt: 3.2.10.0+
Версия: 1.1

Категория: Автоматизация, Хуки

Описание: Расширенная функция _IsPressedEx. Основана на стандартной UDF-функций _IsPressed().

Код/Пример:

Код: AutoIt [Выделить]

#include <IsPressedEx.au3>

HotKeySet("^q", "_Quit")

$hU32_DllOpen = DllOpen("User32.dll")
 
While 1
    ;[QWERT] it's a Group, a set of characters (equivalent to "Q|W|E|R|T")
    ;20 is a hex-value, wich is {Spacebar}.
    $iRet = _IsPressedEx("{CTRL}+S|20|[:ALPHA:]+[:ALLNUM:]|-|=|\|'|;|[QWERT]", $hU32_DllOpen)
   
    If $iRet Then _Output_IsPressedEx_Result($iRet, @Extended)
   
    Sleep(10)
WEnd

Func _Output_IsPressedEx_Result($iRet, $iExtended)
    Local $sKeys = "", $aKeys = StringSplit($iRet, "+")
   
    ;Formate the output
    For $i = 1 To $aKeys[0]
        $sKeys &= "{" & __KeyGetType($aKeys[$i], 0) & "}"
        If $i < $aKeys[0] Then $sKeys &= "+"
    Next
   
    Local $sTT_Data = StringFormat("+ _IsPressedEx Return:\t%s (%s)\n! @Extended code:\t%i (see docs for details)", $iRet, $sKeys, $iExtended)
    ToolTip($sTT_Data)
EndFunc

Func _Quit()
    DllClose($hU32_DllOpen)
    Exit
EndFunc

Файл: IsPressedEx.zip

История версий:

v1.1 (25.03.2010)
+ Теперь функция возвращает hex-код нажатой клавиши (полезно при проверке нескольких клавиш).
* Поправки во внутринних функциях.
* Обновлены примеры.

v1.0 (29.01.2009)
Первая публичная версия.

Источник: _IsPressedEx UDF - Extended _IsPressed function
Автор(ы): G.Sandler (CreatoR)

[zlo-kazan [?]]

Классная библиотека! 

Написал скрипт на её основе который считает eAPM = effective actions per minute. Дословно эффективные действия в минуту. Отличается от APM тем, что не учитывает повторяющиеся клики мыши и нажатия клавиш.
Для геймеров довольно полезная штука.

Код: AutoIt [Выделить]

#include <IsPressedEx.au3>
$apm=0
$TimerAPM = TimerInit()

HotKeySet("^q", "_Quit")


$hU32_DllOpen = DllOpen("User32.dll")
$iRet1 = 0

While 1
    $iRet = _IsPressedEx("[:ALLKEYS:]", $hU32_DllOpen)
    If $iRet Then
        If $iret1 <> $iret then
        $apm +=1
        $iRet1 = $iRet
        EndIf
        ToolTip("eAPM: " & round($APM/(TimerDiff($TimerAPM)/1000/60)),0,0)
        EndIf
    Sleep(10)
WEnd

Func _Quit()
    DllClose($hU32_DllOpen)
        Exit
EndFunc
 

[Yashied [?]]

Совет. После вызова GetAsyncKeyState() лучше проверять системную ошибку, т.к. эта функция не работает при активации некоторых окон UI (UAC и т.д.).

Код: AutoIt [Выделить]

Func __IsPressed($vkCode)

    Local $Ret = DllCall('user32.dll', 'short', 'GetAsyncKeyState', 'int', $vkCode)

    If (@error) Or ((Not $Ret[0]) And (_WinAPI_GetLastError())) Then
        Return SetError(1, 0, 0)
    EndIf
    Return BitAND($Ret[0], 0x8000)
EndFunc   ;==>__IsPressed

[CreatoR [?]]

Yashied  [?]

Совет. После вызова GetAsyncKeyState() лучше проверять системную ошибку

Это ты где нашёл, в библиотеке нет такого. А в оригинальной _IsPressed() проверяется ошибка («If @error Then ...»).

[Yashied [?]]

Это ты где нашёл?

MSDN

А еще, я с этим столкнулся в HotKey UDF. Мы это несколько дней обсуждали на оффициальном форуме с Ascend4nt'ом и KaFu.

А в оригинальной _IsPressed() проверяется ошибка («If @error Then ...»).

Бессмысленно проверять только @error, когда функция и так присутствует во всех поддерживаемых AutoIt'ом версиях Windows. Нужно проверять результат функции.

[Moonsin [?]]

Библиотека не определяет нажатия на Sleep, Wake Up, Power на клавиатуре. Их нажатия как то можно отслеживать?

[Zaramot [?]]

Sleep можно:

Код: AutoIt [Выделить]

HotKeySet('{SLEEP}', '_Sleep')

While 1
    Sleep(100)
WEnd

Func _Sleep()
    MsgBox(0, '', '')
EndFunc

[Moonsin [?]]

Спасибо, работает. А Power и Wake Up никак нельзя?

• inververs
• Nivel
• mr.Gbabak
• winstan
• Kaster
• trizorka
• krizn
• Pasmer
• Александр
• Redline
• Andeangl
• regdef1314
• VKFLIBQIRJKMYBR
• Asshaker
• madmasles
• ivsatel
• r00tbag
• enk
• max999111
• Free_Soft