Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As LongPublic Const ewx_logoff = 0
Public Const ewx_shutdown = 1
Public Const ewx_reboot = 2
Public Const ewx_force = 4Private Sub Command1_Click()
dd = ExitWindowsEx(ewx_force Or ewx_shutdown, 0)
End Sub
Public Const ewx_shutdown = 1
Public Const ewx_reboot = 2
Public Const ewx_force = 4Private Sub Command1_Click()
dd = ExitWindowsEx(ewx_force Or ewx_shutdown, 0)
End Sub
解决方案 »
- 我想拜个老师学VB。高手进。哈哈。
- vb 菜鸟继续求助
- 急:excel中的页面设置能否象word实现双面打印的装订对称?
- vb6 的ActiveX exe如何注册,好像不是Regsvr32啊??
- 在vb中打开一个word文件
- 如何在DataGrid中选中一条记录,然后用程序将其在数据库中删除
- 怎么说服使用VB来开发软件?
- 关于图片的问题!
- 有人说CSDN的同志们网恋都不可能成功,俺可是网恋成功了,CSND上的妹妹啊,谢谢啦!
- 服务器端的WINSOCKET 控件 在 接收客户端对应的控件发出的CLOSE消息后,为什么服务器端WINSOCKET控件的CLOSE事件会被反复执行
- 怎么设置MS FLEX Grid网格中的字体???(急!!!!!)
- 一个急需解决的问题,只进版主入内,闲人莫进!
shell "rundll32.exe user.exe,exitwindows"
ExitWindowsEx EWX_SHUTOFF, 0