Başlangıç > Kodlar > Visual basic 6 ile tuş kombinasyonu kullanmak

Visual basic 6 ile tuş kombinasyonu kullanmak

10 saniye içinde tdsoftware 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 = "T" And tustakip1 <> 1 Then
tustakip1 = 1
onsaniyelikcookie = Second(Now) + 10
ElseIf tus = "D" And tustakip1 = 1 Then
tustakip2 = 1
ElseIf tus = "S" And tustakip2 = 1 Then
tustakip3 = 1
ElseIf tus = "O" And tustakip3 = 1 Then
tustakip4 = 1
ElseIf tus = "F" And tustakip4 = 1 Then
tustakip5 = 1
ElseIf tus = "T" And tustakip5 = 1 Then
tustakip6 = 1
ElseIf tus = "W" And tustakip6 = 1 Then
tustakip7 = 1
ElseIf tus = "A" And tustakip7 = 1 Then
tustakip8 = 1
ElseIf tus = "R" And tustakip8 = 1 Then
tustakip9 = 1
ElseIf tus = "E" And tustakip9 = 1 Then
Kombinasyon.Enabled = false
onsaniyelikcookie = Second(Now)
MsgBox "Kombinasyon"
End If
End Sub
Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: