Visual Basic Dersi - Mause'u Ve Klavyeyi Devre Dışı Bırakmak

ads

ads

Vb.Net derslerimize kaldığımız yerden devam ediyoruz. Basit çalışmalarımıza bugün ki dersimiz vb.Net ile bilgisayar girişlerini devre dışı bırakmayı öğreneceğiz.

Forma 1'er tane  Timer ve Command ekleyin.

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çılacak zamanı belirleme: " _ 
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" ) 
End If 
End Sub

ads