一个测试java程序的问题

zhuzhihan

JavaWindow("Workflow").JavaDialog("Devices").JavaList("DevicePanel$DeviceMutableJList").Select "#0"

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

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

TIB

用MouseDrag试试吧

zhuzhihan

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

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

TIB

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

haiwa957

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

风雪夜归人

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

zhuzhihan

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

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