★★★★★★:如何在关闭计算机的时候关闭电源（win2000)?

[deak]

我使用API函数ExitWindowsEx()，uflags设为EWX_POWEROFF怎么不行？

[deak]

to zyykunan:试过

[kimryo]

ATX架构的机箱不是自己关点源吗？

[一曲阳勇]

转摘一文章，出处已经忘了。（对不起作者了）


通过程序实现Windows用户的注销、关机、重启机器。
组成：一个Module、一个Form和三个CommandButtom
实现：
'Module1.bas
'ExitWindowsEx的功能是注销、关机或重启。参数一：指定功能类型，参数二：调用时忽略。
Public Const EWX_LOGOFF = 0 '注销
Public Const EWX_SHUTDOWN = 1 '关机
Public Const EWX_REBOOT = 2 '重启
Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal _
dwReserved As Long) As Long
'以上语句都可从API浏览器中找到

Private Sub Command1_Click()
ExitWindowsEx EWX_LOGOFF, O '注销
End Sub

Private Sub Command2_Click()
ExitWindowsEx EWX_SHUTDOWN, 0 '关机
End Sub

Private Sub Command3_Click()
ExitWindowsEx EWX_REBOOT, 0 '重启
End Sub

强制关机
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

使用:

Dim Ret As Long
Ret = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN , 0)

'//
EWX_FORCE
强迫中止没有响应的进程
EWX_LOGOFF
中止进程，然后注销
EWX_SHUTDOWN
关掉系统电源（如果可能的话，ATX电源就可以）
EWX_REBOOT
重新引导系统
EWX_SHUTDOWN
关闭系统

[deak]

这么简单的问题都没人会，我死不瞑目！

[deak]

?

[bingobird]

我也试过，2000下是不行。
只能用这个函数关系统。
98下还行，谁知道请告知

[michaelpeng7799]

在WINDOWSNT 和WIN2000里不一样要用一个AdjustTokenPrivileges函数才行,我正在做一个

远程关机的程序,在新版的MSDN里有关于在WIN2000里的说明,你找EXITWINDOWSEX就行,下面是

老版本的MSDN的说明.

Windows NT: To shut down or restart the system, the calling process must use the AdjustTokenPrivileges function to enable the SE_SHUTDOWN_NAME privilege. For more information about security privileges, see Privileges.

[deak]

to cocoboy79:AdjustTokenPrivileges函数我用过，只能关机，不能关闭电源

[pray_xb]

不落之叶,这个程序代码编译时有错,怎么改?能不能给个完整的我.先谢了!
最好是E-mail给我,拜托了.pray_xb:[e-mail]

[progame]

ATX机箱怎么会有关机而不关电源的事，请讲具体点，如果别人行，而你不行，那就是硬件问题了，先到别的机子上试一下吧

[bingobird]

兄弟，学我，装个winMe得了，这函数在那系统下还正常。
至于VB在2000下关电源，我可不知道CSDN里到底有几个会?

[deak]

I know now!

[deak]

to progame:我说的意思是用win2000里的关机功能可以关闭电源，用ExitWindowsEx()为什么不行？ 用ExitWindowsEx可实现提示“可以正常关机”，但不能关闭电源！
简单说用vb如何实现在关闭计算机的时候关闭电源（win2000)？
如果你行的话，就写出代码来，否则别吹牛！

[zzc]

deak同志，我也遇上同样问题，教教我吧。

[raeck]

2000里用参数8，就可以了
If Con2w = False Then
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(1, 0) 'Win98中关闭计算机
Else
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(8, 0) 'Win2000中关闭计算机
End If

[raeck]

2000里用参数8，就可以了
If Con2w = False Then
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(1, 0) 'Win98中关闭计算机
Else
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(8, 0) 'Win2000中关闭计算机
End If

[raeck]

怎麽还不给分？？！ 我最近好像好喜欢分耶，呵呵。笑归笑，分还是要给的。呵呵

[freeboy]

拔掉电源插头不就行了,呵呵

[freeboy]

偶的机器才叫奇怪呢
电源管理里面没有休眠选项
关机时也没有休眠选择
可是c盘下的hiberfil.sys死活不让偶删掉
256m空间就这样浪费了

[raeck]

厉害！哈哈