51Testing软件测试论坛

标题: 一个测试java程序的问题 [打印本页]

作者: zhuzhihan 时间: 2010-4-12 17:26
标题: 一个测试java程序的问题
JavaWindow("Workflow").JavaDialog("Devices").JavaList("DevicePanel$DeviceMutableJList").Select "#0"

上述javalist中有三个item,分别是#0，#1，#2，需要把其中一个拖到另一个界面中。怎么实现啊？。。。对象只能识别到javalist，可是其中的item好像不能用mousedrag啊……

[ 本帖最后由 zhuzhihan 于 2010-4-13 10:29 编辑 ]

作者: TIB 时间: 2010-4-12 21:54
用MouseDrag试试吧

作者: zhuzhihan 时间: 2010-4-13 08:46

原帖由 TIB 于 2010-4-12 21:54 发表
用MouseDrag试试吧

...识别不了图标对象，怎么用mousedrag方法？。。。

作者: TIB 时间: 2010-4-13 11:04
JavaWindow("Workflow").JavaDialog("Devices").JavaList("DevicePanel$DeviceMutableJList").MouseDrag

作者: haiwa957 时间: 2010-4-13 11:11
这个好像比较难实现的，你可以用wscript.shell发送键盘键试一下，可以先将其中一个item选定，然后按住其中一个键盘键，并且移动鼠标到指定位置，然后松开按住的键盘键，其中移动鼠标可以用以下的语句
Set devReplay = CreateObject("mercury.devicereplay")
devReplay.MouseMove x , y
发送键盘键的方法如下：
Function SendKeyBoard(Strng)
Dim key, WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.sendKeys Strng
Set WshShell = nothing
End Function

作者: 风雪夜归人 时间: 2010-4-13 15:16
lz是否试过录制?好像有drop,drag的说
Window("Program Manager").WinListView("SysListView32").DragItem "SetIEUnvisible"
Window("Program Manager").WinListView("SysListView32").Drop 1035,74
比如这样的

作者: zhuzhihan 时间: 2010-4-13 16:32

原帖由 haiwa957 于 2010-4-13 11:11 发表
这个好像比较难实现的，你可以用wscript.shell发送键盘键试一下，可以先将其中一个item选定，然后按住其中一个键盘键，并且移动鼠标到指定位置，然后松开按住的键盘键，其中移动鼠标可以用以下的语句
Set devReplay ...

谢谢！不过其中的xy是基于整个屏幕比如1024x768还是基于窗口的啊？如何清楚的知道你想移动到的那个位置的xy分别是多少呢？

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