Question

用VB编写一个自动关机程序

就是在WINDOWS 有一段时间没操作就关机的那种程序
在线等
能有诠释吗？
尤其是前面的那几段
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
能帮我诠释下这些代码吗

Answer 1

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 >= 10 Then '10分钟没操作立即关机
Shell "shutdown -s"
End If
End If
End Sub

Answer 2

Private
Declare
Sub
Sleep
Lib
"kernel32"
(ByVal
dwMilliseconds
As
Long)
Private
Sub
Command1_Click()
Me.WindowState
=
1
Sleep
5000
'5秒后再执行下面关机语句，时间自己改
Shell
"shutdown
-S
-t
0"
End
Sub