如何用SHELL函数非异步方式运行可执行文件

Question

'ShellWait示例
'先点击command3运行Notepad.exe
'然后再点点Command1
'如果在10秒之内关闭Notepad,则弹出提示框0
'如果10秒内未关闭Notepad.则弹出提示框258'in a Form
Option ExplicitDim ProcessID As LongPrivate Sub Command1_Click()
Dim WaitHandle As Long
Dim Ret As Long
    WaitHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
    Ret = WaitForSingleObject(WaitHandle, 3000)
    CloseHandle WaitHandle
    MsgBox Ret
End SubPrivate Sub Command3_Click()
    ProcessID = Shell("notepad.exe")
End Sub'in a moduleOption ExplicitPublic Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongPublic Const SYNCHRONIZE = &H100000'///////////////////////////////////////////
'函数名称:ShellWait( Process , [Timeout] )
'函数功能:等待程序运行结束
'参数说明:
'   [ProcessID]:程序进程ID(Shell函数返回值)
'   [Timeout]:超时时间(单位:毫秒),缺省为20秒
'返回值(Long型):
'   [258]超时(进程未结束)
'   [0]进程已结束
'   [-1]不存在的进程
'///////////////////////////////////////////
Public Function ShellWait(ProcessID As Long, Optional Timeout As Long = 20000) As Long
Dim WaitHandle As Long
    WaitHandle = OpenProcess(SYNCHRONIZE, True, ProcessID)
    ShellWait = WaitForSingleObject(WaitHandle, Timeout)
    CloseHandle WaitHandle
End Function---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。

Answer 1

真是谢谢上面这位《为你伤心》大哥,你的程序很好，可你的诗是更加的感人啊，我想说：“心心，我好感到哦！",我决定把20分送给你，可说实在的，我还不知道怎样把分数送给你呢？嘿嘿，我好丢脸哦~~

Answer 2

上面这位伤心大哥，你的程序很好，可你的诗是更加的感人啊，我想说："心心大哥，我好感动哦！",我决定把这20分送给你，可说实在的，我还不知道怎么送分给人家呢，真是丢脸哦~~，有人知道，对我说一下好吗？（这个问题没分~）

Answer 3

点击问题列表最后的管理...---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。

Answer 4

哎，怎么客气干吗，应该我谢你才对呀，真是的~~~！