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
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