怎么用程序实现电脑的自动关机？

其实在 XP 下面,只要执行 SHUTDOWN 命令就可以关机了,而详细的参数可能参见 shutdown /? 你如果想要在其它程序下关机,只要用 shell ,之类的函数去调用外部的命令就OK了.如果做到"人为的将这个程序停止就会自动关机",建议可以用两个程序,相互监视对方的进程.

楼上的也真是,写了那么一大行代码,关机很简单,用API函数就可以实现
声明一个API的函数
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
建立个按纽,CLICK 事件里添加
ExitWindowsEx EWX_SHUTDOWN, 0 ' ShutDown
就可以了
GOOD LUCK
用软件改变世界,用代码书写人生,用思想创造未来!
如果有兴趣想学习可以QQ上交流86711527

下面是我愿来写的关机程序,你可以拷来用.因为你的系统是2000,所以需要特别注意的是应该先得到关机的特权:(你要想弄懂下面的程序,要先学学怎么调用api函数的知识.如果你一看就头大,哈哈,那放弃吧......嘿嘿,想关机也并不是容易的事情啊......)

其中:前面一些Public Declare都是api函数的声明.
Public Sub AdjustToken()子程序用来取得关机特权.
Public Sub Shutdown() '是关机子程序
Public Sub Reboot() '是重启子程序

*********************代码开始了:*****************
Public Structure LUID
Dim UsedPart As Integer
Dim IgnoredForNowHigh32BitPart As Integer
End Structure

Public S