folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Winkeyi Programınız Çalıştığı Sürece Kilitleyin



Winkeyi Programınız Çalıştığı Sürece Kilitleyin

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    holocaust
    holocaust's avatar
    Kayıt Tarihi: 11/Eylül/2005
    Erkek
    Ya Captain Claw Oyununu Oynuyom
    Klavyemin tuşları birbirine çok yakın olduğundan zırt pırt
    winkey'e basıyodum yanlışlıkla.. sonra oyun hata veriyodu
    çaresine bakmak lazım dedim :D
    kodlar aşağıda umarım işinize yarar
    form1'in keypreview özelliğini true yapın

    Private Const VK_H = 72
    Private Const KEYEVENTF_KEYUP = &H2
    Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 91 Or KeyCode = 92 Then
    keybd_event VK_H, 0, 0, 0
    keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0
    End If
    End Sub
    'Sorularınız için holocaust@w.cn adresine mail atabilirsiniz..
    Holocaust The Late Night Hacker
    Reply With Quote Alıntı yap
Toplam Hit: 1355 Toplam Mesaj: 1