【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

相关文章

Python位移操作和位运算的实现示例

《Python位移操作和位运算的实现示例》本文主要介绍了Python位移操作和位运算的实现示例,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一... 目录1. 位移操作1.1 左移操作 (<<)1.2 右移操作 (>>)注意事项:2. 位运算2.1

如何在 Spring Boot 中实现 FreeMarker 模板

《如何在SpringBoot中实现FreeMarker模板》FreeMarker是一种功能强大、轻量级的模板引擎,用于在Java应用中生成动态文本输出(如HTML、XML、邮件内容等),本文... 目录什么是 FreeMarker 模板?在 Spring Boot 中实现 FreeMarker 模板1. 环

Qt实现网络数据解析的方法总结

《Qt实现网络数据解析的方法总结》在Qt中解析网络数据通常涉及接收原始字节流,并将其转换为有意义的应用层数据,这篇文章为大家介绍了详细步骤和示例,感兴趣的小伙伴可以了解下... 目录1. 网络数据接收2. 缓冲区管理(处理粘包/拆包)3. 常见数据格式解析3.1 jsON解析3.2 XML解析3.3 自定义

使用Python和Pyecharts创建交互式地图

《使用Python和Pyecharts创建交互式地图》在数据可视化领域,创建交互式地图是一种强大的方式,可以使受众能够以引人入胜且信息丰富的方式探索地理数据,下面我们看看如何使用Python和Pyec... 目录简介Pyecharts 简介创建上海地图代码说明运行结果总结简介在数据可视化领域,创建交互式地

SpringMVC 通过ajax 前后端数据交互的实现方法

《SpringMVC通过ajax前后端数据交互的实现方法》:本文主要介绍SpringMVC通过ajax前后端数据交互的实现方法,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价... 在前端的开发过程中,经常在html页面通过AJAX进行前后端数据的交互,SpringMVC的controll

Java Stream流使用案例深入详解

《JavaStream流使用案例深入详解》:本文主要介绍JavaStream流使用案例详解,本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录前言1. Lambda1.1 语法1.2 没参数只有一条语句或者多条语句1.3 一个参数只有一条语句或者多

Spring Security自定义身份认证的实现方法

《SpringSecurity自定义身份认证的实现方法》:本文主要介绍SpringSecurity自定义身份认证的实现方法,下面对SpringSecurity的这三种自定义身份认证进行详细讲解,... 目录1.内存身份认证(1)创建配置类(2)验证内存身份认证2.JDBC身份认证(1)数据准备 (2)配置依

利用python实现对excel文件进行加密

《利用python实现对excel文件进行加密》由于文件内容的私密性,需要对Excel文件进行加密,保护文件以免给第三方看到,本文将以Python语言为例,和大家讲讲如何对Excel文件进行加密,感兴... 目录前言方法一:使用pywin32库(仅限Windows)方法二:使用msoffcrypto-too

Java Spring 中 @PostConstruct 注解使用原理及常见场景

《JavaSpring中@PostConstruct注解使用原理及常见场景》在JavaSpring中,@PostConstruct注解是一个非常实用的功能,它允许开发者在Spring容器完全初... 目录一、@PostConstruct 注解概述二、@PostConstruct 注解的基本使用2.1 基本代

C#使用StackExchange.Redis实现分布式锁的两种方式介绍

《C#使用StackExchange.Redis实现分布式锁的两种方式介绍》分布式锁在集群的架构中发挥着重要的作用,:本文主要介绍C#使用StackExchange.Redis实现分布式锁的... 目录自定义分布式锁获取锁释放锁自动续期StackExchange.Redis分布式锁获取锁释放锁自动续期分布式