这是一款橡烂实用的桌面工具(Gadget)、本软件的主要功能游如搏就是用来测试鼠标、测试鼠标按键速度和最大速度以及滑行速神祥度等重要参数!对于对鼠标要求很高的高端电竞玩家和绘图设计人员非常有用。这款鼠标按键测试软件适用于win7和vista系统。
其实不用Hook,也不用模块掘饥腔,检查系统闲置时间已有专用函数,不必这么复杂。完整代码如下肢纯:
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
Dim lii As LASTINPUTINFO
Private Sub Form_Load()
Timer1.Interval = 1000
lii.cbSize = Len(lii)
End Sub
Private Sub Timer1_Timer()
If GetLastInputInfo(lii) Then
If (GetTickCount - lii.dwTime) / 60000 >= 15 Then
Shell "shutdown.exe -s -t 180"
Call MsgBox("由于本机15分钟没有 *** 作,如果3分钟后没有反判衫应,系统将强制关机", vbYesNo + vbExclamation + vbDefaultButton2, "提示")
End If
End If
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)