Vb.Net Klavye ve Mouse'u Devredışı Bırakmak

ads

ads

Vb.Net Dersi Bilgisayarınıza girişleri engellemeye yarayan bir program yapacağız. Klavye ve Mouse devre dışı bırakan programı öğreneceğiz.

Forma eklemeniz gereken araçlar;
1 tane Timer
1 tane Command



kodlama;

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 = "kalan zaman gösteriliyor: " _ 
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" ) 
End If 
End Sub

ads