51Testing软件测试论坛

标题: 鼠标右键操作，可惜系统不支持键盘操作，有没有直接模拟鼠标操作的 [打印本页]

作者: fsweicaixia 时间: 2014-1-28 11:05
标题: 鼠标右键操作，可惜系统不支持键盘操作，有没有直接模拟鼠标操作的
Browser("系统登录页面").Page("系统登录页面").WebEdit("WebEdit").Set "peter"
Browser("系统登录页面").Page("系统登录页面").WebEdit("WebEdit_2").SetSecure "52e7190061fe2a6299ca63e499763293e51fa725"
Browser("系统登录页面").Page("系统登录页面").WebButton("登录").Click
Browser("系统登录页面").Page("业务流程管理系统").Link("系统管理").Click
Browser("系统登录页面").Page("业务流程管理系统").Link("管理1").Click
Browser("系统登录页面").Page("业务流程管理系统_2").Link("管理2").Click
Setting.WebPackage("ReplayType")=2
Browser("系统登录页面").Page("业务流程管理系统_2").WebElement("右键项").highlight
Browser("系统登录页面").Page("业务流程管理系统_2").WebElement("右键项").Click,,micRightBtn
Set wshShell = CreateObject("WScript.Shell")
wshShell.SendKeys"{DOWN}"'向下键
wshShell.SendKeys"{DOWN}"
wshShell.SendKeys"{EnTER}"'回车键
Setting.WebPackage("ReplayType")=1

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)