如何实现电脑闲置5分钟,实现退出windows系统!

再次求教!因为我的电脑设置为5分钟闲置就自动上锁,别人想用电脑就用不了了,要用就只能是管理员或强行关机再开机,我想实现电脑闲置为4分59秒就log off当前用户,以放便别人用自己的ID登陆

[ 本帖最后由 yuk_yu 于 2009-8-27 09:43 编辑 ]

用TIMER和SHELL，最简单

5分鐘鎖定桌面就可以搞定了

但要是闲置哦,也就是只要有任何动作就重新计时,鼠标或键盘有任何动作就重新开始计时!可否给个实例?谢谢

[ 本帖最后由 yuk_yu 于 2009-8-27 11:59 编辑 ]

'获得鼠标和键盘动作的Api
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Type LASTINPUTINFO
    cbSize   As Long
    dwTime   As Long
End Type
' 获得当前时间 单位为毫秒
Private Declare Function GetTickCount Lib "kernel32" () As Long

' 控制系统关机的Api
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_SHUTDOWN = 1
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Dim mEvent      As LASTINPUTINFO
Dim StopTime    As Long     ' 鼠标和键盘，开始无动作的时间
Dim PrvEvent    As Long     ' 上一次鼠标或者键盘的状态

Private Sub Timer1_Timer()
    mEvent.cbSize = Len(mEvent)
   
    GetLastInputInfo mEvent
    Debug.Print mEvent.dwTime
    ' 判断鼠标和键盘的状态，如果状态改变，则重新设置监视时间，保存当前状态
    If mEvent.dwTime <> PrvEvent Then
        PrvEvent = mEvent.dwTime
        StopTime = GetTickCount
    Else
        
        If (GetTickCount - StopTime) >= (60 * 100) Then
        MsgBox "系统已经有六秒没有动作了", , "提示"
             End If
    End If
   
End Sub

LZ可以用下面这个贴子的方式关闭Windows2000或XP操作系统。。
https://bbs.bccn.net/viewthread.php?tid=283903&extra=page%3D1&frombbs=1