Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False '程序在任务栏中隐藏
Shell "shutdown -S -t 0" '这神游里好瞎帆的0表示程序运行后0秒关机,将S换成R就友雹是重新启动
End Sub
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
30686911QQ群共享里有我写好的一个定时关机的程序。个人感觉比下载来的好使