Option Explicit
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, _
ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long
Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Window_bul As Long
Public zaman As Integer
Public Task_Manager_baslik As String
Public Sub zamanlama(ByVal lhwnd As Long, _
ByVal uMsg As Long, _
ByVal idEvent As Long, _
ByVal dwTime As Long)
Window_bul = FindWindow(vbNullString, Task_Manager_baslik)
If Window_bul > 0 Then
SendKeys "%{F4}", True
Form1.SetFocus
BlockInput True
End If
End Sub
' FORMA YAPIŞTIRIN
Private Sub Form_Load(Cancel As Integer)
Task_Manager_baslik="Windows Görev Yöneticisi"
End Sub
Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hwnd, 0
End Sub
Private Sub Command1_Click()
zaman= 0
SetTimer Me.hwnd, 0, 50, AddressOf zamanlama
Timer1.Enabled = True
BlockInput True ' klavye ve fareyi disabled et
End Sub
Private Sub Timer1_Timer()
zaman=zaman+ 1
If zaman = 10 Then
' BlockInput False 'klavye ve fare kilidini kaldır
KillTimer Me.hwnd, 0
'-----------------------------------------------
Timer1.Enabled = False
End If
End Sub
blockinput apisiyle bilgisayara olan klavye ve fare girişleri kapatılır. Fakat Alt + Tab  ctrl + escape
'windows tuşları iptal edilebilmesine karşın disabled modu CTRL +ALT + DELETE tuş kombinasyonu basılınca
' Taskmanager (taskmgr.exe) nin çalışmasıyla ortadan kalkıyor.
'Modül içina yazdığım kodda bu işe yarıyor. Windows Görev Yöneticisi çalışmaya başlayınca
'bu pencere başlık isminden yakalanıyor ve
'send keys alt +f4 kombinasyonu gönderilerek taskmanager kapatılıyor ve blockinput True komutu verilerek tekrardan kilit moduna geçiliyor.
|
aldığımız palaşım siterine teşşekürler
Hiç yorum yok:
Yorum Gönder