代码
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
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