VB 鼠标键盘无操作锁屏

发布时间：2020-12-17 07:56:48 所属栏目：百科来源：网络整理

导读：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 Lon

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!