|
回复 19# 的帖子
下面是action1 ‘ 完成copy的操作
Dim i,test,mydescription,mydescription1
wait 2
DbTable("DbTable").Output CheckPoint("DbTable")
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").VirtualObject("object_Action_new spec").Click 49,11
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").WebElement("Copy...").FireEvent "onmouseover"
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").WebElement("Copy...").FireEvent "onmouseout"
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").Link("Link").Click
Set test=Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise")
Set mydescription=Description.Create()
Set mydescription1=description.Create()
mydescription("type").value="checkbox"
mydescription("html id").value="ckb_2"
mydescription1("type").value="button"
mydescription1("class").value="btn_ok"
If test.WebCheckBox(mydescription).GetROProperty("checked")<>"on" Then
test.WebCheckBox(mydescription).Set "ON" ‘ 选择folder
End If
test.WebButton(mydescription1).Click ’点击保存按钮,copy 完成
set mydescription=nothing
set mydescription1=nothing
set test=nothing
Action2 ’完成move操作
Dim test,a
wait(2)
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").VirtualObject("object_Action_new spec").Click 51,10
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").WebElement("Move To...").FireEvent "onmouseover"
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").WebElement("Move To...").FireEvent "onmouseout"
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("issueList").Link("Link").Click
Set test=Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise")
a=test.WebCheckBox("type:=checkbox", "html id:=ckb_2").GetROProperty("checked")
If a<>"on" Then
test.WebCheckBox("type:=checkbox", "html id:=ckb_2").Set "ON" ‘选中和copy操作时一样的folder
End If
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").WebButton("type:=button", "class:=btn_ok").Click ’点击保存按钮,move完成
set test=nothing
Browser("TechExcel KnowledgeWise").Page("TechExcel KnowledgeWise").Frame("topframe").WebButton("WebButton").WaitProperty "Visible", true, 100000
[ 本帖最后由 131425god 于 2010-7-22 11:52 编辑 ] |
|