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.
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