If _IsPressed("any_key") Then ..

[Hello Me You]

Is it possible to make to do this?

[SmOke_N]

Is it possible to make to do this?

Of course

[jvanegmond]

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1
    Sleep ( 250 )
    If _IsPressed("23", $dll) Then
        MsgBox(0,"_IsPressed", "End Key Pressed")
        ExitLoop
    EndIf
WEnd
DllClose($dll)

[xcal]

#include <Misc.au3>

$dll = DllOpen("user32.dll")

While 1
    Sleep ( 250 )
    If _IsPressed("23", $dll) Then
        MsgBox(0,"_IsPressed", "End Key Pressed")
        ExitLoop
    EndIf
WEnd
DllClose($dll)

Ya... that's what he was looking for...

[SmOke_N]

Ya... that's what he was looking for...

Guess it was really hard to find (Considering that's the exact copy of the example in the help file )

[xcal]

I'm being sarcastic. It's pretty obvious what he's looking for, and that wasn't it.

Edited March 1, 2007 by xcal

[Hello Me You]

I still can't find it.... Any suggestions?

[xcal]

You can't find the "any key?"

[Bert]

ummm....where is the "any key" on the keyboard? That is what you are asking..right?

Otherwise....are you asking for when whatever key is pressed, you get a report on that key? If the later is what you want, what you are asking for is a keylogger. and that is a

[therks]

Maybe he's just looking to check for keyboard input to end a screensaver or something like that, just to test for idle time? If that's the case I'm currently using something like this in a screensaver I made:

Dim $i_LastActive = _LastActive()
While 1
     If $i_LastActive <> _LastActive() Then ExitLoop
     Sleep(100)
WEnd

Func _LastActive($v_User32Dll = 'user32.dll')
    Local $str_LastInput = DllStructCreate('uint;dword')
    DllStructSetData($str_LastInput, 1, DllStructGetSize($str_LastInput))
    DllCall($v_User32Dll, 'int', 'GetLastInputInfo', 'ptr', DllStructGetPtr($str_LastInput))

    Return DllStructGetData($str_LastInput, 2)
EndFunc

This is a modified version of a function that Gary once wrote. I don't have the original anymore though.

[magician13134]

Another simple way to to just use a for loop, like

For $i = 1 to 100

If _IsPressed(hex($i)) Then MsgBox(0, "Something", "Something else"

Next

You may need to strip the hex string of the 0x...

[Hello Me You]

You can't find the "any key?"

ummm....where is the "any key" on the keyboard? That is what you are asking..right?

Otherwise....are you asking for when whatever key is pressed, you get a report on that key? If the later is what you want, what you are asking for is a keylogger. and that is a

I want if ANY key ("a" or "b" or "c" or "d" or "e" or other keys...) do something

[nitekram]

I want if ANY key ("a" or "b" or "c" or "d" or "e" or other keys...) do something

You are not going to get help like that - what you are asking for is a keylogger, look it up via search and you will see why.

[BrettF]

You are not going to get help like that - what you are asking for is a keylogger, look it up via search and you will see why.

What about the ocasional program that says "Press any key to Continue"?? Where did he say he wanted to log the key that was pressed? All i can see he wants is If any key (a, b, c, d, e, f, g...) was press, do something. I will admit it looks slightly suss though.....

[magician13134]

I think you guys need to stop being so suspicious, if he wanted a keylogger, he would just download one, not write it! And besides, who cares if he does want to write one, that's his choice!

#Include <misc.au3>

While 1

GUIGetMsg()

For $i = 1 to 94

If _IsPressed(Hex($i)) Then MsgBox(0, "Key press!", "You pressed key number: " & $i)

Next

WEnd

Hope that's what you wanted

Edited March 9, 2007 by magician13134

[amel27]

Maybe he's just looking to check for keyboard input to end a screensaver or something like that, just to test for idle time? If that's the case I'm currently using something like this in a screensaver I made

Hm-m... may be my edition with tow functions more flexible for screensavers:

expandcollapse popup

#include <Date.au3>

$IdleMinimum = 5000 ; Minimum inactivity in seconds

While 1
    $iIdle = _IdleWaitStart ($IdleMinimum)
    ConsoleWrite (_Now () & ' ' & @UserName & ' already inactive ' & _TickToTimeString ($iIdle) & @CRLF)
    $iIdle = _IdleWaitCommit($IdleMinimum)
    ConsoleWrite (_Now () & ' ' & @UserName & ' inactivity amounts to ' & _TickToTimeString ($iIdle) & @CRLF)
Wend

Func _TickToTimeString ($iTicks)
    Local $iHours, $iMins, $iSecs, $sText = ''
    _TicksToTime  ($iTicks, $iHours, $iMins, $iSecs)
    If $iHours Then $sText = $iHours & ' hours '
    If $iMins  Then $sText = $sText & $iMins & ' minutes '
    If $iSecs  Then $sText = $sText & $iSecs & ' seconds'
    If $sText = '' Then $sText = 'less than second'
    Return $sText
EndFunc

; Wait for starting user inactivity
; Return inactivity time in milliseconds
; $idlesec - minimum inactivity period in milliseconds
Func _IdleWaitStart ($idlesec)
    Local $aRet, $iSave, $iTick, $LastInputInfo = DllStructCreate ("uint;dword")
    DllStructSetData ($LastInputInfo, 1, DllStructGetSize ($LastInputInfo))
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
    Do
        Sleep(200)
        $iSave= DllStructGetData ($LastInputInfo, 2)
        DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
        $aRet = DllCall ("kernel32.dll", "long", "GetTickCount")
    Until ($aRet[0] - DllStructGetData ($LastInputInfo, 2))> $idlesec
    Return $aRet[0] - DllStructGetData ($LastInputInfo, 2)
EndFunc

; Wait for ending user inactivity
; Return inactivity time in milliseconds
; $idlesec - minimum inactivity period in milliseconds
Func _IdleWaitCommit ($idlesec)
    Local $iSave, $LastInputInfo = DllStructCreate ("uint;dword")
    DllStructSetData ($LastInputInfo, 1, DllStructGetSize ($LastInputInfo))
    DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
    Do
        $iSave = DllStructGetData ($LastInputInfo, 2)
        Sleep(200)
        DllCall ("user32.dll", "int", "GetLastInputInfo", "ptr", DllStructGetPtr ($LastInputInfo))
    Until (DllStructGetData ($LastInputInfo, 2)-$iSave) > $idlesec
    Return DllStructGetData ($LastInputInfo, 2)-$iSave
EndFunc

[therks]

And besides, who cares if he does want to write one, that's his choice!

It may be his choice, but he won't get help on how to make it here.

http://www.autoitscript.com/forum/index.php?showtopic=14632

[Vindicator209]

of course noone cares if he makes a keylogger, it just makes AutoIt look bad...lol

[Hello Me You]

I think you guys need to stop being so suspicious, if he wanted a keylogger, he would just download one, not write it! And besides, who cares if he does want to write one, that's his choice!

#Include <misc.au3>

While 1

GUIGetMsg()

For $i = 1 to 94

If _IsPressed(Hex($i)) Then MsgBox(0, "Key press!", "You pressed key number: " & $i)

Next

WEnd

Hope that's what you wanted

Yes, thanks! That was exactly what I wanted.

[Bert]

could you explain what you plan to do with this?