IsPressed_UDF ! v2.3 | Advanced keypress

[MrCreatoR]

@MrCreator

What do you mean about change general main function ? __KeyPressCheck ?

Cheers, FireFox.

I mean the whole concept. Instead of using many functions, let's make only one, _IsPressedEx(), and use classes and hex/string keys. For Or operation we will use «|», and for And operation we use «+». Simple

[FireFox]

@MrCreator

Func _IsPressedEx($sHexKey, $param)
If $param = '+' Then
If _IsAndKeyPressed($sHexKey) Then Return 1
ElseIf $param = '-' Then
If _IsOrKeyPressed($sHexKey) Then Return 1
EndIf
Return 0
EndFunc

Not tested.

Cheers, FireFox.

[MrCreatoR]

@MrCreator

Func _IsPressedEx($sHexKey, $param)
If $param = '+' Then
If _IsAndKeyPressed($sHexKey) Then Return 1
ElseIf $param = '-' Then
If _IsOrKeyPressed($sHexKey) Then Return 1
EndIf
Return 0
EndFunc

Not tested.

Cheers, FireFox.

No, i meant the whole functions, it's a little bit (?) complicated than this. Check the PM .

[Paulie]

I think it should be changed it _IsWheelKeyScroll()

"Whell" is an annoying typo

[FireFox]

@Paulie

Ops... sorry im not english

I will change it in new version, thanks

Cheers, FireFox.

[FireFox]

Version 2.1 Available (see top post with update code)

Note : Changed Whell word to Wheel

Be careful to change function to _IsWheelKeyScrool

Cheers, FireFox.

Edited February 1, 2009 by FireFox

[syntech]

Version 2.1 Available (see top post with update code)

Note : Changed Whell word to Wheel

Be careful to change function to _IsWheelKeyScrool

Cheers, FireFox.

Hello,

some keys did not work because the search for the hex key was not corret. I've fixed it for $Type == 0 (and adjusted to text to be all uppercase, I didn't like the case-mismatch).

However, this is my first post so I hope I made no mistakes by posting this here.

CODE

Func __GetKeyType($iKeyIn, $Type = 0)

If $iKeyIn = '' Then Return -1

Local $s_String = '|01LEFT MOUSE|02RIGHT MOUSE|04MIDDLE MOUSE|05X1 MOUSE|06X2 MOUSE|08BACKSPACE|09TAB|0CCLEAR|' & _

'0DENTER|10SHIFT|11CTRL|12ALT|13PAUSE|14CAPS LOCK|1BESC|20SPACEBAR|21PAGE UP|22PAGE DOWN|' & _

'23END|24HOME|25LEFT|26UP|27RIGHT|28DOWN|29SELECT|2APRINT|2BEXECUTE|2CPRINT SCREEN|2DINS|2EDEL|' & _

'300|311|322|333|344|355|366|377|388|399|41A|42B|43C|44D|45E|46F|47G|48H|49I|4AJ|4BK|4CL|4DM|4EN|

' & _

'4FO|50P|51Q|52R|53S|54T|55U|56V|57W|58X|59Y|5AZ|5BLEFT WINDOWS|5CRIGHT WINDOWS|60NUM 0|61NUM 1|' & _

'62NUM 2|63NUM 3|64NUM 4|65NUM 5|66NUM 6|67NUM 7|68NUM 8|69NUM 9|6AMULTIPLY|6BADD|' & _

'6CSEPARATOR|6DSUBTRACT|6EDECIMAL|6FDIVIDE|70F1|71F2|72F3|73F4|74F5|75F6|76F7|77F8|78F9|' & _

'79F10|7AF11|7BF12|7CF13|7DF14|7EF15|7FF16|80HF17|81HF18|82HF19|83HF20|84HF21|85HF22|' & _

'86HF23|87HF24|90NUM LOCK|91SCROLL LOCK|A0LEFT SHIFT|A1RIGHT SHIFT|A2LEFT CTRL|A3RIGHT CTRL|' & _

