´´获得未响应的时间

´´获得未响应的时间 Option Compare Database Option Explicit ''===================================================================== ========== ''获得未响应的时间 开始 Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean Private Declare Function GetTickCount Lib "kernel32" () As Long Private Type LASTINPUTINFO cbSize As Long dwTime As Long End Type Private lii As LASTINPUTINFO Private mytime As Double ''以毫秒作为时间 Private zjs As Long ''正计时 ''获得未响应的时间 结束 ''===================================================================== ========== Private Sub Form_Load() Me.TimerInterval = 1000 ''默认刷新1秒 Me.Label8.Caption = Now() End Sub Private Sub Form_Timer() Me.Label8.Caption = Now() If Me.Text1 > 0 Then lii.cbSize = Len(lii) GetLastInputInfo lii Me.Label9.Caption = lii.dwTime / 1000 Me.Label10.Caption = GetTickCount / 1000 mytime = GetTickCount - lii.dwTime zjs = mytime \ 1000 If zjs = Me.Text1 Then DoCmd.OpenForm "锁定" End If End If End Sub Private Sub Text4_AfterUpdate() Me.TimerInterval = Me.Text4.Value * 1000 End Sub