3个回答
展开全部
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False '程序在任务栏中隐藏
Shell "shutdown -S -t 0" '这里的0表示程序运行后0秒关机,将S换成R就是重新启动
End Sub
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
Private Sub Command1_Click()
Me.WindowState = 1
Sleep 5000 '5秒后再执行下面关机语句,时间自己改
Shell "shutdown -S -t 0"
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
30686911QQ群共享里有我写好的一个定时关机的程序。个人感觉比下载来的好使
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询