- 1、本文档共3页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
用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
您可能关注的文档
最近下载
- 2024年大数据技术试题库(含答案).pdf
- 艾兰德ALD6000P系列变频器使用手册(中文).pdf
- NB∕SH∕T 0944.2-2020 润滑剂抗磨损性能的测定 FE8滚动轴承磨损试验机法 第2部分:润滑脂.pdf
- 四川大学2020年11月课程考试考试《103014电子商务》参考答案.doc
- 廉洁案例教育(廉洁党课)-1.ppt VIP
- 游泳馆突发紧急事件处理预案.doc
- 国开(中央电大)专科《财务管理》网上形考(任务一至四)试题及答案.docx
- 我的教育教学故事(荟萃20篇).docx VIP
- 部编版小学语文六年级上册期中考试试卷(含答案).doc
- 数学北师大版五年级上《比较图形的面积》说课课件.pptx
文档评论(0)