از کار انداختن مواس و صفحه کلید

[kimiafars]

چه زبانی عزیزم

---

Private Declare Function BlockInput Lib "user32.dll" (ByVal fblock As Long) As Long
Private Declare Function SleepEx Lib "kernel32" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long

Private Sub Form_Load()
Do
BlockInput True
SleepEx 1000, False
Loop While (1)
End Sub

---

این با وی بی هست تست نزدم ولی اونوقتا کار میکرد