检测后台进程,如
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
msgbox(ps.length)
----------------------循环所有进程,参考
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("Excel" = p.ProcessName)
msgbox(p.MainWindowTitle)
'p.kill
End If
Next