设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1446|回复: 5
打印 上一主题 下一主题

[其它] 可否用VBA代码关闭或重启计算机?

[复制链接]
跳转到指定楼层
1#
发表于 2006-11-6 20:00:00 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
是否可用VBA代码关闭计算机或重启计算机?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
6#
 楼主| 发表于 2006-11-6 23:32:00 | 只看该作者
真是感谢gaoqiwen同志

我得好好研究,另外请问怎样可以看到这样的帮助???
5#
发表于 2006-11-6 23:17:00 | 只看该作者
如下是SHUTDOWN的帮助:


Shutdown


允许您关闭或重新启动本地或远程计算机。如果没有使用参数,shutdown 将注销当前用户。


语法


shutdown [{-l|-s|-r|-a}] [-f] [-m [\\ComputerName]] [-t xx] [-c "message"] [-d[u][p]:xx:yy]


参数





-l


注销当前用户,这是默认设置。-m ComputerName 优先。


-s


关闭本地计算机。


-r


关闭之后重新启动。


-a


中止关闭。除了 -lComputerName 外,系统将忽略其它参数。在超时期间,您只可以使用 -a


-f


强制运行要关闭的应用程序。


-m [\\ComputerName]


指定要关闭的计算机。


-t xx


将用于系统关闭的定时器设置为 xx 秒。默认值是 20 秒。


-c "message"


指定将在“系统关闭”窗口中的“消息”区域显示的消息。最多可以使用 127 个字符。引号中必须包含消息。


-d [u][p]:xx:yy


列出系统关闭的原因代码。下表将列出不同的值。














说明





u


指定用户代码。





p


指定已计划的关闭代码。





xx


指定主要原因代码 (0-255)。





yy


指定次要原因代码 (0-65536)。


/?


在命令提示符显示帮助。


注释




  • 一旦指定了主要和次要原因代码,您必须首先为计划使用某种特定原因的每个计算机定义那些原因代码。如果目标机器上没有定义原因代码,则事件查看器无法记录正确的原因文本。



范例


要在 60 秒内关闭 \\MyServer,强制运行要关闭的应用程序,在关机后重新启动系统,指定一个用户代码,指定计划关闭系统,然后记录主要原因代码 125 和次要原因代码 1,请键入:


shutdown -r -f -m \\MyServer -t 60 -d up:125:1


格式化图例











格式


含义





斜体


用户必须提供的信息





粗体


用户必须像显示的一样准确键入的元素





省略号 (...)


可在命令行中重复多次的参数





在括号 ([]) 之间


可选项目





在大括号 ({})
4#
 楼主| 发表于 2006-11-6 22:33:00 | 只看该作者

用VBA代码关闭或重启计算机

我用以下代码不行:

private sub cmdclose_click

shell"c:\Windows\system32\shutdown"

或shell"c:\Windows\system32\shutdown.exe"

或shell"c:\Windows\system32\shutdown-s"

都不行,然后我直接找到shutdown文件,双击它,黑框显了一下就什么也没有发生过一样.

求救!!!!!!谢谢谢谢谢谢谢谢谢谢谢谢!!!!!!!!!!!!!!!!!!
3#
 楼主| 发表于 2006-11-6 21:42:00 | 只看该作者

用VBA代码关闭或重启计算机

能说得具体些吗?比如一个过程:

private sub close_click



end sub

中间该如何编写呢?在其中直接填写:Shell "shutdown -s" 吗?
2#
发表于 2006-11-6 20:48:00 | 只看该作者
调用windows的关机命令,好象是:

Shell "shutdown -s"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-2 11:23 , Processed in 0.108288 second(s), 30 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表