如何使用QTP检查网页中显示的文字颜色为指定的颜色

       这里我们使用DOM(Document Object Model )编程技术来完成这一功能的检查。下面举个例子来说明一下：

       以Mercury自带的定票网站为例，在用户注册页面中，用户名、密码和确认密码三项的文字应为红色显示，下面的代码验证了“密码”为红色。

Set Elements = Browser("Register: Mercury Tours").Object.Document.all.tags("TD")

For each Element in Elements

  If Element.InnerText=“Password:" Then

    strhtml=Element.Innerhtml

    n=instr(strhtml,"color=read")

    If n<>0 Then

      Reporter.ReportEvent 0, Element.InnerText, "Text color is red!"

    End If

  End If

Next

       其中Element.Innerhtml的值为<FONT face="Arial, Helvetica, sans-serif" color=red size=2><B>Password:</B></FONT>, 可以看见color=red就是定义了文字的颜色为红色,所以我们在之后的代码中只要验证Element.Innerhtml中存不存在color=red就可以了。

       不是所有的html代码都是如上编写的，有的时候会把style单独存放在一个css文件中，然后在网页中调用，如<FONT class=redcode>Password:</FONT>,所以我们要根据实际取到的Element.Innerhtml值来编写后面的程序，这里就要验证Element.Innerhtml中存不存在class=redcode，即代码第五行改为 n=instr(strhtml,"class=redcode")。

       所以大家要根据代码的实际情况来编程验证，这里只提供了一种验证的方法。我也找到另外一种,紧供参考:

How to know color of an object

' Example:

Dim color

'Grey. Use "#000000" for black

color = "#999"

'Get the DOM object for the text

Set TxtObj = Browser("myBrowser").Page("myPage").WebElement("myWebElement").Object

retVal = FontColorCheckPoint ( TxtObj, color )

Function FontColorCheckPoint ( obj, vExpColour )

Dim vActualcolor, sReportStepName, sErrMsg

' get object's color

vActualcolor = obj.currentStyle.color

sReportStepName = "Custom Checkpoint ""Font Color"""

sMsg = "The expected color " & vExpColour & " was found"

'sErrMsg = "The expected color " & vExpColour & " was NOT found. Found " & vActualcolor & " instead."

sErrMsg = "The expected color " & vExpColour & " for the object " & Chr(34) & obj.innertext & Chr(34) & " was NOT found. Found " & vActualcolor & " instead."

If vActualcolor <> vExpColour Then

Reporter.ReportEvent 1, sReportStepName, sErrMsg

FontColorCheckPoint = False

Else

Reporter.ReportEvent 0, sReportStepName, sMsg

FontColorCheckPoint = True

End If

       以上内容为大家介绍了自动化测试中的如何使用QTP检查网页中显示的文字颜色为指定的颜色，本文由多测师亲自撰写，希望对大家有所帮助。了解更多自动化测试相关知识：https://www.aichudan.com/xwzx/