VB 无键盘鼠标操作锁屏

最新推荐文章于 2021-07-26 16:28:18 发布

写一辈子程序

最新推荐文章于 2021-07-26 16:28:18 发布

阅读量1.3k

点赞数

分类专栏： VB

本文链接：https://blog.youkuaiyun.com/u013414461/article/details/25127805

版权

这篇博客介绍了如何使用VB编写程序，在检测到一定时间内无键盘鼠标操作后自动进行屏幕锁定。通过调用GetLastInputInfo API函数获取最后的用户输入时间，并在指定时间（例如3分钟）内没有检测到新的输入时，显示警告消息并停止计时。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Dim IOInfo As LASTINPUTINFO

Dim LngBak As Long
Dim LngCnt As Long
Dim LngEnd As Long '停止时间,分钟

Private Sub Form_Load()
LngEnd = 3

LngCnt = 0
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
'
Private Sub Timer1_Timer()
IOInfo.cbSize = Len(IOInfo)
Call GetLastInputInfo(IOInfo)
If LngBak <> IOInfo.dwTime Then
LngBak = IOInfo.dwTime
LngCnt = 0
End If
LngCnt = LngCnt + 1
If LngCnt = LngEnd Then
Timer1.Enabled = False
MsgBox "到时间了！", vbOKOnly, "Info"
End If
End Sub

最低0.47元/天解锁文章