27-02-13, 03:57 PM
01-03-13, 03:18 AM
كود اخفاء واظهار الموس
PHP كود :
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Command1_Click()
ShowCursor 0 'إخفاء مؤشر الفأرة
End Sub
Private Sub Command2_Click()
ShowCursor 1 'اظهار مؤشر الفأرة
End Sub
01-03-13, 03:26 AM
ايقاف عمل لوحة المفاتيح والفاره
PHP كود :
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
'block the mouse and keyboard input
BlockInput True
'wait 10 seconds before unblocking it
Sleep 10000
'unblock the mouse and keyboard input
BlockInput False
End Sub