مدت زمان ایستان موس در هر جایی از دسکتاپ ؟؟؟؟

[alishademan]

با سلام به دوستان می خواستم یه کمک کنید می خوام مدت زمان ایستادن موس رو توی صفحات به دست بیارم برفرض مثال اسکرین سیور ویندوز رو در نظر بگیرید اگر نشانگر موس 60 ثانیه یک جا بایستد اسکرین سیور کار می کند حالا من می خوام اگر نشانگر موس 60 ثانیه وایستاد یه پیام ظاهر شه همین

با تشکر

[pcdownload.bloghaa.com]

سلام داداش
یه تایمر رو فرم بزار و کد زیر را بنویس:


Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim p As Long
Dim a As POINTAPI
Dim b As POINTAPI
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
GetCursorPos a
If a.x = b.x And a.y = b.y Then
p = p + 1
Else
b.x = a.x: b.y = a.y
p = 0
End If
If p = 60 Then
MsgBox "XYZ"
End If
End Sub