【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++调用libcurl调试消息的方式

《使用C/C++调用libcurl调试消息的方式》在使用C/C++调用libcurl进行HTTP请求时,有时我们需要查看请求的/应答消息的内容(包括请求头和请求体)以方便调试,libcurl提供了多种... 目录1. libcurl 调试工具简介2. 输出请求消息使用 CURLOPT_VERBOSE使用 C

C++实现获取本机MAC地址与IP地址

《C++实现获取本机MAC地址与IP地址》这篇文章主要为大家详细介绍了C++实现获取本机MAC地址与IP地址的两种方式,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 实际工作中,项目上常常需要获取本机的IP地址和MAC地址,在此使用两种方案获取1.MFC中获取IP和MAC地址获取

Redis如何使用zset处理排行榜和计数问题

《Redis如何使用zset处理排行榜和计数问题》Redis的ZSET数据结构非常适合处理排行榜和计数问题,它可以在高并发的点赞业务中高效地管理点赞的排名,并且由于ZSET的排序特性,可以轻松实现根据... 目录Redis使用zset处理排行榜和计数业务逻辑ZSET 数据结构优化高并发的点赞操作ZSET 结

使用PyQt实现简易文本编辑器

《使用PyQt实现简易文本编辑器》这篇文章主要为大家详细介绍了如何使用PyQt5框架构建一个简单的文本编辑器,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 目录分析主窗口类 (MyWindow)菜单操作语法高亮 (SyntaxHighlighter)运行程序主要组件代码图示分析实现

查询Oracle数据库表是否被锁的实现方式

《查询Oracle数据库表是否被锁的实现方式》本文介绍了查询Oracle数据库表是否被锁的方法,包括查询锁表的会话、人员信息,根据object_id查询表名,以及根据会话ID查询和停止本地进程,同时,... 目录查询oracle数据库表是否被锁1、查询锁表的会话、人员等信息2、根据 object_id查询被

deepseek本地部署使用步骤详解

《deepseek本地部署使用步骤详解》DeepSeek是一个开源的深度学习模型,支持自然语言处理和推荐系统,本地部署步骤包括克隆仓库、创建虚拟环境、安装依赖、配置模型和数据、启动服务、调试与优化以及... 目录环境要求部署步骤1. 克隆 DeepSeek 仓库2. 创建虚拟环境3. 安装依赖4. 配置模型

Pandas中多重索引技巧的实现

《Pandas中多重索引技巧的实现》Pandas中的多重索引功能强大,适用于处理多维数据,本文就来介绍一下多重索引技巧,具有一定的参考价值,感兴趣的可以了解一下... 目录1.多重索引概述2.多重索引的基本操作2.1 选择和切片多重索引2.2 交换层级与重设索引3.多重索引的高级操作3.1 多重索引的分组聚

微服务架构之使用RabbitMQ进行异步处理方式

《微服务架构之使用RabbitMQ进行异步处理方式》本文介绍了RabbitMQ的基本概念、异步调用处理逻辑、RabbitMQ的基本使用方法以及在SpringBoot项目中使用RabbitMQ解决高并发... 目录一.什么是RabbitMQ?二.异步调用处理逻辑:三.RabbitMQ的基本使用1.安装2.架构

在idea中使用mysql数据库超详细教程

《在idea中使用mysql数据库超详细教程》:本文主要介绍如何在IntelliJIDEA中连接MySQL数据库,并使用控制台执行SQL语句,还详细讲解了如何使用MyBatisGenerator快... 目录一、连接mysql二、使用mysql三、快速生成实体、接口、sql文件总结一、连接mysql在ID

Sentinel 断路器在Spring Cloud使用详解

《Sentinel断路器在SpringCloud使用详解》Sentinel是阿里巴巴开源的一款微服务流量控制组件,主要以流量为切入点,从流量路由、流量控制、流量整形、熔断降级、系统自适应过载保护、... 目录Sentinel 介绍同类对比Hystrix:Sentinel:微服务雪崩问题问题原因问题解决方案请