vb用mouse_event模拟鼠标双击为什么没有效果?

模拟单击没有问题,但是双击就没用。代码如下SetCursorPos10,15Mouse_Event6,0,0,0,0Mouse_Event6,0,0,0,0这种没用,只有... 模拟单击没有问题,但是双击就没用。
代码如下
SetCursorPos 10, 15
Mouse_Event 6, 0, 0, 0, 0
Mouse_Event 6, 0, 0, 0, 0
这种没用,只有单击效果,于是加上延时和Doevents试试
改成这样
SetCursorPos 10, 15
Mouse_Event 6, 0, 0, 0, 0
SleepPlus 200 '这是一个自己写的延时程序
Mouse_Event 6, 0, 0, 0, 0
也没用,也只有单击效果,我看网上的代码都是这样写的啊,怎么我就不行??
或者各位还有其他的模拟鼠标按键的方法吗,急用,能解决问题的加50分!!!
展开
 我来答
xiaoyuemt
2012-07-20 · TA获得超过1.6万个赞
知道大有可为答主
回答量:3202
采纳率:64%
帮助的人:1624万
展开全部
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
直接用sleep吧,用你自定义的也可以
按下左键,放开,延时,再按下,再放开:
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Sleep 10
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
匿名用户
2012-07-20
展开全部
若果想实现双击的话,最好在第一次鼠标左键按下后,在添加鼠标左键弹起,然后再次按下,再次弹起,所以总共是四次mouse_event.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
玉店生C
2012-07-19 · TA获得超过375个赞
知道小有建树答主
回答量:346
采纳率:0%
帮助的人:75万
展开全部
Mouse_Event 6, 0, 0, 0, 0
SleepPlus 200 '这是一个自己写的延时程序
Mouse_Event 6, 0, 0, 0, 0

这个肯定不行啦 。一个是按下,一个是弹起。还是看下MOUSE_EvENT 是怎么用吧。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式