用鼠标捕获所有屏幕

Question

我正试图用鼠标捕捉资源管理器中的所有屏幕。我的代码是：

x = Browser("Main").Page("SubMain").GetROProperty("x")
y = Browser("Main").Page("SubMain").GetROProperty("y") 
width = Browser("Main").Page("SubMain").GetROProperty("width")
height = Browser("Main").Page("SubMain").GetROProperty("height")

Set obj = CreateObject("mercury.devicereplay")
obj.MouseClick x+5, y+50,RIGHT_MOUSE_BUTTON

obj.DragAndDrop  x+5, y+50, x + width, y + height, 0

Set obj = Nothing

鼠标移动但不点击。 有什么建议吗？

Answer 1

3706 是“ Provider not found ”，表示系统上未安装OraOLEDB可再发行组件。下载here。