Office中国论坛/Access中国论坛

标题: 请教！如何用vba代码关闭计算机？ [打印本页]

作者: sxgaobo 时间: 2004-1-3 17:11
标题: 请教！如何用vba代码关闭计算机？
如题，请注意是关闭计算机！

作者: cg1 时间: 2004-1-3 18:40
关于此主题请参考专题地址：http://access911.net/index.asp?board=4&recordid=71FAB61E

方法四

作者: sxgaobo 时间: 2004-1-3 20:05
谢谢cg1！
您告我的方法看了，可我不会用，总报错！！！
能麻烦您给做个简单的例子吗？就是单击一按钮即关闭计算机。

作者: cg1 时间: 2004-1-4 02:47
请重新看一下文章，注意你WINDOWS的版本

作者: sxgaobo 时间: 2004-1-4 03:00
cg1 谢谢您的关注！
我看了，也试过了，可就是不行（太菜啊）！！！
我的系统是WINDOWS2000，ACCESS是XP
麻烦您给做个例子好吗？

作者: sxgaobo 时间: 2004-1-4 19:00
帮忙啊！！！

作者: cg1 时间: 2004-1-4 20:08
的确，SHUT DOWN 执行不成功

但是LOGOFF可行

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

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

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

作者: sxgaobo 时间: 2004-1-5 02:30
有明白的朋友吗？

作者: sxgaobo 时间: 2004-1-5 17:58
能给个明确的答案吗？

作者: sxgaobo 时间: 2004-1-6 00:35
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。

作者: andymark 时间: 2004-1-6 01:06
ME+OFFICE2000 测试通过

[attach]3014[/attach]

作者: sxgaobo 时间: 2004-1-6 01:20
一样的代码，WIN2000+OFFICE XP没反应！？！？！？！？

作者: hi-wzj 时间: 2004-1-6 21:37
我觉得是不同的win版本，0124的参数值是不同的。和office版本无关。
Const EWX_SHUTDOWN = 1
Const EWX_LOGOFF = 0
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

作者: sxgaobo 时间: 2004-1-6 23:05
WIN2000该如何做啊？

作者: sxgaobo 时间: 2004-1-8 21:37
？？？

作者: cg1 时间: 2004-1-8 23:32
呵呵，看来还没有得到圆满解决。

作者: sxgaobo 时间: 2004-1-9 00:25
win2000下如何！！！！！！！！！！！！！！！

作者: zhengjialon 时间: 2004-1-9 01:06
搜索一下VB里关闭的例子，应该可以用的我前试过，不过太久了，换了几台机器，资料库找不到了。

作者: marco2 时间: 2004-1-9 01:25
http://club.excelhome.net/dispbbs.asp?boardID=2&replyID=57622&ID=24089
http://club.excelhome.net/dispbbs.asp?boardID=2&replyID=72442&ID=26665
http://www.officefans.net/cdb/viewthread.php?tid=640&highlight=%2Bchijanzen

作者: sxgaobo 时间: 2004-1-10 01:36
不成功，困惑中！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)