QTP第三方调试器PowerDebug试用手记

今天试用了一下PowerDebug的Beta版本，下面介绍一下PowerDebug的主要功能。

 

1、写Log功能

在PowerDebug的输出窗口写Log。

例如：

        'Clear the error

        PowerDebug.ClearLog()

        'Don't report Time to the output window

        PowerDebug.ReportTimeInLog = False

        PowerDebug.Log("This is a text Log without Time")

 

        'Report Time to the output window

        PowerDebug.ReportTimeInLog = True

        PowerDebug.Log("This is a text Log with Time")

 

        'Save the log to a file

        PowerDebug.SaveLog("C:/Log.txt")

 

        Dim varLog

        'Returns the current text from the Log

        varLog = PowerDebug.GetLog()

 

2、使用GoTo语句

PowerDebug allow you to use Goto Statements. The Goto method takes input the tag name. The tag need to be present with the Prefix and the Postfix. Consider the below code

（需要用前缀和后缀指定GoTo跳转到的标签位置）

例如：

PowerDebug.GotoPrefix = "':"

PowerDebug.GotoPostfix = ":"

 

PowerDebug.Goto("JumpLocation")

MsgBox("This code should not be executed")

':JumpLocation:

MsgBox("Here after a jump")

 

'Goto statements can also be used to create a continue statement in a loop

For i = 0 To 10

    If i > 5 And i < 8 Then

        PowerDebug.Goto("ForContinue")

    End If

    PowerDebug.Log("Printing Loop counter - " & i)

    ':ForContinue:

Next

 

 

3、查看当前代码运行环境

PowerDebug allows you to access current scope information which can be very useful for debugging information. The code sample below shows different information that can be accessed

 

例如：

Function CallMe()

    'Load the current Scope information

    PowerDebug.LoadInformation()

 

    PowerDebug.Log("Currently inside the function - " & PowerDebug.FunctionName)

    PowerDebug.Log("The function was called by - " & PowerDebug.Caller)

    PowerDebug.Log("The current code is: " & vbCrLf & vbCrLf & PowerDebug.CurrentCode)

    PowerDebug.Log("The current stack trace is: " & vbCrLf & vbCrLf & PowerDebug.StackTrace)

End Function

 

Function IamCallingCaller()

    Call CallMe()

End Function

 

Call IamCallingCaller

 

上面的脚本将输出以下信息：

[19-ËÄÔÂ-10|09:09:11] Currently inside the function - CallMe

[19-ËÄÔÂ-10|09:09:11] The function was called by - IamCallingCaller

[19-ËÄÔÂ-10|09:09:11] The current code is:

 

Function CallMe()

    'Load the current Scope information

    PowerDebug.LoadInformation()

 

 

    PowerDebug.Log("Currently inside the function - " & PowerDebug.FunctionName)

    PowerDebug.Log("The function was called by - " & PowerDebug.Caller)

    PowerDebug.Log("The current code is: " & vbCrLf & vbCrLf & PowerDebug.CurrentCode)

    PowerDebug.Log("The current stack trace is: " & vbCrLf & vbCrLf & PowerDebug.StackTrace)

End Function

 

 

Function IamCallingCaller()

    Call CallMe()

End Function

 

 

Call IamCallingCaller

 

[19-ËÄÔÂ-10|09:09:11] The current stack trace is:

 

CallMe!Line (6):PowerDebug.Log("Currently inside the function - " & PowerDebug.FunctionName)

IamCallingCaller!Line (14):Call CallMe()

VBScript global code!Line (18):Call IamCallingCaller

VBScript global code!Line (1):RunAction "Action1", oneIteration

 

 

4、用Assert语句实现断点

PowerDebug doesn't support QTP's breakpoint. So to pause execution or simulate a breakpoint one needs to use Assert method. Assert method when passed a False value pauses the execution

 

例如：

'Break execution on next statement

PowerDebug.Assert False

 

Print "The execution should be paused here"

 

 

 

5、PowerDebug的Command窗口、Watch窗口、Variable窗口、Code窗口、Output窗口、CallStack窗口大大增强了QTP的调试能力和易用性。

 

 

6、WaitForAllObjectExist方法

PowerDebug提供的WaitForAllObjectExist方法可以用于判断多个对象是否存在，而仅仅用一个语句：

bool WaitForAllObjectExist(int timeoutInSeconds, object obj1, [object obj2]....)

 

Returns true if all the passed objects exist within specified time, else returns false

 

例如：

Set obj1 = Window("regexpwndtitle:=File1.*")

Set obj2 = Window("regexpwndtitle:=File2.*")

 

'Wait for 10 seconds max for all objects to exist

Msgbox PowerDebug.WaitForAllObjectExist(10, obj1, obj2)

 

还有一个类似的方法是WaitForAnyObjectExist，用于判断指定的若干个对象中是否有任意一个是存在的。关于该方法的使用可以参考PowerDebug的帮助文档，也可以参考作者主页上的文章：

http://knowledgeinbox.com/products/powerdebug/enhancing-scripts-perfomance-using-waitforanyobjectexist/

 

 

 

 

 

 

试用PowerDebug的Beta版本发现还不太稳定，有时候会停止响应。