VB定时关机程序???让宿舍人早些休息 能每天自己运行的!

第四部分:定时存盘的关键,通过"While...Wend"这个当条件为"真"时循环命令,实现自动存盘代码" WshShell.SendKeys "^s" "和定时代码" WScript.Sleep AutoSaveTime "的重复执行.因为不能让这个定时存盘循环一直执行,退出记事本后,必须自动退出脚本并结束循环,所以设计了一个循环判断条件" WshShell.AppAct...

[企业回答] 

自己编程的话，技术上很简单，几乎没啥技术含量，就是像一楼说的用shell调用shutdown，也可以调用API函数来实现，只要用个Timer控件每隔一分钟循环一次，判断当前时间是否6点整（下午的六点就是18点整），是就执行关机代码即可。但是，难点是，不管你怎么弄，这种需要开机自启动的小程序肯定会被360、管家...

Private Sub Command1_Click()'t为设置的要关机的时刻 t = Text1 & ":" & Text2 & ":" & Text3 '启动Timer控件，开始倒计时 Timer1.Enabled = True End Sub Private Sub Form_Load()'设置Timer控件的时间间隔为1秒 Timer1.Interval = 1000 '起动程序时，计时器不可用 Timer1.Enabled = ...

'你需要画一个timer，名字叫timer1,然后把代码复制就可以了。Option Explicit Private Const EWX_LogOff As Long = 0 Private Const EWX_SHUTDOWN As Long = 1 Private Const EWX_REBOOT As Long = 2 Private Const EWX_FORCE As Long = 4 Private Const EWX_POWEROFF As Long = 8 'The Exit...