Visual Basic FAQ

Как мигнуть Num Lock’ом?
Многие начинающие программисты, хотят научиться — это делать.
Чтобы напакостить своим друзьям!
Ну и в чем же проблема?

Option Explicit
Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14

Public Sub Num()
Call keybd_event(VK_NUMLOCK, 0, 0, 0)
Call keybd_event(VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0)
End Sub

Public Sub Scroll()
Call keybd_event(VK_SCROLL, 0, 0, 0)
Call keybd_event(VK_SCROLL, 0, KEYEVENTF_KEYUP, 0)
End Sub

Public Sub Caps()
Call keybd_event(VK_CAPITAL, 0, 0, 0)
Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Sub Form_Load()
Timer1.Interval = 100
Me.Visible = False
End Sub

Private Sub Timer1_Timer()
Num
Scroll
Caps
End Sub

Запись опубликована on 13.12.2008 at 9:02 и размещена в рубрике: Клавиатура. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.