右键刷新

上一篇 / 下一篇 2008-08-30 17:55:26 / 个人分类：QuickTestProfessional

'右键刷新
cur_replay_type = Setting.WebPackage("ReplayType")
Setting.WebPackage("ReplayType") = 2
Browser("登录页面").Page("生产工程管理系统").Frame("mainFrame2").WebElement("部门列表供电公司").Click 10,0,micRightBtn
ExecuteFile ("D:\\qtp\\function\\mmouse.vbs")
Call modelMouse()

'此函数已经写在下面了

Function modelMouse()
   index =14
   Set WshShell = CreateObject("Wscrīpt.Shell")
   For i = 1 To index
   WshShell.sendKeys "{DOWN}"   '在弹出的右键菜单中依次下移到第14个
   'wait 1
   Next
   WshShell.sendKeys "{ENTER}" '选择刷新操作
   wait 10
   Set WshShell = nothing
End Function

收藏举报

TAG:

查看全部评论