zhuzhihan 发表于 2010-4-12 17:26:52

一个测试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:58

用MouseDrag试试吧

zhuzhihan 发表于 2010-4-13 08:46:48

原帖由 TIB 于 2010-4-12 21:54 发表 http://bbs.51testing.com/images/common/back.gif
用MouseDrag试试吧
...识别不了图标对象，怎么用mousedrag方法？。。。

TIB 发表于 2010-4-13 11:04:35

JavaWindow("Workflow").JavaDialog("Devices").JavaList("DevicePanel$DeviceMutableJList").MouseDrag

haiwa957 发表于 2010-4-13 11:11:15

这个好像比较难实现的，你可以用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:24

lz是否试过录制?好像有drop,drag的说
Window("Program Manager").WinListView("SysListView32").DragItem "SetIEUnvisible"
Window("Program Manager").WinListView("SysListView32").Drop 1035,74
比如这样的

zhuzhihan 发表于 2010-4-13 16:32:22

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

谢谢！不过其中的xy是基于整个屏幕比如1024x768还是基于窗口的啊？如何清楚的知道你想移动到的那个位置的xy分别是多少呢？
页: [1]
查看完整版本: 一个测试java程序的问题