VB ile Klavye ve Mouse'u Devredışı Bırakmak

[alimania]

Ayyıldız2 | 2008 TR Yapısı • 1-99 Orta Emek Destan • Oto Avsız • 10 Temmuz 21:00 HEMEN TIKLA!

Visual Basic kullanarak PC'ye girişleri devre dışı bırakabiliriz.

Forma 1'er adet Timer ve Command ekliyoruz.

Option Explicit   Private Declare Function BlockInput Lib "user32" (ByVal fBlock _  As Long ) As Long   Const API_FALSE = 0&  Const API_TRUE = 1&   Private Sub Command1_Click( )  Timer1.Interval = 500  Timer1.Enabled = True  Call BlockInput(API_TRUE )  End Sub   Private Sub Timer1_Timer( )  Static Cnt As Long   Cnt = Cnt + 1  If Cnt > 10 Then  Cnt = 0  Timer1.Enabled = False  Call BlockInput(API_FALSE )  Label1.Caption = ""  Else  Label1.Caption = "Açılması İçin Kalan Zaman: " _  & Format$(CStr((10 - Cnt ) ) / 2, "0.0" )  End If  End Sub