玩酷之家

 找回密码
 立即注册
查看: 207|回复: 0

VB 鼠标键盘10分钟无操作自动关机

[复制链接]
发表于 2021-1-8 17:03:09 | 显示全部楼层 |阅读模式
一个检查系统闲置时间的例子,程序运行时,当电脑键盘和鼠标10分钟无操作的时候,执行关机命令。
  1. Option Explicit
  2. Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
  3. Private Declare Function GetTickCount Lib "kernel32" () As Long
  4. Private Type LASTINPUTINFO
  5.     cbSize As Long
  6.     dwTime As Long
  7. End Type
  8. Dim lii As LASTINPUTINFO

  9. Private Sub Form_Load()
  10.     Timer1.Interval = 1000
  11.     lii.cbSize = Len(lii)
  12. End Sub

  13. Private Sub Timer1_Timer()
  14.     If GetLastInputInfo(lii) Then
  15.         If (GetTickCount - lii.dwTime) / 60000 >= 10 Then '10分钟没操作立即关机
  16.             Shell "shutdown -s"
  17.         End If
  18.     End If
  19. End Sub
复制代码


回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号 )

GMT+8, 2021-4-22 11:11 , Processed in 1.076402 second(s), 17 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表