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

如何使用qtp检查网页中显示的文字颜色为指定的颜色
文章出处：转载 作者： 发布时间：2006-12-29
	这里我们使用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