鼠标左键长按一个button 3s,怎么写？求高人赐教！

lxm18 · 发表于 2012-5-30 09:41:36

'Dialog("JAV客户端").WinButton("左").Click这是点击一下的写法，那么需要连续按住3s要怎么写呢？求高手赐教。自己用了三种录制方法都不行。

wuxue107 · 发表于 2012-6-2 06:21:12

Extern.Declare micVoid, "mouse_event", "user32.dll", "mouse_event", micLong, micLong, micLong, micLong, micLong
Extern.mouse_event 2,X,Y,0,0
wait 3
Extern.mouse_event 4,X,Y,0,0
其中XY分别代表点击对象的坐标

lxm18 · 发表于 2012-6-1 15:51:53

这个问题不难吧？怎么没人回呢？

lxm18 · 发表于 2012-5-31 10:43:41

回复 4# wuxue107

大哥，能简单的帮忙写句代码么？咱太笨，说明看的头疼。

lxm18 · 发表于 2012-5-31 10:39:41

回复 3# May_may

这个是配合FireEvent("ondblclick")是双击鼠标事件，和长按还是有差别的。

wuxue107 · 发表于 2012-5-31 08:01:39

这个调用API比较合适
mouse_event

VB声明
Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
说明
模拟一次鼠标事件
参数表
参数类型及说明
dwFlags Long，下述标志的一个组合
MOUSEEVENTF_ABSOLUTE dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂直方向上均匀分割成65535×65535个单元
MOUSEEVENTF_MOVE 移动鼠标
MOUSEEVENTF_LEFTDOWN 模拟鼠标左键按下
MOUSEEVENTF_LEFTUP 模拟鼠标左键抬起
MOUSEEVENTF_RIGHTDOWN 模拟鼠标右键按下
MOUSEEVENTF_RIGHTUP 模拟鼠标右键按下
MOUSEEVENTF_MIDDLEDOWN 模拟鼠标中键按下
MOUSEEVENTF_MIDDLEUP 模拟鼠标中键按下
dx Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相对运动
dy Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直方向的绝对位置或相对运动
cButtons Long，未使用
dwExtraInfo Long，通常未用的一个值。用GetMessageExtraInfo函数可取得这个值。可用的值取决于特定的驱动程序
注解
进行相对运动的时候，由SystemParametersInfo函数规定的系统鼠标轨迹速度会应用于鼠标运行的速度

May_may · 发表于 2012-5-30 16:40:22

可不可以用FireEvent

malasyan · 发表于 2012-5-30 14:25:32

没人抢沙发呀~静坐等待高手解答

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 鼠标左键长按一个button 3s,怎么写？求高人赐教！

本帖子中包含更多资源

相关帖子

站长推荐 /1