Question

VB自动关机程序

Answer 1

按下command1，15秒后自动关机（时间可自己改），顺便写了阻止自动关机，即按command2：
Private Sub Command1_Click()
Shell "shutdown -s -t 15"
End Sub
Private Sub Command2_Click()
Shell "shutdown -a"
End Sub

Answer 2

用下面代码可以关机,自动的话,不是知道你的想什么时候自动关机?一定时间吗？
首先，在module文件中加入下列声明语句：

　　DeclareFunction ExitWindows Lib＂User＂（ByValdw
ReturnCodeAsLong，ByValwRe？servedAsInteger）AsInteger

　　PublicConstEW—REBOOTSYSTEM=&H43

　　PublicConstEW—RESTARTWINDOWS=&H42

　　然后，在Form中加入一个CommandButton控件，在它的Click事件中加入下列代码：

　　DimRetAsInteger

　　RetΚExitWindows（EW—RESTARTWINDOWS，0）

　　……

　　程序运行后，只要按下该CommandButton控件，Windows系统便会重新启动。若将上述代码改为：Ret=ExitWindows（EW—REBOOTSYSTEM，0），则将重新启动计算机系统。