folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Programınız İçerisinden Başlat Menüsünü Açın Kapatın



Programınız İçerisinden Başlat Menüsünü Açın Kapatın

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    holocaust
    holocaust's avatar
    Kayıt Tarihi: 11/Eylül/2005
    Erkek
    Form Üzerine 2 Adet Command Buton Yerleştirin

    Option Explicit
    Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Const KEYEVENTF_KEYUP = &H2
    Private Sub Command1_Click()
    Const hcaust = 92
    keybd_event hcaust, 0, 0, 0
    DoEvents
    keybd_event hcaust, 0, KEYEVENTF_KEYUP, 0
    DoEvents
    End Sub
    Private Sub Command2_Click()
    Const hcaust = 92
    keybd_event hcaust, 0, KEYEVENTF_KEYUP, 0
    DoEvents
    End Sub
    'vbasic ile ilgili Sorularınız için holocaust@w.cn adresine mail atabilirsiniz..
    Holocaust The Late Night Hacker
    Reply With Quote Alıntı yap
Toplam Hit: 1385 Toplam Mesaj: 1