【VB6|第27期】如何在VB6中使用Shell函数实现同步执行

2024-09-07 08:44

本文主要是介绍【VB6|第27期】如何在VB6中使用Shell函数实现同步执行,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

日期:2024年9月1日
作者:Commas
签名:(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释:如果您觉得有所帮助,帮忙点个赞,也可以关注我,我们一起成长;如果有不对的地方,还望各位大佬不吝赐教,谢谢^ - ^
1.01365 = 37.7834;0.99365 = 0.0255
1.02365 = 1377.4083;0.98365 = 0.0006


在这里插入图片描述


文章目录

  • 一、前言
  • 二、Shell函数的同步执行问题
  • 三、实现同步执行的步骤
    • 1、`OpenProcess` :打开进程,以获得进程句柄。
    • 2、`WaitForSingleObject`:等待一个进程句柄指示的进程结束。
    • 3、`CloseHandle`: 关闭一个内核对象句柄。
  • 四、完整示例
  • 五、结论


一、前言


书接上回,Shell 函数是异步执行的,但还是有很多开发者在使用 Shell 函数打开外部程序时,会希望程序能够等待该外部程序执行完毕再继续执行,即同步执行。本文将为你介绍如何实现这一功能。

二、Shell函数的同步执行问题


然而,默认情况下,Shell 函数是异步执行的,这意味着它会启动一个新的进程,然后立即返回,不会等待该进程结束。这在某些场景下可能不是我们想要的结果。那么,如何实现同步执行呢?

三、实现同步执行的步骤


其实原理很简单,为了实现同步执行,就必须等待进程结束后才继续执行后面的代码。我们可以使用 Windows API 函数来达到我们的预期效果,步骤如下:

1、OpenProcess :打开进程,以获得进程句柄。

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

其中,参数说明:

  • dwDesiredAccess:这是一个访问掩码,用于指定你想要对进程对象进行的操作类型。常见的访问权限包括:

    参数说明
    PROCESS_TERMINATE允许终止进程。
    PROCESS_CREATE_THREAD允许创建一个线程。
    PROCESS_VM_OPERATION允许在进程的地址空间进行操作。
    PROCESS_VM_READ允许读取进程的地址空间。
    PROCESS_VM_WRITE允许写入进程的地址空间。
    SYNCHRONIZE允许等待进程终止。

    通常为了等待进程结束,我们会使用 SYNCHRONIZE(即 Private Const SYNCHRONIZE = &H100000) 权限。

  • bInheritHandle:如果这个值为 TRUE,则创建的进程句柄可以被子进程继承;否则不能。

  • dwProcessId:要打开的进程的标识符,即 Shell 函数的返回值

返回值说明:

  • 如果函数成功,返回值是进程对象的句柄。
  • 如果函数失败,返回值是 NULL

2、WaitForSingleObject:等待一个进程句柄指示的进程结束。

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

其中,参数说明:

参数说明
hHandle要等待的内核对象的句柄(即 OpenProcess 函数的成功返回值)。这可以是事件、作业、进程、线程、互斥量或信号量的句柄。
dwMilliseconds等待的时间间隔,以毫秒为单位。如果这个值为 INFINITE(即 Private Const INFINITE = -1&),则该函数将无限期地等待,直到对象变为信号状态。

返回值说明:

返回值说明
WAIT_OBJECT_0对象处于信号状态。
WAIT_TIMEOUT指定的时间已经过去,但对象还没有处于信号状态。
WAIT_FAILED函数失败。

3、CloseHandle: 关闭一个内核对象句柄。

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

其中 hObject 为要关闭的内核对象的句柄,即 OpenProcess 函数的成功返回值。

返回值说明:

  • 如果函数成功,返回值是非零。
  • 如果函数失败,返回值是零。

四、完整示例

以下是完整示例,展示如何使用 API 函数等待Shell 函数启动的进程结束:

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = -1&
Private Sub OpenBrowserAndWait()Dim RetVal As LongDim ProcessHandle As LongDim Result As Long' 使用Shell函数启动浏览器RetVal = Shell("explorer http://www.example.com", 1)' 如果Shell函数成功启动了进程,它会返回进程IDIf RetVal > 0 Then' 打开进程,以获得进程句柄ProcessHandle = OpenProcess(SYNCHRONIZE, 0, RetVal)' 等待进程结束Result = WaitForSingleObject(ProcessHandle, INFINITE)' 关闭进程句柄Call CloseHandle(ProcessHandle)End If
End Sub

在这个示例中,我们使用了以下API函数:

  • OpenProcess: 打开一个已存在的进程对象,并返回进程的句柄。
  • WaitForSingleObject: 等待一个事件,在这种情况下,等待一个进程句柄指示的进程结束。
  • CloseHandle: 关闭一个内核对象句柄。

通过这些 API 函数,我们实现了 Shell 函数的同步执行功能。现在,VB 程序会暂停执行,直到启动的进程结束。

五、结论


通过本文,我们学会了如何在 VB6 中使用 Shell 函数实现同步执行。这种方法可以帮助我们更好地控制程序流程,确保外部程序执行完毕后再继续执行后续操作。希望本文对大家有所帮助!如有疑问,欢迎在评论区留言讨论。


参考文章:

  • 《Visual Basic for Applications Shell 函数》
  • 《Windows 应用开发 OpenProcess 函数》
  • 《Windows 应用开发 WaitForSingleObject 函数》
  • 《Windows 应用开发 CloseHandle 函数》

版权声明:本文为博主原创文章,如需转载,请给出:
原文链接:https://blog.csdn.net/qq_35844043/article/details/141928541

这篇关于【VB6|第27期】如何在VB6中使用Shell函数实现同步执行的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!


原文地址:
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.chinasem.cn/article/1144603

相关文章

C/C++错误信息处理的常见方法及函数

《C/C++错误信息处理的常见方法及函数》C/C++是两种广泛使用的编程语言,特别是在系统编程、嵌入式开发以及高性能计算领域,:本文主要介绍C/C++错误信息处理的常见方法及函数,文中通过代码介绍... 目录前言1. errno 和 perror()示例:2. strerror()示例:3. perror(

Linux中的计划任务(crontab)使用方式

《Linux中的计划任务(crontab)使用方式》:本文主要介绍Linux中的计划任务(crontab)使用方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录一、前言1、linux的起源与发展2、什么是计划任务(crontab)二、crontab基础1、cro

kotlin中const 和val的区别及使用场景分析

《kotlin中const和val的区别及使用场景分析》在Kotlin中,const和val都是用来声明常量的,但它们的使用场景和功能有所不同,下面给大家介绍kotlin中const和val的区别,... 目录kotlin中const 和val的区别1. val:2. const:二 代码示例1 Java

C++变换迭代器使用方法小结

《C++变换迭代器使用方法小结》本文主要介绍了C++变换迭代器使用方法小结,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧... 目录1、源码2、代码解析代码解析:transform_iterator1. transform_iterat

基于SpringBoot+Mybatis实现Mysql分表

《基于SpringBoot+Mybatis实现Mysql分表》这篇文章主要为大家详细介绍了基于SpringBoot+Mybatis实现Mysql分表的相关知识,文中的示例代码讲解详细,感兴趣的小伙伴可... 目录基本思路定义注解创建ThreadLocal创建拦截器业务处理基本思路1.根据创建时间字段按年进

C++中std::distance使用方法示例

《C++中std::distance使用方法示例》std::distance是C++标准库中的一个函数,用于计算两个迭代器之间的距离,本文主要介绍了C++中std::distance使用方法示例,具... 目录语法使用方式解释示例输出:其他说明:总结std::distance&n编程bsp;是 C++ 标准

vue使用docxtemplater导出word

《vue使用docxtemplater导出word》docxtemplater是一种邮件合并工具,以编程方式使用并处理条件、循环,并且可以扩展以插入任何内容,下面我们来看看如何使用docxtempl... 目录docxtemplatervue使用docxtemplater导出word安装常用语法 封装导出方

SpringBoot3实现Gzip压缩优化的技术指南

《SpringBoot3实现Gzip压缩优化的技术指南》随着Web应用的用户量和数据量增加,网络带宽和页面加载速度逐渐成为瓶颈,为了减少数据传输量,提高用户体验,我们可以使用Gzip压缩HTTP响应,... 目录1、简述2、配置2.1 添加依赖2.2 配置 Gzip 压缩3、服务端应用4、前端应用4.1 N

Linux换行符的使用方法详解

《Linux换行符的使用方法详解》本文介绍了Linux中常用的换行符LF及其在文件中的表示,展示了如何使用sed命令替换换行符,并列举了与换行符处理相关的Linux命令,通过代码讲解的非常详细,需要的... 目录简介检测文件中的换行符使用 cat -A 查看换行符使用 od -c 检查字符换行符格式转换将

SpringBoot实现数据库读写分离的3种方法小结

《SpringBoot实现数据库读写分离的3种方法小结》为了提高系统的读写性能和可用性,读写分离是一种经典的数据库架构模式,在SpringBoot应用中,有多种方式可以实现数据库读写分离,本文将介绍三... 目录一、数据库读写分离概述二、方案一:基于AbstractRoutingDataSource实现动态