Drenated
Legend Member
Seviye 10
İlk Paylaşım
Sharer I
Sharer II
Sharer III
İlk Mesaj
İlk Beğeni
İlk Çözüm
Yardımsever
Mentor
Hızlı Yardım
Doğrulanmış Üye
10 Rozet
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.
Kod:
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
