189 8069 5689
1、开机进入桌面后，按下“Windows徽标键+I”键，选中并打开“控制面板”
创新互联建站-专业网站定制、快速模板网站建设、高性价比青山湖网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式青山湖网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖青山湖地区。费用合理售后完善，10年实体公司更值得信赖。
2、在“控制面板”中的“系统和安全”里，选中“管理工具”里的“计划任务”，并打开“计划任务”
3、在“任务计划程序”里，打开“创建任务”
4、在“创建任务”的“常规”中，根据相应需求设置，比如“名称：定时关机”
5、在“创建任务”的“触发器”中，点“新建”，并在“新建触发器”中，根据相应需求设置后，点“确定”
6、在“创建任务”的“操作”中，点“新建”，并在“新建操作”中的“程序或脚本”里，根据下图依次输入“shutdown”和“-s”后，“点“确定”
7、在“创建任务”的“条件”中，根据相应需求设置
8、在“创建任务”的“设置”中，根据相应需求设置后，点“确定”
9、这时“定时关机”的任务已创建完成！
在SystemEvents类中 可以 用户试图注销或关闭系统时发生。 (当用户试图注销或关闭系统时发生。当用户试图注销或关闭系统时发生。) 这个 事件处理函数中 可以找到如下方法
Private Shared WM_QUERYENDSESSION As Integer = H11
Private Shared systemShutdown As Boolean = False
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
If m.Msg = WM_QUERYENDSESSION Then
'MessageBox.Show("queryendsession: this is a logoff, shutdown, or reboot")
systemShutdown = True
End If
' If this is WM_QUERYENDSESSION, the closing event should be raised in the base WndProc.
MyBase.WndProc(m)
End Sub 'WndProc
Private Sub Form1_Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If (systemShutdown) Then
' Reset the variable because the user might cancel the shutdown.
systemShutdown = False
If (System.Windows.Forms.DialogResult.Yes = _
MessageBox.Show("My application", "Do you want to save your work before logging off?", MessageBoxButtons.YesNo)) Then
e.Cancel = True
Else
e.Cancel = False
End If
End If
End Sub
软糖来回答罗：通过System.Diagnostics命名空间下的Process类来关闭程序的进程
Dim 进程集合 = Process.GetProcessesByName("进程名称")
For Each 进程 In 进程集合
进程.Kill()
'进程.Close() '或者使用关闭
Next
也可以先获取所有进程，再来判断这些进程的名称ProcessName
Dim 获取本地所有进程 = Process.GetProcesses()
For Each 进程 In 获取本地所有进程
If 进程.ProcessName = "explorer.exe" Then 进程.Kill()
Next
有简单的。不要太复杂了。
在Text1中输入的是时间，单位是秒。例如想50秒后关机就输入50。代码如下。
----------------------------------
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Dim t As Long
Private Sub Command1_Click()
t = Val(Text1.Text)
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
t = t - 1
If t = 0 Then ExitWindowsEx EWX_SHUTDOWN
End Sub
有两种方法，第一种是调用shutdown.exe
shell("shutdown.exe路径
-s
-t
0")
'-t是延迟时间，0表示立刻关机
另一种就是使用API了，好像是ExitWindow，你可以去搜索一下其用法。
在XP里直接
Function Shutdown(optional Restart =false)
dim c
if restart then c="-r " else c="-s "
c=c "-t 00"
shell "shutdown " c ,vbhide
end function
98好象也可以用
Private Declare Function ExitWindowsEx Lib "USER32" _
(ByVal uFlags As Long, _
ByVal dwReserved As Long _
) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_REBOOT = 2
Private Const EWX_SHUTDOWN = 1
function Shutdown()
ExitWindowsEx(EWX_SHUTDOWN, 0)
end function
function restart()
ExitWindowsEx(EWX_REBOOT, 0)
end function