BlockInput( ) Apisi sayesinde fare ile klavyeyi, sistem disi birakip yeniden eski haline getirebiliyoruz.
Kod Alanı: |
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 = "Eski Hal İcin Kalan Zaman: " _
& Format$(CStr((10 - Cnt ) ) / 2, "0.0" )
End If
End Sub |
|
|