点击下一步

上图三个红色圈的问题，用qtp的object spy 侦查了下是三个webelement，属性除了文本不一样其它相同。这三个问题随机出现，不好确定问题究竟是哪一个。我的思路是把这个页面中所有的webelement 集合拿出来，通过下标来标识问题一问题二问题三

Set we=Description.Create()

owe("micclass").Value="WebElement"

owe("htmltag").Value="SPAN"

set wes=Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").ChildObjects(we)//拿出所有html tag 为span的webelement

你会发现这个页面不只这三个webelement。利用msgbox wes(0).GetROProperty("innertext")输出第一个webelement的文本看是不是第一个问题，如不是msgbox owes(1).GetROProperty("innertext")输出第二个webelement的文本进行查看，依此类推。 经过输出文本查看得出结果：wes(1)为问题一，wes(3)为问题二，wes（5）为问题三

下面是完整脚本

Browser("QQ安全中心").Page("QQ安全中心_2").Link("立即设置").Click

Browser("QQ安全中心").Page("QQ安全中心_3").Link("立即设置").Click

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebList("dna_ques_1").Select"您母亲的姓名是？"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebEdit("dna_answer_1").Set"学习乐一"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebList("dna_ques_2").Select"您高中班主任的名字是？"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebEdit("dna_answer_2").Set"学习乐二"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebList("dna_ques_3").Select"对您影响最大的人名字是？"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").WebEdit("dna_answer_3").Set"学习乐三"

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_2").Link("下一步").Click

Set we=Description.Create()

we("micclass").Value="WebElement"

we("htmltag").Value="SPAN"

set wes=Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").ChildObjects(we)

If  wes(1).GetROProperty("innertext")="您母亲的姓名是？"Then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_1").Set"学习乐一"

elseif wes(1).GetROProperty("innertext")="您高中班主任的名字是？"  then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_1").Set"学习乐二"

else

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_1").Set"学习乐三"

End If

if wes(3).GetROProperty("innertext")="您母亲的姓名是？"Then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_2").Set"学习乐一"

elseif wes(3).GetROProperty("innertext")="您高中班主任的名字是？"  then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_2").Set"学习乐二"

else

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_2").Set"学习乐三"

End If

if wes(5).GetROProperty("innertext")="您母亲的姓名是？"Then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_3").Set"学习乐一"

elseif wes(5).GetROProperty("innertext")="您高中班主任的名字是？"  then

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_3").Set"学习乐二"

else

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").WebEdit("dna_answer_3").Set"学习乐三"

End If

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame").Link("下一步").Click

Browser("QQ安全中心").Page("QQ安全中心").Frame("Frame_3").Link("下一步").Click

Browser("QQ安全中心").Page("QQ安全中心").Sync

'Browser("QQ安全中心").Close