Question

vb调用cmd打开批处理后为什么不执行批处理？命令如下：

Private Sub Command1_Click()
Open "E:\text.txt" For Append As #1
Close #1
Open "E:\text.txt" For Output As #1
Print #1, "shutdown -s"
Close #1
FileCopy "E:\text.txt", "E:\text.bat"
Shell "cmd /c e:\text.bat", vbHide
End Sub
点击批处理可以执行，但是在vb中单击按钮后cmd在工具栏一闪而过，而且貌似也没有执行批处理怎么回事？

Answer 1

vbHide隐藏了批处理运行窗口，改为 vbNormalFocus即可

Answer 2

Private Sub Command1_Click()
Open "E:\text.txt" For Append As #1
Close #1
Open "E:\text.txt" For Output As #1
Print #1, "shutdown.exe -s" '要加".exe"吧
Close #1
FileCopy "E:\text.txt", "E:\text.bat"
Shell "cmd /c e:\text.bat", vbHide
End Sub

Answer 3

Shell "cmd /c e:\text.bat", vbNormalFocus

Answer 4

改成
Shell "cmd /c start /MIN e:\text.bat", vbHide

Answer 5

看得头晕，直接用API运行吧