HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
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
