|
问题解决了
现在该问题已经解决了。我参考了robot help中的ComboBoxVP函数附带的一个example后,照着上面的写法试了一下,果然成功了。那个example中关于验证点的语句是这样写的:Result = ComboBoxVP (CompareData, "Type=HTMLFrame;HTMLId=Main;\;Type=ComboBox; Name=Selectlist", "VP=SELECTVP1;Wait=2,30")
大家注意看,该句的"Type=HTMLFrame;HTMLId=Main;\;Type=ComboBox; Name=Selectlist"-------它同样是定位一个frame内的combobox控件,但其并没有写第一个“HTMLTitle=”的内容,所以我联想到我这样的情况是不是同样也可以这样进行定位。结果我修改我上午的代码如下:
Sub Main
Dim Result As Integer
dim strText as variant
'Initially Recorded: 2005-10-24 9:55:07
'Script Name: temp4
StartBrowser "http://10.200.1.66/index.html", "WindowTag=web"
Window SetContext, "WindowTag=web", ""
Browser NewPage,"HTMLTitle=办公集成环境",""
HTMLLink Click, "HTMLText=设立机关", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=main",""
Browser NewPage,"HTMLTitle=办公集成环境",""
ComboBox Click, "Type=ComboBox;Name=select2", ""
'ComboListBox Click, "Type=ComboListBox;Name=select2", "Text=正科级"
result=sqagetproperty("Type=HTMLFrame;HTMLId=main;\;Type=ComboBox;Name=select2","innerText",strText)
msgbox strText
End Sub
运行,果然strText返回了期望的值。
现在这个result的写法跟司空斑竹写的result有所不同,也就是我原来的那种写法。原因现在还不太清楚,希望各位可以对照代码讨论讨论,相信会对有frame的页面的控件抓取会有所帮助,也希望碰到同样情况的同仁可以参考我的做法试一试,看能否成功。 |
|