Question

VB生成的exe文件如何加入运行参数

VB生成一个exe后如何加入参数。像shutdown /a,比如我生成了一个1.exe,如何执行1.exe /a就取消主机关闭。执行1.exe /r /t 0就关机。1.exe是我们自己用VB编的。不要告诉我把shutdown.exe 改成1.exe.请高手帮忙。
这个执行参数的代码我已经找到了。但我运行我的1.exe /r /t 60的时候，程序也只是倒记得30秒就重启。而不是60秒。比如我是想我执行1.exe /r /t 60就是60秒关机而不是要30。/t是要自己可以指定的。也就是说我执行1.exe /r /t 60程序就调用shutdown /r /t 60,这个60秒必须跟我的相同。比如我的是80秒，调用的命令就为shutdown /r /t 80，当然如果不用调用更好。如果不用调用shutdown，我另有高分相送。 二楼的是可以调用shutdown.exe，但shutdown.exe被人移到C盘下，我用sComLine = "C:\Shutdown.exe " & Command是无效的。能不能帮我解决下。问题还没有解决，希望有朋友能帮我解决。补充回答还没完成。我追加了50分。哪位朋友帮帮忙吧。

Answer 1

具体查看：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

>>>>>>>>>>>>>>

Answer 2

Juncox的回答正确

Answer 3

为什么是30而不是60应该与你写的代码有关吧

Answer 4

在工程属性里面有个选项是“生成”->“命令行参数”，你把那个设置好应该就没有问题了吧