用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部分相关文章推荐：★
☆VB 读写TXT文本文件函数
☆VB 提取TextBox 文本框中指定一行字符串
☆VB 进制转换大全(十进制、十六进制、八进制、二进制、二进制流)互转
☆VB SendMessage向其他程序窗口发送字符串消息实例
☆VB中Null, Empty, Nothing, and vbNullString的区别
☆用RtlAdjustPrivilege来调整进程权限(VB6.0代码)
☆[VB]SaveSetting 语句 和 DeleteSetting 语句
☆VB APP对象属性一览表 + 灵活使用VB的APP对象
☆[vb]SendMessageA函数
☆使用VB绘制抛物线动画曲线
☆关于vb中的容器
☆[vb]利用WScript.Shell对象隐藏cmd命令行运行
☆浅析VB For Each.Next语句
☆VB中窗体模块、标准模块、类模块的区别
☆引用 VB类模块
☆VB中什么是类，类模块有什么作用
☆VB SendKeys 语句
☆VB 全局热键
☆用VB轻松调用其他程序
☆vb读取txt文件到textbox
☆如何去优化你的VB程序3
☆如何去优化你的VB程序2
☆如何去优化你的VB程序1
☆[VB]在状态栏中显示帮助信息
☆[VB]把屏幕保存为图像
☆Mp3Play.ocx控件让音乐之声响起来
更多精彩>>>
用VB轻松调用其他程序相关推荐
- vb.net 调用matlab程序 绘图,vbnet调用matlab
\\然后参考该 类库的文档,在类里引用 matlab 的命名空间 装 matlab ,添加引用[VB.Net] Matlab = CreateObject("matlab.applicati ...
- VB SendMessage向其他程序窗口发送字符串消息实例
以下通过程序的标题来获取该窗口的句柄,然后通过SendMessage函数给该窗口句柄发送WM_SETTEXT消息. 代码如下: '先创建一个文本文档,命名为: 1.txt ' 然后打开测试... Pr ...
- VB为自己的程序设定消息(可接收处理)
VB为自己的程序设定消息(可接收处理) Posted by JiaJia 5 March,2009 (0)Comment 用API函数 SetWindowLong 指定处理消息的窗口过程为自定义的函数 ...
- 在VB 中调用动态连接库
在VB 中调用动态连接库 2001-11-08· · ··yesky 1 2 3 4 5 6 7 8 下一页 作为一种简单易用的Windows开发环境,Visual Basic从一推出就受到了广 ...
- matlab编译dll vb调用,用matlab的deploytool生成DLL，VB无法调用的问题
matla使用的版本是2010a,VB6,例子来自一篇论文.练习时成功用deploytool函数生成了DLL,但最后在VB中调用时却报错,不知哪位大大知道是什么原因?谢谢! 参考的例子如下 第 一步 ...
- java进程里面调用方法_在java里面调用CUI程序的方法
在java里面调用CUI程序的方法推荐查看本文HTML版本 在java里面调用CUI程序的方法 问题描述: 该函数在win平台上面调用不是很成功,GUI会可以调出来,但可能和屏蔽调其中的一些用 ...
- 在VFP中如何调用其它程序
在VFP中如何调用其它程序 --------------------- 在VFP中我们可以用run来调用由VFP自身生成的.exe文件.命令格式: run c:\..\*.exe 当调用非VFP自身生 ...
- Vb下调用Help文件 (转)
Vb下调用Help文件 (转)[@more@] VB的应用程序帮助文件非常方便,只要对对象App的属性HelpFile赋值即可.现支持的格式有两种.chm与.hlp 例: app.helpfile ...
- VB静态调用与动态调用dll详解
[[请注意]]:在以下语法格式中,请注意 [函数名] 的[大小写]!!! 静态与动态比较: 静态调用简单,动态调用麻烦:静态调用占用资源多,动态调用占用资源少:正所谓鱼和熊掌不可兼得. 静态调用定义: ...
最新文章
- 数据结构：栈、队列、数组、链表、红黑树结构的特点
- GROUP与HAVING的使用
- c++ string 堆还是栈_5 个刁钻的 String 面试题！你都遇到过哪些？
- Angular自学笔记（?）ContentChild和ContentChildren
- 【 Grey Hack 】WIFI万能钥匙
- POST+JSON+JS下载Excel或CSV
- Java库转oc_急急急！各位大神：一段JAVA代码转成OC代码。
- python子类调用父类构造函数_Java 子类调用父类的构造函数
- 按键精灵定位坐标循环_按键精灵基础命令教程
- 教你一招，如何使用抓包工具轻松获取微信文章数据！
- infogan 生成mnist 手写数字
- 弹出登录框 您未被授权查看该页 的解决办法
- 分布式文件存储MinIO SeaweedFS FastDFS对比总结
- 社群运营的用户画像分析有哪些方法？
- 天龙 - Terrain
- vue登录页面实现记住密码的操作
- 每日获取强智教务系统课表，并发送短信到学生手机！爬虫真牛逼！
- hitTest的作用与用法
- Keras Conv1d 参数及输入输出详解
- java全栈系列之JavaSE--数组的定义和创建023