神马文学网用VB轻松调用其他程序2000年02月16日 17:09
来源：百度文库 编辑：神马文学网 时间：2024/04/28 21:41:59
用VB轻松调用其他程序
我们编写程序时，有时会遇到在一个程序中调用并控制另一个程序执行的情况，在一些编程语言中实现起来较为繁琐，但如果用VB编写时，则可轻松实现。下面我就以在程序中调用“计算器”为例，总结了以下几种方法：
一、以异步方式来执行其他程序
Shell 函数是以异步方式来调用其他程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
语法：Shell(pathname[,windowstyle])
说明：pathname：必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
例如：RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1) ′ 调用计算器。
二、以同步方式来执行其他程序
有时候，我们需要让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 ″结束运行″
三、关闭正在运行中的其他软件
如果要在程序中关闭正在运行中的其他程序，可以先使用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
我们编写程序时，有时会遇到在一个程序中调用并控制另一个程序执行的情况，在一些编程语言中实现起来较为繁琐，但如果用VB编写时，则可轻松实现。下面我就以在程序中调用“计算器”为例，总结了以下几种方法：
一、以异步方式来执行其他程序
Shell 函数是以异步方式来调用其他程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
语法：Shell(pathname[,windowstyle])
说明：pathname：必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
例如：RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1) ′ 调用计算器。
二、以同步方式来执行其他程序
有时候，我们需要让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 ″结束运行″
三、关闭正在运行中的其他软件
如果要在程序中关闭正在运行中的其他程序，可以先使用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
用VB轻松调用其他程序2000年02月16日 17:09
用VB轻松调用其他程序
VB实现SQL Server 2000存储过程调用
VB示例:用VB制造文件下载程序
用VB编写异步多线程下载程序
[求助]一个用VB调用ACCESS数据库的问题 - VB 程序设计 - 程序设计与开发 -...
VB如何调用Crystal Reports
《香港报摘》--其他报纸重要消息12月16日
VB开机运行程序
VB启动外部程序
VB自动更新程序
Vb自动升级程序
2010年09月02日
十篇新闻十分钟，美好一天轻松开始。今天是2010年7月16日，星期五。
自定义你的启动程序(更新至2008年11月27日)
用VB编写监视指定进程的程序
用 VB 做 USB 通信程序及USB基础知识
VB中OLE调用的优化方法
在VB应用程序中调用Excel2000 ...
十篇新闻十分钟，美好一天轻松开始。今天是8月17日星期二。
十篇新闻十分钟，美好一天轻松开始。今天是9月16日星期四。
VB —多文档程序
VB实用小程序123
美媒体称我军1200枚巡航/弹道导弹可轻松攻台http://www.sina.com.cn 2010年12月24日 09:56 东方网