今天在网上无意中看到一篇文章：用VB轻松调用其他程序（转载）

Question

二、以同步方式来执行其他程序 　　有时候，我们需要让VB在执行完外部程序后再执行下一语句，这就需要使用API函数。 　　我们可通过OpenProcess和CloseHandle函数来检测调用软件的运行情况。这两个函数的声明如下： 　　Declare Function OpenProcess Lib ″kernel32″ Alias ″OpenProcess″ (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 　　Declare Function CloseHandle Lib ″kernel32″ Alias ″CloseHandle″ (ByVal hObject As Long) As Long 　　建立下面函数，用以判断程序是否在运行，如果是，则在运行时返回True。 　　Function IsRunning(ByVal ProgramID) As Boolean　　′传入进程标识ID 　　　　Dim hProgram As Long　　 ′被检测的程序进程句柄 　　　　hProgram=OpenProcess(0,False,ProgramID) 　　　　If Not hProgram=0 Then 　　　　 IsRunning=True 　　　　Else 　　　　 IsRunning=False 　　　　End If 　　　　CloseHandle hProgram 　　End Function 　　例如要调用计算器(CALC.EXE)并等到它运行完成后再执行下一语句，可以使用以下代码： 　　 Dim RetVal 　　 MsgBox ″开始运行″ 　　 RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1) 　　 While IsRunning(RetVal) 　　　　 DoEvents 　　 Wend 　　 MsgBox ″结束运行″

Answer 1

三、关闭正在运行中的其他软件 　　如果要在程序中关闭正在运行中的其他程序，可以先使用FindWindow函数找出相应的程序句柄，然后调用PostMessage函数关闭该程序即可。 　　这两个函数的声明如下： 　　Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 　　Declare Function PostMessage Lib ″user32″ Alias ″PostMessageA″ (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 　　例如要检测“计算器”程序是否正在运行，如果是则关闭它，可以使用如下代码来实现： 　　 Dim winHwnd As Long 　　 Dim RetVal As Long 　　 winHwnd=FindWindow(vbNullString,″计算器″) 　　 If winHwnd〈〉0 Then 　　　　 RetVal=PostMessage(winHwnd,＆H10,0＆,0＆) 　　　　 If RetVal=0 Then 　　　　　　　　MsgBox ″关闭计算器出错！″ 　　　　 End If 　　 Else 　　　　 MsgBox ″计算器程序没有运行。″ 　　 End If