vb判断程序是否运行,VB检测某EXE是否在运行状态代码分享

        Public Function baogao(ByVal xiaoxi As String)

                Dim hWnd As Long

                Form1.Cls

                hWnd = FindWindow(vbNullString, "软件名字") ' 取得进程标识符

                If hWnd <> 0 Then

                      msgbox "软件没有运行"

                End If

        End Function

上面这段代码就是检测某个程序是否正在运行的代码，大家可自行修改成你想要的代码