《精通QTP-自动化测试技术领航》学习笔记3-webcheckbox对象

测试需求：测试发帖-高级模式，“html代码”和“img代码”的默认状态，取消勾选“关注此主题的回复”和“使用个人签名”，勾选“倒序看帖”和“回复仅作者看见"

代码：

'前提：进入51论坛，软件测试新手版块，点击发帖，点击高级模式
With browser("[软件测试新手上路] - 51Testing软件测试论坛").Page("[软件测试新手上路] - 51Testing软件测试论坛")
'校验“html代码”和“img代码”是否不可点击，且img代码是默认勾选的
     disabled1=trim(.WebCheckBox("html代码").Object.disabled )
     checked1=trim(.WebCheckBox("html代码").Object.checked)
     disabled2=trim(.WebCheckBox("img代码").GetROProperty("disabled"))
     checked2=trim(.WebCheckBox("img代码").GetROProperty("checked"))
     If disabled1="True" and disabled2="1" and checked1="False" and checked2="1"Then
         reporter.ReportEvent micPass ,"校验html和img成功","passed"
     else
        reporter.ReportEvent micFail ,"校验html和img失败","failed"
     End If
    '校验取消勾选“关注此主题的回复”和“使用个人签名”
     '.WebCheckBox("关注此主题的回复").Object.checked="False"
     .WebCheckBox("关注此主题的回复").Set "OFF"
      checked_an=trim(.WebCheckBox("关注此主题的回复").Object.checked)
     '.WebCheckBox("关注此主题的回复").Set "OFF"
     '也可以使用封装好的方法set，off代表取消勾选
     .WebCheckBox("使用个人签名" ).Set "OFF"
     checked_sigh=trim(.WebCheckBox("使用个人签名").GetROProperty("checked"))
'     msgbox checked_an
'     msgbox checked_sigh
   If checked_an="False" and checked_sigh="0" Then
         reporter.ReportEvent micPass ,"反选成功","passed"
   else
      reporter.ReportEvent micFail,"反选失败 ","failed"
   End If
'校验勾选“倒序看帖”和“回复仅作者看见”
   .WebCheckBox("倒序看帖").Object.checked="True"
   checked_or=trim(.WebCheckBox("倒序看帖").Object.checked)
   .WebCheckBox("回帖仅作者看见").Set "ON"
   checked_au=trim(.WebCheckBox("回帖仅作者看见").GetROProperty("checked"))
'   msgbox checked_or
'   msgbox checked_au
   If checked_or="True" and checked_au="1" Then
       reporter.ReportEvent micPass ,"勾选成功","passed"
   else
      reporter.ReportEvent micFail,"勾选失败 ","failed"
   End If
end With

学习笔记：

1.调用自身接口属性和封装接口属性时，相同的属性名，可能显示不同

如INNERTEXT在自身接口中显示的是innerText，在封装接口中显示的属性名却是innertext,如果将属性名写错，会导致获取属性值为空的情况

2.调用自身接口属性和封装接口属性时，相同的属性名，可能获取的属性值大不相同

如checked在自身接口中的值是True或False，在封装接口中的值是1或0