wats wrong !!!

[useruseronline]

how to detect key up and down events outside form ...

i use this code but it works till c as i use this code for d and other keys it does not work

If GetAsyncKeyState(vbKeyb) <> 0 Then (key down)
Label1.Caption = "b is pressed"
Else
If GetAsyncKeyState(vbKeyB) = 1 Then (key up)
label1.caption= "b is released"
end if
end if



wat to do

[jmsrickland]

You are saying you use that exact code for a, b, and c, even though you are only testing for b and it works for those three letters but stops working at d and beyond?

[Max187Boucher]

i would try something different then If Then Else

Declarations

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const vbKeyB_Released As Integer = 0
Private Const vbKeyB_Up As Integer = 1
Private Const vbKeyB_Down As Integer = -32767

Timer

Select Case GetAsyncKeyState(vbKeyB)
   Case vbKeyB_Down '(key down)
      Label1.Caption = "b is pressed"

   Case vbKeyB_Up, vbKeyB_Released '(key up) (key released)
      Label1.Caption = "b is released"
End Select

and YES YOU CAN use only 0,1,-32767 in the select case which would be alot better

Select Case GetAsyncKeyState(vbKeyB)
   Case Is = -32767 '(key down)
      Label1.Caption = "b is pressed"
 
   Case Is = 0, Is = 1 '(key up) (key released)
      Label1.Caption = "b is released"
End Select

[jmsrickland]

If you look at the post I gave you in your other thread I showed you there how to detect key up so you could get that count problem you had straightened out. You never replied back so I assumed you never went back there.

[seenu_1st]

try this

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function KeyB() As Boolean
KeyB = CBool(GetAsyncKeyState(vbKeyB))
End Function

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If KeyB = True Then
    Label1.Caption = "B Down"
Else
    Label1.Caption = "B Up"
End If
End Sub

[useruseronline]

thanks guys its works but how to implement it for other keys ???

[DataMiser]

The same way as shown and it should work just fine.

Your initial code would not have worked even though you said it did.

If GetAsyncKeyState(vbKeyb) <> 0 Then (key down)
Label1.Caption = "b is pressed"
Else
If GetAsyncKeyState(vbKeyB) = 1 Then (key up)
label1.caption= "b is released"
end if
end if

The part in Red would only execute if the result were 0 but then it tests to see if the result is 1 which it would never be at that point so it would always fail

[jmsrickland]

Last post

http://www.vbforums.com/showthread.php?t=683169

[useruseronline]

try this

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Function KeyB() As Boolean
KeyB = CBool(GetAsyncKeyState(vbKeyB))
End Function

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If KeyB = True Then
    Label1.Caption = "B Down"
Else
    Label1.Caption = "B Up"
End If
End Sub

this code works fine with b but how to implment it for other keys ?? like a down and up c down and up

[seenu_1st]

may i knw what purpose u r doing this?

[useruseronline]

m making a piano type project , when a pressed it will play sound when released it will play echo ...

[seenu_1st]

but why the piano detect keyboard when application not in focus?

[useruseronline]

its like gadget tool in windows 7 if i am on other application if detects keys and plays piano as i type in other application

[DataMiser]

That would be a pretty lame thing to have on a pc, based on previous posts it sounds like you are trying to create an invisible keylogger.

[useruseronline]

if i had to make keylogger i woudnt have asked here its availible at youtube ...

[seenu_1st]

if i had to make keylogger i woudnt have asked here its availible at youtube ...

as per the forum rule, we shuldnt help which is related to keylogger, sorry.

[useruseronline]

ok thanks as u well comforatble

[DataMiser]

if i had to make keylogger i woudnt have asked here its availible at youtube ...

What you are asking for is the basis of a key logger e.g. Capture keypresses outside your app. A logger would save them to a text file or something but regaurdless of what you say you want to do if we showed you how then there would be a sample for others to do key loggers and quite frankly making keys paly a piano sound when I am typing on a forum would be a horrible thing to have installed on a system it would never play a tune just wierd random notes.

Combine what you are asking here with previous posts where you wanted to hide your program from task manager, make it to where the process could not be killed by the user and so on and it sounds like you are trying to write something that would be a violation of the rules and possibly the law.