www.rtmj.net > vB定时关机代码

vB定时关机代码

Dim Sec As Long Private Sub Form_Load() Timer1.Interval = 1000 Sec = 600 ‘这里修改为你需要的倒计时时间 Label1 = Sec & "秒后关机" End Sub Private Sub Timer1_Timer() Sec = Sec - 1 Label1 = Sec & "秒后关机" If Sec

Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 【返回值】 Long,非零表明胜利,零表明失败。 【参数parameter表】 uFlags --------- Long, 指定下述唯一或多...

DONE!!!!!!!!!!!!!!! Option Explicit Dim Atime As Variant Private Sub Form1_Load() Timer1.Interval = 1000 Timer1.Enabled = False Private Sub Command1_Click() Atime = DateAdd("h", Val(Text1.Text), Time) Atime = DateAdd("n", Val(T...

直接调用shell就可以了 Private Sub Command1_Click() Shell "shutdown.exe -s -t " & Text1.Text End Sub

不知道。 给电脑定时关机的话让电脑定时自动关机其实很简单,你可以在百度上搜索下载定时关机3000这款电脑定时关机软件。 定时关机 3000有五种让电脑定时关机的方法,如每天几点几分关机或者等待多长时间后关机或者开机多长时间关机以及网速低于...

能做,比较麻烦,你为何不用计划任务实现? VB中用下面代码就可以做到强制关机 Shell "shutdown -s -f -t 0" 注册表添加自动启动(函数定义比较多,我不写出来了) Dim AppPath As String, Res As Long, KeyHand As Long, StrValue As String Ap...

shell "cmd.exe at 22:30 shutdown -s" '这句是在22:30关机shell "cmd.exe shutdown -a" '这句取消关机shell "cmd.exe shutdown -s -t 3600" '3600秒后关机shell "cmd.exe shutdown -r" '重启够用不?

解除关机的命令是 shutdown -a 在做一个form,里面放上文本框和按钮, 按钮加一个判断就能实现。

shutdown -s -f 就能直接关,我办公室的电脑一直都没加t参数都正常关机的,和时间没关系。-f能防止word之类的程序退出时问你保存不的时候卡住关不了。

用VB实现控制电脑自动关机,自动重启,自动注销,自动待机等代码 设定状态 SetSuspendState 是否支持休眠 IsPwrHibernateAllowed 是否支持待机 IsPwrSuspendAllowed 看MSDN的Power Management部分 ColdMooon (转载) '在窗体内 '放置一个时间控件...

网站地图

All rights reserved Powered by www.rtmj.net

copyright ©right 2010-2021。
www.rtmj.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com