我们如何找到应用程序是否通过 QTP 从任务管理器运行，但不是从"Processes"而是从"Applications"

Question

我们如何找到应用程序是否通过QTP从任务管理器运行，但不是从"进程"运行，而是从"应用程序"运行

Answer 1

我尝试使用桌面对象。希望您正在尝试找到可用的窗口标题。如果是这样，这里是方法

'负面案例

Msgbox IsProcessRunning("HP Unified",True)
'Positive Case
Msgbox IsProcessRunning("HPE Unified",True)
Public Function IsProcessRunning(ByVal Title,ByVal Contains)
    Dim blnIsRunning : blnIsRunning = False
    Set objDesc = Description.Create
    objDesc("micClass").Value = "Window"
    Set objCollection = Desktop.ChildObjects(objDesc)
    intWindowsCount = objCollection.Count - 1
    For intCount = 0 To intWindowsCount
        On Error Resume Next
        If IsObject(objCollection(intCount)) Then
            strWindowTitle = objCollection(intCount).GetROProperty("title")
            On Error GoTo 0
            If strWindowTitle <> "" Then
                If Contains And Instr(strWindowTitle,Title) > 0 Or Not Contains And Trim(Title) = Trim(strWindowTitle) Then
                    blnIsRunning = True
                    Exit For
                End If
            End If              
        End If
    Next
    IsProcessRunning = blnIsRunning
End Function