51Testing软件测试论坛

标题: 还是鼠标双击问题 [打印本页]

作者: wslf 时间: 2008-8-21 11:44
标题: 还是鼠标双击问题
录制一个弹出框的鼠标双击动作，却不成功，找了论坛上的相关贴子，如在web Event Recording Configuration里加ondblclick事件，然后录制，这样的方法虽然录制出了Browser("××系统").Page("Page").Frame("mainFrame").WebElement("10140001").FireEvent "ondblclick"这段脚本，但执行后，仍然没有选择上，是什么原因呢？
我现在就利用修改录制等级来跑脚本呢，但这种方法当页面位置变化时就容易出问题了。
--看之前的帖子，还有一个做法是创建DeviceReplay对象，如
Set devRap = CreateObject("Mercury.DeviceReplay")
devRap.MouseDblClick 500,715,LEFT_MOUSE_BUTTON
但不明白，这里的500,715是怎么取的，当网页位置变化时，是不是就会失败了？

[ 本帖最后由 wslf 于 2008-8-21 11:49 编辑 ]

作者: 假装不在 时间: 2008-8-21 11:55
你鼠标的回放模式没有改的原因。
你在option里面修改它的回放模式为mouse，不要event

作者: hero001 时间: 2008-8-21 12:25

作者: wslf 时间: 2008-8-21 14:03

是修改tools-options,中的web－Advanced中的Replay type为Mouse吗？我试了下，要这样修改，程序都没法回放了。

作者: 假装不在 时间: 2008-8-21 14:06
这样是可以的。但你要先确定代码是否写错了！

作者: wslf 时间: 2008-8-21 14:13
代码是我录制的啊，要不改这个选项，之前的几个步骤都还可以顺利回放，改了后，连登录都不行了，用户名、密码写不进去：
Browser("系统").Page("系统").WebEdit("userID").Set "TY01"
Browser("系统").Page("系统").WebEdit("passwd").SetSecure "48ad03c408811882"
Browser("系统").Page("系统").WebEdit("passwd").Submit
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable").FireEvent "onmouseover"
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable").FireEvent "onmousedown"
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable").Click
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable").FireEvent "onmouseover"
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable_2").FireEvent "onmouseover"
Browser("系统").Page("Page").Frame("topFrame1").WebElement("WebTable_2").Click
Browser("系统").Page("Page").Frame("mainFrame").Image("s").Click
Browser("系统").Page("Page").Frame("mainFrame").WebElement("10140001").FireEvent "ondblclick"
Browser("系统").Page("Page").Frame("mainFrame").Image("s_2").Click
Browser("系统").Page("Page").Frame("mainFrame").WebElement("WebElement").FireEvent "onmouseover"
Browser("系统").Page("Page").Frame("mainFrame").WebElement("88880081").FireEvent "ondblclick"
Browser("系统").Page("Page").Frame("mainFrame").WebElement("chkAll").FireEvent "onmouseover"
Browser("系统").Page("Page").Frame("mainFrame").WebButton("查询(Q)").Click

[ 本帖最后由 wslf 于 2008-8-21 14:14 编辑 ]

作者: 假装不在 时间: 2008-8-21 14:52
哎，看你送我花，我就再送多你个吧，不要在设置里面修改，可能影响到别的操作。
用代码修改：
1，修改掉ReplayType为2，一般情况默认设置是1的。
1 - 使用浏览器事件运行鼠标操作。
2 - 使用鼠标运行鼠标操作。
所以总的代码可以这么写：
Setting.WebPackage("ReplayType") = 2
Browser("××系统").Page("Page").Frame("mainFrame").WebElement("10140001").FireEvent "ondblclick"
Setting.WebPackage("ReplayType") = 1 '把它的回放模式设置回来。

作者: wslf 时间: 2008-8-21 15:46

这么说我送鲜花有效果啊，呵呵，开玩笑，你真是好人一个啊，多谢，我再试试。

[ 本帖最后由 wslf 于 2008-8-21 15:48 编辑 ]

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