51Testing软件测试论坛

标题: 设置vTrue="True"后引用vTrue而不使用"1"为什么会报错 [打印本页]

作者: xieyuee 时间: 2013-1-17 23:22
标题: 设置vTrue="True"后引用vTrue而不使用"1"为什么会报错
'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

作者: xjwldlover 时间: 2013-1-18 09:11
本帖最后由 xjwldlover 于 2013-1-18 09:49 编辑

水贴？这么长，不用搜索就看不懂哈
"True" 是字符串 True 是常量，用错了。

作者: xieyuee 时间: 2013-1-19 17:05
回复 2# xjwldlover
那要怎么设置呢

作者: 黑羽祭 时间: 2013-1-21 10:49
回复 1# xieyuee

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

作者: xieyuee 时间: 2013-1-25 09:28
回复 4# 黑羽祭

好的，谢谢提醒

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)