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

deak 2001-05-14 09:46:00
我使用API函数ExitWindowsEx(),uflags设为EWX_POWEROFF怎么不行?
...全文
240 25 打赏 收藏 举报
写回复
25 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
raeck 2001-08-07
厉害!哈哈
  • 打赏
  • 举报
回复
freeboy 2001-08-07

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


  • 打赏
  • 举报
回复
freeboy 2001-08-07

拔掉电源插头不就行了,呵呵
  • 打赏
  • 举报
回复
raeck 2001-08-06
怎麽还不给分??! 我最近好像好喜欢分耶,呵呵。笑归笑,分还是要给的。呵呵
  • 打赏
  • 举报
回复
raeck 2001-08-05
2000里用参数8,就可以了
If Con2w = False Then
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(1, 0) 'Win98中关闭计算机
Else
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(8, 0) 'Win2000中关闭计算机
End If
  • 打赏
  • 举报
回复
raeck 2001-08-05
2000里用参数8,就可以了
If Con2w = False Then
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(1, 0) 'Win98中关闭计算机
Else
AdjustTokenPrivilegesForNT
Call ExitWindowsEx(8, 0) 'Win2000中关闭计算机
End If
  • 打赏
  • 举报
回复
zzc 2001-08-05
deak同志,我也遇上同样问题,教教我吧。
  • 打赏
  • 举报
回复
deak 2001-06-06
to progame:我说的意思是用win2000里的关机功能可以关闭电源,用ExitWindowsEx()为什么不行? 用ExitWindowsEx可实现提示“可以正常关机”,但不能关闭电源!
简单说用vb如何实现在关闭计算机的时候关闭电源(win2000)?
如果你行的话,就写出代码来,否则别吹牛!
  • 打赏
  • 举报
回复
deak 2001-06-06
I know now!
  • 打赏
  • 举报
回复
bingobird 2001-06-06
兄弟,学我,装个winMe得了,这函数在那系统下还正常。
至于VB在2000下关电源,我可不知道CSDN里到底有几个会?
  • 打赏
  • 举报
回复
progame 2001-06-05
ATX机箱怎么会有关机而不关电源的事,请讲具体点,如果别人行,而你不行,那就是硬件问题了,先到别的机子上试一下吧
  • 打赏
  • 举报
回复
pray_xb 2001-05-19
不落之叶,这个程序代码编译时有错,怎么改?能不能给个完整的我.先谢了!
最好是E-mail给我,拜托了.pray_xb:hbcqxb@263.net
  • 打赏
  • 举报
回复
deak 2001-05-18
to cocoboy79:AdjustTokenPrivileges函数我用过,只能关机,不能关闭电源
  • 打赏
  • 举报
回复
michaelpeng7799 2001-05-18
在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.
  • 打赏
  • 举报
回复
bingobird 2001-05-18
我也试过,2000下是不行。
只能用这个函数关系统。
98下还行,谁知道请告知
  • 打赏
  • 举报
回复
deak 2001-05-18
?
  • 打赏
  • 举报
回复
deak 2001-05-18
这么简单的问题都没人会,我死不瞑目!
  • 打赏
  • 举报
回复
一曲阳勇 2001-05-14
转摘一文章,出处已经忘了。(对不起作者了)


通过程序实现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
关闭系统
  • 打赏
  • 举报
回复
kimryo 2001-05-14
ATX架构的机箱不是自己关点源吗?
  • 打赏
  • 举报
回复
deak 2001-05-14
to zyykunan:试过
  • 打赏
  • 举报
回复
加载更多回复(5)
相关推荐
发帖
VB基础类

7617

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-05-14 09:46
社区公告
暂无公告