小弟想请教一下各位vb大神,如何用vb实现自动关机
发布网友
发布时间：2022-05-06 02:08
共5个回答
热心网友
时间：2022-06-28 12:36
wshshell.run "at 17:00 shutdown -s"
在记事本里这么写，写完后保存，再把记事本后缀改成vbs，把这个VBS文件放在系统的启动目录下（360会把人物VBS当病毒的）。这样他就自动关机了，系统启动就运行了他，到点他就执行。
从此以后你的电脑就是一到下班时间17:00自己会关机的。at后面时间你可以以记事本打开去修改的。这样的代码就够完整了，你哪些写的没什么实际用处，系统开始菜单明明就有开关机的按钮，还需要你去写吗？如果我们编程就为做这些画蛇添足的事情，那学来做什么用？自动关机是有必要的，你晚上看电视，电脑在一边，可以设置他定时关机，在运行里面直接输入：
at 22:00 shutdown -s 意思就是在22:00的时候自动关机。
VBS代码可以直接执行，把他放启动文件里面，意思是一开机就执行他，到点后自动关闭，防止下班后检查是否关电脑还是有点用的。在服务器上我们也可以这样，把语句改一下：
at 4:00 shutdown -r 意思是让服务器在每天 4点的时候重启一下，以免造成数据服务死锁或者网页访问卡死。
追问我就是为了下班后检查是否关电脑，所以设置一个提示框，默认自动关机，如果需要继续用电脑选否，您给的这个好像不能实现我的功能
热心网友
时间：2022-06-28 12:37
Private Sub Timer1_Timer()
Timer1.Interval = 1000
If Hour(Time) = 5 Or Hour(Time) = 17 Then
Timer2.Enabled = True
ff = True
Else
DoEvents
End If
If ff = False Then Timer2.Enabled = False
End Sub
Private Sub Timer2_Timer()
Dim m As String
m = MsgBox("是否关机，默认将在20秒后关机", vbOKCancel, "自动关机")
If m = vbOK Then
wshshell.run "shutdown -s -t 0"
Else
MsgBox "关机已取消！", 64, "自动关机"
ff = False
End If
End Sub
在单位不能实验，vb6.0+sp6.希望能帮助到你
热心网友
时间：2022-06-28 12:37
那么你需要一个timer..时间间隔设置成1秒..程序打开就开始运行..
在timer中判断.当前时间是否是5点或者超过5点..则进行关机..否则不做任何操作.
msgbox 20秒无操作一样的道理.当弹出msgbox后.你需要另外一个timer来开始计时.20秒自动执行关机操作.
关机VB是可以直接 shell 执行关机DOS命令的.
自己实践一下..给你提供思路...自己做出来才有成就感..希望采纳
热心网友
时间：2022-06-28 12:38
shell ("shutdown -s -t 0") '0是时间，秒为单位，即马上关机
复杂一点(稳定一点)的就调用API把
ExitWindowsEx (VB API函数浏览器查一下)
Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
容易实现注销
但是关机需要提升权限。。。
call exitwindows(EWX_LOGOFF,0)
你试试吧，可以查一下MSDN
热心网友
时间：2022-06-28 12:38
