前端之家收集整理的这篇文章主要介绍了
VB 鼠标键盘无操作锁屏，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
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 原文链接：https://www.f2er.com/vb/258076.html
