VB ile Klavye ve Mouse'u Devredışı Bırakmak

[ravex]

Visual Basic kullanarak PC'ye girişleri devre dışı bırakabiliriz.

Forma 1'er adet Timer ve Command ekliyoruz.

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

 

[Nazdravia]

Yararlı+++

 

[Rooster]

Güzel teşekkürler.