ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 1571|ตอบกลับ: 0

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

[คัดลอกลิงก์]

232

กระทู้

328

โพสต์

2744

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2744

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

  2. Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
  3. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

  4. Private Sub Form_Activate()
  5.     '// คำสั่ง DoEvents คือ การคืน CPU กลับไปให้กับระบบปฏิบัติการ
  6.     DoEvents
  7.    
  8.     '// บล็อคเมาส ์และ คีย์บอร์ด
  9.     BlockInput True
  10.    
  11.     '// รออีก 5 วินาทีแล้วค่อยปลดการบล็อคออกไป
  12.     Sleep 5000
  13.     '// ปลดการล้อคเมาส์ และ คีย์บอร์ด
  14.     BlockInput False
  15. End Sub
คัดลอกไปที่คลิปบอร์ด

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-6-1 14:29 , Processed in 0.472026 second(s), 4 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้