Question

怎样用VB获取系统不响应时间（就是鼠标键盘无动作）？

如题
想做个1小时鼠标键盘无动作，自动关机的程序。。。

Windows的屏保里面的电源管理 有问题。无法使用这功能，自己想做一个，实现这个功能。

Answer 1

' 获得鼠标和键盘动作的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
' 如果当前时间与开始监视时间超过3,600,000 Ms 则关机.
If (GetTickCount - StopTime) >= (60 * 60 * 1000) Then
Call ExitWindowsEx(EWX_LOGOFF Or EWX_FORCE Or EWX_SHUTDOWN, 0)
End If
End If

End Sub

窗体上有个Timer控件，Name:Timer1
刚写的，2000 server + vb6.0 测试通过

Answer 2

下个钩子，然后不停的捕捉 键盘和鼠标事件
如果1个小时没捕捉到
关机

Answer 3

啊哦。我最近也在想这个问题耶。也没有想出什么办法。如果你有什么办法告诉我声哦。先谢谢了。QQ：289335023
感觉要用MouseMove吧。。。好好想想。