QTP几种信息提示方法

1.      Reporter对象的ReportEvent方法

描述

在test result中报告测试结果。

语法

Reporter.ReportEvent EventStatus, ReportStepName, Details [, in]

Argument	Type	Descrīption
EventStatus	Number or pre-defined constant	状态值: 0 或 micPass:将本步骤的运行结果状态设置为“Pass”，并向Result中产生报告信息。 如果想在报告中生成“通过”报告，用本状态值。 1 或 micFail: 将本步骤的运行结果状态设置为“Fail”，并向Result中产生报告信息。当脚本中运行本语句时，整个测试的结果状态是“fails”。 如果想在报告中生成“失败”报告，用本状态值。如果运行了本语句，则整个测试的状态为“Fail”。 2 或 micDone:仅向Result中产生报告信息，但不影响整个测试的结果状态。 如果想在报告中生成“完成”报告，用本状态值。 3 或 micWarning: S向Result中产生报告信息，但是不会中断测试的运行，也不影响测试的 pass/fail status。 如果想在报告中生成“警告”报告，用本状态值。运行这个语句后，整个测试结果状态为“Warning”。
ReportStepName	String	将在报告中显示的步骤名称(object name).
Details	String	报告的详细信息。这些信息是本条报告的“Details”信息。
in	N/A	Not in use.

 

举例： 下面的例子使用ReprotEvent方法来报告一个失败信息。

Reporter.ReportEvent 1, "Custom Step", "The user-defined step failed."

或

Reporter.ReportEvent micFail, "Custom Step", "The user-defined step failed."

2.      MsgBox 函数

在运行脚本的过程中，弹出对话框，等待用户手工点击按钮干预。本语句根据用户点击按钮的情况得到返回值。

这个语句适用于脚本的调试过程。

Ø         语法

MsgBox(prompt[, buttons][, title][, helpfile, context])

Ø         参数

prompt 将在对话框中显示的信息。最大长度为1024字符。如果内容有多行，可以用(Chr(13))来表示回车符，或用(Chr(10))表示换行符，或用(Chr(13) & Chr(10))表示回车-换行符。

buttons 按钮的值。默认值为0。

title 弹出框的标题，将显示在标题栏。

Ø         Settings

按钮值的说明:

内容	值	描述
vbOKOnly	0	只显示OK按钮
vbOKCancel	1	显示OK以及Cancel按钮。
vbAbortRetryIgnore	2	显示Abort、Retry以及Ignore按钮。
vbYesNoCancel	3	显示Yes、No以及Cancel按钮
vbYesNo	4	显示Yes和No按钮
vbRetryCancel	5	显示Retry和Cancel按钮
vbCritical	16	Display Critical Message icon.
vbQuestion	32	Display Warning Query icon.
vbExclamation	48	Display Warning Message icon.
vbInformation	64	Display Information Message icon.
vbDefaultButton1	0	First button is default.
vbDefaultButton2	256	Second button is default.
vbDefaultButton3	512	Third button is default.
vbDefaultButton4	768	Fourth button is default.
vbApplicationModal	0	应用程序模式。用户必须对信息框做出响应，脚本运行才能继续。
vbSystemModal	4096	系统模式。所有的应用被挂起，直到用户对信息框做出响应。

Ø         返回值

MsgBox功能的返回值

内容	值	按钮
vbOK	1	OK
vbCancel	2	Cancel
vbAbort	3	Abort
vbRetry	4	Retry
vbIgnore	5	Ignore
vbYes	6	Yes
vbNo	7	No

用 变量名＝MsgBox(prompt[, buttons][, title][, helpfile, context])的方法获取返回值。

 

 

3.      InputBox函数

弹出对话框，等待用户输入内容或点击按钮。返回值是输入的内容。

Ø         语法

InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

Ø         Arguments

prompt 将在对话框中显示的信息。最大长度为1024字符。如果内容有多行，可以用(Chr(13))来表示回车符，或用(Chr(10))表示换行符，或用(Chr(13) & Chr(10))表示回车-换行符。

title 弹出框的标题，将显示在标题栏。

default 输入框的默认值。

Ø         例

Dim Input

Input = InputBox("Enter your name")

MsgBox ("You entered: " & Input)

4.      WshSell对象的Popup Method

在一个弹出框中显示文本信息。

Ø         语法

intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType])

Ø         Arguments

object  WshShell对象.

strText 希望在弹出框中显示的文本信息。

nSecondsToWait 可选。希望弹出框保持显示的最长时间。（单位秒）。

strTitle 弹出框的标题

nType 一个数值，代表希望在弹出框中显示的按钮或图标。这个值决定了如何使用信息框。

IntButton 返回值。表示用户点击的按钮值。

Ø         注意

无论which host executable file is running (Wscrīpt.exe or Cscrīpt.exe)，Popup method都会弹出信息框。

如果nSecondsToWaitis 为0，弹出框一直等到用户干预才关闭。如果nSecondsToWaitis 大于0，如果没有用户干预，则弹出框一直等到nSecondsToWaitis时间后自动关闭。

如果不设置“strtitle”，则弹出框的标题默认为"Windows scrīpt Host."。

“nType”的意思与MessageBox function的ntype相同。

按钮值

值	描述
0	显示OK按钮.
1	显示OK及Cancel按钮。
2	显示Abort, Retry, 及Ignore按钮。
3	显示Yes, No, 及Cancel按钮。
4	显示Yes及 No按钮。
5	显示 Retry 及 Cancel按钮。

图标类型值

值	描述
16	显示"Stop Mark"图标。
32	显示 "Question Mark"图标。
48	显示 "Exclamation Mark"图标。
64	显示"Information Mark"图标。

返回值

如果用户没有在窗口等待的时间范围内（nSecondsToWait）点击按钮，则返回－1。

值	描述
1	OK按钮
2	Cancel 按钮
3	Abort 按钮
4	Retry 按钮
5	Ignore 按钮
6	Yes 按钮
7	No 按钮

Ø         Example

 [VBscrīpt]

Dim WshShell, BtnCode

Set WshShell = Wscrīpt.CreateObject("Wscrīpt.Shell")

BtnCode = WshShell.Popup("Do you feel alright?", 7, "Answer This Question:", 4 + 32)

Select Case BtnCode

   case 6      Wscrīpt.Echo "Glad to hear you feel alright."

   case 7      Wscrīpt.Echo "Hope you're feeling better soon."

   case -1     Wscrīpt.Echo "Is there anybody out there?"

End Select