[VB 6.0] Hot keys

[kevinsoftware]

hallo,

ik ben bezig met een progje aleen wil ik graag hot keys maken bijv als ik de letter a indruk dat het progje sluit.
Het liefst niet op een timer.
PS: het moet werken als ik in een spel ben.

Groetjes kevin

 

[WILLIAMXXX]

PS: het moet werken als ik in een spel ben.

Je bedoelt dat het programma dan zeg maar op de achtergrond bezig is?
Dus dat je bijvoorbeeld met internet explorer bezig bent en je drukt op A dat dan jou ding sluit?

 

[kevinsoftware]

JA

Dat bedoel ik kan dat?

 

[WILLIAMXXX]

Volgens mij kan het niet, het andere programma is dan op de voorgrond en als je dan op A drukt doet die de opdracht die bij het programma zit die op de voorgrond bezig is. En niet van jou ding die bezig is op de achtergrond...

 

[kevinsoftware]

(...) jammer had ik net zo'n zin in een programma bijna af KAN HET NIET :'(

 

[WILLIAMXXX]

Wat wel kan is als jou programma op de voorgrond is en er wordt dan A gedrukt dan kan die zich wel afsluiten...

 

[That Guy]

In feite kan het heel goed in 6.0
Je hebt er een API voor nodig, namelijk "GetAsyncKeyState". Hier's de api:

Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Je kan m nu met een timer checken, en dan bijvoorbeeld zeggen, als de vKey "a" is, het programma exiten.

 

[That Guy]

hier even voorgekauwd (dat wilde je wss ook, api's zijn soms nare dingen):
Form1: plaats een Timer1 met interval = 1

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim btnDown As Boolean
btnDown = GetAsyncKeyState(vbKeyA)
    If btnDown = True Then
        Unload Me
    Else
       'ROCK!
    End If
End Sub