请教！如何用vba代码关闭计算机？

sxgaobo

如题，请注意是关闭计算机！

cg1

关于此主题请参考专题地址：http://access911.net/index.asp?board=4&recordid=71FAB61E

方法四

sxgaobo

谢谢cg1！
您告我的方法看了，可我不会用，总报错！！！
能麻烦您给做个简单的例子吗？就是单击一按钮即关闭计算机。

cg1

请重新看一下文章，注意你WINDOWS的版本

sxgaobo

cg1 谢谢您的关注！
我看了，也试过了，可就是不行（太菜啊）！！！
我的系统是WINDOWS2000，ACCESS是XP
麻烦您给做个例子好吗？

sxgaobo

帮忙啊！！！

cg1

的确，SHUT DOWN 执行不成功

但是LOGOFF可行

我也不知道为什么，返回执行代码为 0 表示执行失败。

希望熟悉使用 API 的各位来看看。

[此贴子已经被作者于2004-1-4 12:48:00编辑过]

sxgaobo

有明白的朋友吗？

sxgaobo

能给个明确的答案吗？

sxgaobo

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Const EWX_SHUTDOWN = 1
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Sub Command0_Click()
Dim a
a = ExitWindowsEx(EWX_LOGOFF Or EWX_FORCE Or EWX_SHUTDOWN, 0)
End Sub
请高手帮忙啊！使用上述的方法计算机没反映，我的系统是2000。