Question

怎么让vb调用一个外部程序(A.exe)，A.exe关闭后自动再执行另一条命令？

Answer 1

private function checkexeisrun(byval exename as string) as boolean
dim ps
'枚举进程
For Each ps In GetObject("winmgmts:\\.\root\cimv2:win32_process").instances_ 
'循环进程
If ucase(ps.name) = ucase(exename) then 
 checkexeisrunning = True  
 exit function
 end If
 next
 end function
private sub command1_click()
shell "A.exe" '调用A.exe
timer1.enabled=true '启动计时器
end sub
private sub timer1_timer()
if checkexeisrun("a.exe")=false then '"a.exe"就是程序名
'你要执行的命令
end if
end sub
'计时器interval属性越小响应时间就越快，但不要调太小，否则可能会无响应。

Answer 2

1、用SHELL函数可以调用外部程序
2、可以在系统中监视指定程序的进程，找不到了就是程序关闭了，要用API函数，FOUNDWINDOW.

追问

2.的具体怎么写？检测到程序关闭再自动执行条拷贝命令(我想备份一个文件)。请赐教！

Answer 3

winexe shell 都行，findwindow检测a是否在运行

追问

检测的具体怎么写？检测到程序关闭再自动执行条拷贝命令(我想备份一个文件)。请赐教！

追答

要求提供窗口标题给findwindow,就知道这么多了，参考vb api msdn

追问

怎么写详细代码？

追答

msdn有例子 照写