代碼 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)
?????????????'等待目標(biāo)進(jìn)程退出再繼續(xù)
?????????????r?=?WaitForSingleObject(p,?INFINITE)
?????????????While?r?>?0
?????????????????DoEvents
?????????????Wend
?????????????'''關(guān)閉進(jìn)程
?????????????r?=?CloseHandle(p)

End?Sub

?

轉(zhuǎn)載于:https://www.cnblogs.com/lano/archive/2009/12/09/1620093.html

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。