'A4LEFT MENU|A5RIGHT MENU|BA;|BB=|BC,|BD-|BE.|BF/|C0`|DB[|DC\|DD]|'

If $Type == 0 Then

Local $s_Key = '|' & $iKeyIn

$s_Key = StringTrimLeft($s_String, (StringInStr($s_String, $s_Key) + StringLen($s_Key) - 1))

$s_String = StringLeft($s_Key, (StringInStr($s_Key, '|') - 1))

ElseIf $Type == 1 Then

$iKeyIn = StringLeft($s_String, StringInStr($s_String, $iKeyIn) - 1)

$s_String = StringTrimLeft($iKeyIn, StringInStr($iKeyIn, '|', 2, -1))

EndIf

If $s_String <> '' Then

Return $s_String

EndIf

Return -1

EndFunc ;==>__GetKeyType

[butji]

is there any way to determine if it should react on up or downscrolling? because as i see it, it just reacts the same to all types of wheelscroll.

[Ashalshaikh]

ThankYou

Very Nice ....

[playlet]

---

Edited August 18, 2016 by playlet

[MrCreatoR]

How can you use this to detect when some key has been released?

While _IsPressed()

WEnd

;Released :)

[playlet]

---

Edited August 18, 2016 by playlet

[MrCreatoR]

I already know that. Just thought there was some other way to do it.

Using _IsPressedEx():

#include <IsPressedEx_UDF.au3>

$hU32_DllOpen = DllOpen("User32.dll")

While 1
    $iRet = _IsPressedEx("[:ALLKEYS:]", $hU32_DllOpen, 1, 1)
    
    If $iRet Then
        $sRet_Data = StringFormat("_IsPressedEx Return:\t%s", $iRet)
        
        MsgBox(64, 'Return', $sRet_Data)
        
        Exit DllClose($hU32_DllOpen)
    EndIf
    
    Sleep(50)
WEnd

[playlet]

---

Edited August 18, 2016 by playlet

[FireFox]

Version 2.2 Available (see top post with update code)

Note : Added OnAutoItExitRegister function

[bobbby]

How do i use this inspressed udf, too work with mouseclick counting?

I don't want too use "hotkeyset".

I tested this first, but got like 300 directly.

It's really suck the original _ispressed(), because i don't know how to check when the key is released.

#include <IsPressed_UDF.au3>
global $h

While 1
    If _IsMouseKeyPressed() Then
        $h = $h +1
        consolewrite($h & @crlf)
    EndIf
WEnd

Edited May 10, 2010 by bobbby

[Melba23]

bobbby,

It's really suck the original _ispressed(), because i don't know how to check when the key is released.

Just wait until the _IsPressed is no longer true:

#include <Misc.au3>

$iCount = 0

$dll = DllOpen("user32.dll")

While 1

    ; Wait for left mouse click
    If _IsPressed("01", $dll) Then

        ; Increase count
        $iCount += 1
        ConsoleWrite($iCount & @CRLF)

        ; Wait until the mouse buton is released
        While _IsPressed("01", $dll)
            ; Save the CPU!
            Sleep(10)
        WEnd

    EndIf

    ; Save the CPU!
    Sleep(10)

WEnd

I imagine the same sort of code will work with the UDF too.

M23

[bobbby]

bobbby,

Just wait until the _IsPressed is no longer true:

I imagine the same sort of code will work with the UDF too.

M23

Ah, thanks for the help.

Btw, how do i make like a function, too use many keys?

Do i need to add arrays or how do i do it?

Edited May 11, 2010 by bobbby

[Melba23]

bobbby,

Please repost your question on the General forum. The Mods will get understandably annoyed if we hijack the Examples Section!

M23

[TheSaint]

Version 2.1 Available (see top post with update code)

Note : Changed Whell word to Wheel

Be careful to change function to _IsWheelKeyScrool

Cheers, FireFox.

I take it we all know you mean't --> _IsWheelKeyScroll