51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1591|回复: 4
打印 上一主题 下一主题

[求助] 设置vTrue="True"后引用vTrue而不使用"1"为什么会报错

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-1-17 23:22:43 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'Step 1
'Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测").Link("高级模式").Click
Htmldisabled=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("html代码").Object.disabled
Htmlchecked=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("html代码").GetROProperty("checked")
Imgdisabled=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("[img] 代码").Object.disabled
Imgchecked=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("[img] 代码").GetROProperty("checked")
Print Htmldisabled
Print Htmlchecked
Print Imgdisabled
Print Imgchecked
If Htmldisabled="True" and Htmlchecked="0" and Imgdisabled="True" and Imgchecked="1" Then
Reporter.ReportEvent micPass,"Step 1","Passed"
Else
Reporter.ReportEvent micFail,"Step 1","Failed"
End If
'Step 2
Dim vTrue : vTrue="True"
Dim vFalse : vFalse="False"
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked=vFalse
checkVal1=Trim(Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked)
Print checkVal1
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("使用个人签名").Object.checked=vFalse
checkVal2=Trim(Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("使用个人签名").GetROProperty("checked"))
Print checkVal2
If checkVal1 = "False" and checkVal2 = "0" Then
Reporter.ReportEvent micPass,"Step 2","Passed"
Else
Reporter.ReportEvent micFail,"Step 2","Failed"
End If
'Step3
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").Object.checked=vTrue
checkVal3=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").GetROProperty("checked")
Print checkVal3
If checkVal3= "1" Then
Reporter.ReportEvent micPass,"Step 3","Passed"
Else
Reporter.ReportEvent micFail,"Step 3","Failed"
End If
这段代码是成功的,为什么下一段代码的检查点2和3是错的?
'Step 1
'Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测").Link("高级模式").Click
Htmldisabled=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("html代码").Object.disabled
Htmlchecked=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("html代码").GetROProperty("checked")
Imgdisabled=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("[img] 代码").Object.disabled
Imgchecked=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("[img] 代码").GetROProperty("checked")
Print Htmldisabled
Print Htmlchecked
Print Imgdisabled
Print Imgchecked
If Htmldisabled="True" and Htmlchecked="0" and Imgdisabled="True" and Imgchecked="1" Then
Reporter.ReportEvent micPass,"Step 1","Passed"
Else
Reporter.ReportEvent micFail,"Step 1","Failed"
End If
'Step 2
Dim vTrue : vTrue="True"
Dim vFalse : vFalse="False"
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked=vFalse
checkVal1=Trim(Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked)
Print checkVal1
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("使用个人签名").Object.checked=vFalse
checkVal2=Trim(Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("使用个人签名").GetROProperty("checked"))
Print checkVal2
If checkVal1 = vFalse and checkVal2 = vFalse Then
Reporter.ReportEvent micPass,"Step 2","Passed"
Else
Reporter.ReportEvent micFail,"Step 2","Failed"
End If
'Step3
Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").Object.checked=vTrue
checkVal3=Browser("[QuickTest Pro] - 51Testing软件测").Page("[QuickTest Pro] - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").GetROProperty("checked")
Print checkVal3
If checkVal3= vTure Then
Reporter.ReportEvent micPass,"Step 3","Passed"
Else
Reporter.ReportEvent micFail,"Step 3","Failed"
End If
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2013-1-18 09:11:29 | 只看该作者
本帖最后由 xjwldlover 于 2013-1-18 09:49 编辑

水贴?这么长,不用搜索就看不懂哈
"True" 是字符串 True 是常量,用错了。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2013-1-19 17:05:43 | 只看该作者
回复 2# xjwldlover
那要怎么设置呢
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2013-1-21 10:49:42 | 只看该作者
    回复 1# xieyuee


        以后这种长代码,建议还是多加点注释吧,看着太麻烦就不会有太多人愿意回答了。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2013-1-25 09:28:57 | 只看该作者
    回复 4# 黑羽祭


        好的,谢谢提醒
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-14 03:37 , Processed in 0.072190 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表