Vb Shell 打开程序等待运行完毕后再继续

转载于 2019-07-26 19:00:30 发布 · 930 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lano/archive/2009/12/09/1620093.html

文章标签：

#shell #c/c++

本文介绍了一个使用Visual Basic调用Windows API的示例，通过声明内核API函数来实现进程操作，如打开、等待和关闭指定的进程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject 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 Const INFINITE = -1&
Private Const SYNCHRONIZE = &H100000

Sub GbossSetup()

          '''打开程序
             a = Shell(App.Path & "/GBoss_Key.exe", vbNormalFocus)
             p = OpenProcess(SYNCHRONIZE, False, a)
             '等待目标进程退出再继续
             r = WaitForSingleObject(p, INFINITE)
             While r > 0
                 DoEvents
             Wend
             '''关闭进程
             r = CloseHandle(p)

End Sub

转载于:https://www.cnblogs.com/lano/archive/2009/12/09/1620093.html