مدت زمان غیرفعال بودن ویندوز

[m@hd!iiiiiii]

دوستان سلام .
می خواستم بدونم چه جوری میشه مدت زمانی که ویندوز غیرفعال هست رو فهمید . منظورم از غیرفعال بودن ویندوز اینه که موس تکون نخوره و در کیبورد دکمه ای فشرده نشه .
تو سایت خیلی جستجو کردم ولی به نتیجه ای نرسیدم .
ممنون میشم اگه کسی راهنمایی ام کنه .

[www.pc3enter.tk]

می تونم بپرسم این تکنیک را برای چه کاری می خواهید انجام دهید
تا من بتوانم بهتر کمکتان بکنم؟

[m@hd!iiiiiii]

راستش دوست عزیز در حال کامل کردن برنامه ای هستم که باید از لحاظ امنیتی کامل باشه . می خوام بعد از مدتی که ویندوز غیرفعال شد ، Clipboard رو خالی کنه و برنامه رو قفل کنه طوری که بره توی قسمت لاگین کردن .
می خوام اگه بشه از دستوری استفاده کنم که خروجی زمان به من بده (زمانی که از غیرفعال شدن ویندوز می گذره) تا من بتونم طبق مدت زمان گذشته دستوراتی را اجرا کنم .:لبخندساده:

[Fery666]

دوست عزیز این کار شمارو راه میندازه .

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





Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type

Private Sub Timer1_Timer()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Call GetLastInputInfo(lii)
With Label1
.Caption = FormatNumber((GetTickCount() - lii.dwTime) / 1000, 2)
.Refresh
End With
If Label1.Caption = "10.00" Then
MsgBox time
End If
End Sub

[m@hd!iiiiiii]

خیلی ممنون دوست عزیز برنامه کار کرد حتی نیاز به داشتن Focus هم نداشت .