主题：[求助]求助关于电脑里是否已打开QQ进程的函数以及打开指定路径程序

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("QQ")

If ps.length>0 Then

    MessageBox.show("已经打开")

else

   Dim Proc As New Process '定义一个新的Process

Proc.File = "D:\QQ.exe" '指定要打开的文件

Proc.Start()

End If