Question

能不能用VB编一个程序监测某个进程是否在运行？

能不能用VB编一个程序监测某个进程是否在运行如QQ.exe 如果检测到QQ.exe关闭了就弹出窗口提示，如果检测到QQ.exe还在的话就一直监测。。

Answer 1

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMIService.ExecQuery("select * from Win32_Process")
For Each p In ps

If p.Name = "QQ.exe" Then m = True
Next
If m <> True Then
MsgBox "qq已关闭"
Timer1.Interval = 0
End If
End Sub

Answer 2

楼上