|
5#
楼主 |
发表于 2005-7-5 11:25:23
|
只看该作者
下面是这一部分的代码,在(***)这一行出现错误,can't perform the action.
请指教。
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
Window SetTestContext, "WindowTag=WEBBrowser", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
'Browser NewPage,"HTMLTitle=无标题文档",""
Window SetTestContext, "WindowTag=WEBBrowser", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
result=sqagetproperty("Type=HTMLFrame;Name=admin_main;\;Type=ListBox;Name=rule_name","length",rulenum)
sqaconsolewrite str$(result)
sqaconsolewrite str$(rulenum)
if rulenum<>0 then
Window SetContext, "WindowTag=WEBBrowser", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
ListBox click, "Type=ListBox;Name=rule_name", "Index=1"(***)
PushButton Click, "Type=PushButton;Name=Submit_delete"
Window SetContext, "Caption=Microsoft Internet Explorer", ""
PushButton Click, "Text=确定"
Window SetContext, "WindowTag=WEBBrowser", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
Browser NewPage,"HTMLTitle=操作成功",""
HTMLLink Click, "Type=HTMLLink;HTMLText=返回", ""
Window SetTestContext, "WindowTag=WEBBrowser", ""
Browser SetFrame,"Type=HTMLFrame;HTMLId=admin_main",""
result=sqagetproperty("Type=HTMLFrame;Name=admin_main;\;Type=ListBox;Name=rule_name","length",rulenum)
end if |
|