荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: baoli (生命因理想而伟大), 信区: Visual
标 题: Re: 怎样用vb编写一个 win2000 关机程序？
发信站: 荔园晨风BBS站 (Sun May 4 19:32:50 2003), 站内信件
想得到更详细的信息自己去网上找找～～～
例子如下：
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32"
_(ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
msg = MsgBox("这个程序将让你重启计算机，按确定继续或按取消终止.",
_vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
ret& = ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0) '强迫重启计算机
End Sub
【 在 laugon (简单是美) 的大作中提到: 】
: 只需要实现一个关机功能。谢谢！
--
成就最牛的传说！做最牛的牛魔王！
※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 61.144.235.40]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店