Question

求一个用VB语言做的程序 使其可以让电脑自动关机

Answer 1

先用 Timer 控件设置定时时间，然后调用API关机或重启函数：
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

用ExitWindowsEx 函要注意操作系统的版本，如果是NT类型的（windows2000以后的版本），还先要调用几个安全机制涵数：

Public Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Public Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long

没悬赏分的问题就不写例子了，自己查MSDN吧！ ^_^

Answer 2

Private Sub Command1_Click()
Shell "shutdown.exe -s -t " & Text1.Text
End Sub

Answer 3

同