Question

vb中shell使批处理完成后再执行后续指令

我想在vb的Form中，点击Command1后自建并运行一个bat批处理文档，运行完后弹出一个msgbox提示完成，代码如下：

Private Sub Command1_Click()
Open "C:\test.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo 测试完毕"
Print #1, "echo. & pause "
Close #1
Shell "c:\test.bat"
MsgBox "清理完成！"
End Sub

可是测试时发现Msgbox还没等批处理文件运行完就弹出来了，到网上一查才直到Shell函数是异步执行程序，找到很多方法都没能解决，请高手帮助我，把我的代码修改以下，要求代码中的这个Bat批处理文档运行完成后才弹出Msgbox，谢谢！
我重述一下：我的目的是点击Command1后程序自建一个Bat批处理文档并运行，建立这个Bat批处理文档的代码如下：
Open "C:\test.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo 测试中，删除的文件是垃圾文件，不会损坏系统"
Print #1, "del /f /s /q %systemdrive%\*.tmp"
Print #1, "del /f /s /q %systemdrive%\*._mp"
Print #1, "del /f /s /q %systemdrive%\*.log"
Print #1, "del /f /s /q %systemdrive%\*.gid"
Print #1, "echo exit"
Close #1
建立完毕后程序用shell函数（用其它的也可以）运行这个批处理文件，等批处理文件执行完毕退出时再用Msgbox弹出一个提示窗口提示测试完成
如果用Shell函数，则Msgbox和这个BAT文档是同时弹出的
请各位帮忙实现 批处理文档建立并运行完毕退出后，才弹出提示窗口
评价：
信闯 想法不错，如果没有人会回答 我会考虑这个方法
cjsworld 我要的效果是bat运行结束立即弹出窗口，而且这个bat运行结束的时间是个未知数，采用延时代码难免出现误差
ljl88900 我用你的代码试了下，还是不行啊

Answer 1

Option Explicit
'shell and wait示例
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STATUS_PENDING = &H103

Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

'shell and wait
'执行外部命令并等待程序执行完毕再返回控制权
Private Sub Command1_Click()
Dim pId As Long, pHnd As Long ' 分别声明 Process Id 及 Process Handle 变数

pId = Shell("F:\1.bat") ' Shell 传回 Process Id

pHnd = OpenProcess(SYNCHRONIZE, 0, pId) ' 取得 Process Handle

DoEvents
If pHnd <> 0 Then
Call WaitForSingleObject(pHnd, INFINITE) ' 无限等待，直到程序结束
Call CloseHandle(pHnd)
End If
MsgBox "执行完毕 "

End Sub

Answer 2

我也不太明白,不过我有些思路,就是说呢,用一个TIMER来监视一些，你批处理里最后的一个改动，比如说，修改一个文件的名字，在你按按钮的同时，开动时钟控件，然后，MsgBox "清理完成！"
放在timer1里，这样就OK了，不知这样的思路行不行，如果是我，就这样办，也许有更好的办法 思路有了，你可以自己找一下相关的代码，主要是查文件名的代码

对了,忘了,在时钟控件生效前一定要让要改的那个文件名复位，这样不至于出错，我想你也能想到，但我还是想补充一下

Answer 3

'这样就可以满足你的要求：
Private Sub Command1_Click()
Open "C:\test.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo 测试完毕"
Print #1, "echo. & pause "
Close #1
Dim wshshell
Set wshshell = CreateObject("WScript.Shell")'创建脚本对象
wshshell.run "c:\test.bat"
Set wshshell = Nothing'释放内存
MsgBox "清理完成！"
End Sub

Answer 4

shell函数有一定运行时间,这样修改:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Open "C:\test.bat" For Output As #1
Print #1, "@echo off"
Print #1, "echo 测试完毕"
Print #1, "echo. & pause "
Close #1
Shell "c:\test.bat", vbNormalFocus
Sleep 500 '按实际情况设定时间,单位是毫秒
Form1.SetFocus
MsgBox "清理完成！"
End Sub

Answer 5

这个问题好啊。