求一个VB检测鼠标键盘无操作自动关机脚本

求一个VB检测鼠标键盘无操作自动关机脚本

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追问是直接复制文本吗？保存成什么格式？追答vb的格式.追问首先谢谢你，但是没成功，希望您详细点，我对这个一点都不懂

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息