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

總結

以上是生活随笔為你收集整理的Vb Shell 打开程序 等待运行完毕后再继续的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。