不好意思,我写错了。因该是ExitWindowsEx函数,它的第二个参数有什么用?
解决方案 »
- excel 动态追加sheet 并命名sheet
- ============ 寻算法 ===============
- 在vb中可以实现自动出题吗。题目在access中包括选择,填空文件.
- 一台电脑的多个网络连接能同时连接到网络吗?
- 数据库更新!!程序如何自动弹出提示窗口!!急。。。。大虾帮忙!!!!
- sleep 函数的使用方或其它类似功能函数的求教。高分相送,谢谢支持!
- 如何画一个方框并取得方框内所有的控件?
- 这里没高手吗?如果有,请帮我看看以下程序!!!!
- 怎样在网页上打开一JPG文件,并怎样显示这图片的指定区域
- 请问?哪里有用VB进行Direct编程的资料,一定要告诉我网址!
- 怎样把文本文件转为BMP文件?
- 动态添加的控件,如何获得其属性?
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("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
If msg = vbCancel Then End
'reboot the computer
ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub