Visual basic 6 ile tuş kombinasyonu kullanmak

10 saniye içinde BYFATALWAR yazdığınızda programı çağırır

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

Dim tustakip1, tustakip2, tustakip3, tustakip4, tustakip5, tustakip6, tustakip7, tustakip8, tustakip9
Dim onsaniyelikcookie
Dim tus

Private Sub Kombinasyon_Timer()
For i = 0 To 300
If GetAsyncKeyState(i) = -32767 Then
tus = Chr(i)
Exit For
End If
Next i

If onsaniyelikcookie > 59 Then
onsaniyelikcookie = onsaniyelikcookie - 59
End If

If onsaniyelikcookie = Second(Now) Then
tustakip1 = 0
tustakip2 = 0
tustakip3 = 0
tustakip4 = 0
tustakip5 = 0
tustakip6 = 0
tustakip7 = 0
tustakip8 = 0
tustakip9 = 0
End If

If tus = "B" And tustakip1 <> 1 Then
tustakip1 = 1
onsaniyelikcookie = Second(Now) + 10
ElseIf tus = "Y" And tustakip1 = 1 Then
tustakip2 = 1
ElseIf tus = "F" And tustakip2 = 1 Then
tustakip3 = 1
ElseIf tus = "A" And tustakip3 = 1 Then
tustakip4 = 1
ElseIf tus = "T" And tustakip4 = 1 Then
tustakip5 = 1
ElseIf tus = "A" And tustakip5 = 1 Then
tustakip6 = 1
ElseIf tus = "L" And tustakip6 = 1 Then
tustakip7 = 1
ElseIf tus = "W" And tustakip7 = 1 Then
tustakip8 = 1
ElseIf tus = "R" And tustakip8 = 1 Then
tustakip9 = 1
ElseIf tus = "R" And tustakip9 = 1 Then
Kombinasyon.Enabled = false
onsaniyelikcookie = Second(Now)
MsgBox "Kombinasyon"
End If
End Sub