最好是简单一点的代码，越简单越好，循环执行。VB监控进程：
Private Sub Form_Load()
If exitproc("QQ.exe") = True Then       '假如QQ..exe存在
返回上面，重新开始检测。

Else     '假如不存在(直至到不存在)，则执行下面代码
Call Shell("notepad.exe", 1)        '启动记事本
End If
End Sub