[VB6] การบล็อกเมาส์และคีย์บอร์ด เพื่อไม่ให้สามารถทำงานได้

thongkorn

การเกิดเหตุการณ์ Form_Activate บ่งบอกให้รู้ว่าฟอร์มนั้นๆ ถูก Focus ไปหาเพื่อเริ่มต้นการทำงาน (อีกครั้ง) เราจึงนำเหตุการณ์นี้มาทำการป้องกัน หรือบล็อกอุปกรณ์อินพุท เช่น เมาส์ และ คีย์บอร์ด ได้ด้วยการใช้ Win32 API (Application Programming Interface) ... แบบง่ายมากๆเลยครับพี่น้อง

1. Option Explicit
   
2. 
   
3. Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
   
4. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
5. 
   
6. Private Sub Form_Activate()
   
7.     '// คำสั่ง DoEvents คือ การคืน CPU กลับไปให้กับระบบปฏิบัติการ
   
8.     DoEvents
   
9.    
   
10.     '// บล็อคเมาส ์และ คีย์บอร์ด
    
11.     BlockInput True
    
12.    
    
13.     '// รออีก 5 วินาทีแล้วค่อยปลดการบล็อคออกไป
    
14.     Sleep 5000
    
15.     '// ปลดการล้อคเมาส์ และ คีย์บอร์ด
    
16.     BlockInput False
    
17. End Sub

คัดลอกไปที่คลิปบอร์ด