'Dim processes As Process() = Process.GetProcesses '所有进程
Dim processes As Process() = Process.GetProcessesByName("进程名称") '获取名称“进程名称”的所有进程,进程名称应该不用带后缀(.exe等)
Dim tmpProcess As Process
For Each tmpProcess In processes
Debug.Print(tmpProcess.ProcessName)
next