VB.NET | Klavye ve Mouse'u Devredışı Bırakmak

Drenated

Legend Member
Joined
Nov 23, 2019
Topics
454
Messages
1,853
Solutions
162
Reaction score
1,523
Visual Basic kullanarak PC'ye girişleri devre dışı bırakabiliriz.

Forma 1'er adet Timer ve Command ekliyoruz.

Code:
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
 

Top