xieyuee 发表于 2013-1-17 23:22:43

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

'Step 1
'Browser(" - 51Testing软件测").Page(" - 51Testing软件测").Link("高级模式").Click
Htmldisabled=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("html代码").Object.disabled
Htmlchecked=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("html代码").GetROProperty("checked")
Imgdisabled=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox(" 代码").Object.disabled
Imgchecked=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox(" 代码").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(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked=vFalse
checkVal1=Trim(Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked)
Print checkVal1
Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("使用个人签名").Object.checked=vFalse
checkVal2=Trim(Browser(" - 51Testing软件测").Page(" - 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(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").Object.checked=vTrue
checkVal3=Browser(" - 51Testing软件测").Page(" - 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(" - 51Testing软件测").Page(" - 51Testing软件测").Link("高级模式").Click
Htmldisabled=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("html代码").Object.disabled
Htmlchecked=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("html代码").GetROProperty("checked")
Imgdisabled=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox(" 代码").Object.disabled
Imgchecked=Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox(" 代码").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(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked=vFalse
checkVal1=Trim(Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("关注此主题的新回复").Object.checked)
Print checkVal1
Browser(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("使用个人签名").Object.checked=vFalse
checkVal2=Trim(Browser(" - 51Testing软件测").Page(" - 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(" - 51Testing软件测").Page(" - 51Testing软件测_2").WebCheckBox("回帖仅作者可见").Object.checked=vTrue
checkVal3=Browser(" - 51Testing软件测").Page(" - 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:29

本帖最后由 xjwldlover 于 2013-1-18 09:49 编辑

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

xieyuee 发表于 2013-1-19 17:05:43

回复 2# xjwldlover
那要怎么设置呢

黑羽祭 发表于 2013-1-21 10:49:42

回复 1# xieyuee


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

xieyuee 发表于 2013-1-25 09:28:57

回复 4# 黑羽祭


    好的，谢谢提醒
页: [1]
查看完整版本: 设置vTrue="True"后引用vTrue而不使用"1"为什么会报错