۲۳-مرداد-۱۳۸۹, ۱۴:۲۹:۴۳
۲۳-مرداد-۱۳۸۹, ۱۸:۳۷:۱۹
چه زبانی عزیزم
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
این با وی بی هست تست نزدم ولی اونوقتا کار میکرد
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
این با وی بی هست تست نزدم ولی اونوقتا کار میکرد