مشاوره : مقدار زمان استفاده نکردن از نرم افزار

[mohsen_iceman2000]

سلام ، ایا راهی هست که بشه فهمید چه مقدار ساعتی کاربر از نرم افزار استفاده نکرده


مثل ScreenSaver ویندوز که اگر به ماوس بر اساس تنظیم ( مثلا 5 دقیقه ) دست نزنید screensaver اجرا می شه
می خوام مثلا کاربر اگر دست به ماوس نزد طبق یه تنظیم یه formlock فعال بشه !!

دوستان کمک می کنند

[meys34]

سلام ، ایا راهی هست که بشه فهمید چه مقدار ساعتی کاربر از نرم افزار استفاده نکرده


مثل ScreenSaver ویندوز که اگر به ماوس بر اساس تنظیم ( مثلا 5 دقیقه ) دست نزنید screensaver اجرا می شه
می خوام مثلا کاربر اگر دست به ماوس نزد طبق یه تنظیم یه formlock فعال بشه !!

دوستان کمک می کنند

برای اینکه گفتید کاربر با برنامه کار نکنه من فکر میکنم بسته به برنامه ای که نوشتید میشه براش با استفاده از تایمر درست کرد...

ولی برای موس، این کار میکنه یعنی اگر کاربر مثلا 2 ثانیه دست نزنه یه پیغام میده...

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type

Dim Pos As POINTAPI, Lpos As POINTAPI

Private Sub Form_Load()
Timer1.Interval = 2000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
GetCursorPos Pos
If Pos.X <> Lpos.X Or Pos.Y <> Lpos.Y Then
Lpos.X = Pos.X: Lpos.Y = Pos.Y
Else
MsgBox "salam"
End If
End Sub

[mohsen_iceman2000]

اینجوری سرعت نرم افزار میاد پایین - چون از تایمر داریم استفاده می کنیم

[meys34]

اینجوری سرعت نرم افزار میاد پایین - چون از تایمر داریم استفاده می کنیم

اتفاقا برعکس چون تابع api تایمر از interrupt استفاده میکنه اصلا cpu درگیر نمیشه...