具体查看:http://hi.baidu.com/juncox/blog/item/111e4af647bb4e2a730eec55.html
找到了三种方式:
1. 即原样使用Shutdown.exe 命令...
http://hi.baidu.com/juncox/blog/item/c96c4cb28ec094afd8335a4f.html
Sub Main()
Dim sComLine$
sComLine = "Shutdown.exe " & Command 'Command是参数
'MsgBox sComLine '显示信息
Shell sComLine '执行命令
End Sub
-----------------------------------------
2. 通过组件方式
-----------------------------------------
3. 调用API函数ExitWindowsEx可以首先重新驱动和关机。
ExitWindowsEx定义如下:
Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
>>>>>>>>>>>>>>
Juncox的回答正确
为什么是30而不是60应该与你写的代码有关吧
在工程属性里面有个选项是“生成”->“命令行参数”,你把那个设置好应该就没有问题了吧