Question

VB自动关机代码！

我想做个自动关机软件！就是选择combobox里设置好的时间自动关机！代码怎么写！请高手指点下！谢谢~VB代码
如图！

Answer 1

设置一个timer，设置interval 为1，combobox要输入列如12:20
然后输入代码
private sun timer1_timer()
if combox1=Format(Time, "hh:mm") then call shutdown
end sub

Public Sub AdjustToken()
'********************************************************************
'* 这个过程设置正确的优先权，以允许在Windows NT下关机或者重新启动。
'********************************************************************

Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2

Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

'使用SetLastError函数设置错误代码为0。
'这样做，GetLastError函数如果没有错误会返回0
SetLastError 0

' GetCurrentProcess函数设置 hdlProcessHandle变量hdlProcessHandle = GetCurrentProcess()
If GetLastError <> 0 Then
Print "GetCurrentProcess error==" & GetLastError
End If

OpenProcessToken hdlProcessHandle, _(TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY), hdlTokenHandle
If GetLastError <> 0 Then
Print "OpenProcessToken error==" & GetLastError
End If

' 获得关机优先权的LUIDLookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid
If GetLastError <> 0 Then
Print "LookupPrivilegeValue error==" & GetLastError
End If

tkp.PrivilegeCount = 1 ' 设置一个优先权
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

' 对当前进程使能关机优先权
AdjustTokenPrivileges hdlTokenHandle, _
False, _
tkp, _
Len(tkpNewButIgnored), _
tkpNewButIgnored, _
lBufferNeeded

If GetLastError <> 0 Then
Print "AdjustTokenPrivileges error==" & GetLastError
End If

End Sub
Public Sub shutdown()
lngVersion = GetVersion()

If ((lngVersion And &H80000000) = 0) Then
glngWhichWindows32 = mlngWindowsNT
Print "在Windows NT或Windows 2000下运行"
Else
glngWhichWindows32 = mlngWindows95
Print "在Windows 95/98/Me下运行"
End If

If glngWhichWindows32 = mlngWindowsNT Then
AdjustToken
Print "调用AdjustToken后的GetLastError " & GetLastError
End If

ExitWindowsEx (EWX_SHUTDOWN), &HFFFFPrint "调用ExitWindowsEx函数后的GetLastError " & GetLastError
End Sub

Answer 2

哈哈，上面的结合一下就是
'设置一个timer，设置interval 为100，combobox要输入列如12:20
'然后输入代码:
Private Sub Timer1_Timer()
If combox1 = Format(Time, "hh:mm") Then Shell "e:\shutdown.exe -s -t 0"
End Sub

祝您成功！成功了别忘了采纳最佳答案

追问

那执行按钮写什么代码Command1 里写什么

追答

不需要啊，你到底要这个按钮做啥用？
TIMER是自动执行的，你可以用按钮设置自动关机开始，不过要求TIMER的Enabled属性在属性窗口里设置为FALSE，在按钮里写TIMER1.Enabled=True就够了。

Answer 3

'combo里输入整数秒就行了

Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal Newvalue&, ByVal NewThread&, Oldvalue&)Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Private Sub Combo1_Click()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static i%
If i = Val(Combo1.Text) Then
RtlAdjustPrivilege& 19, 1, 0, 0
NtShutdownSystem& 2
End If
i = i + 1
End Sub

Answer 4

如果是XP的话,你只能运行一个命令即可,
shutdown -s -t 3600
上面的3600的单位是秒,1小时=3600秒,这条命令是1小时以后自动关机

追问

这个知道的！就是设置加上一个combobox 要程序按照他的时间来实现关机！

追答

Private Sub Command1_Click()
Shell "e:\shutdown.exe -s -t " & Combo1.Text
End Sub