请问VB怎样模拟鼠标双击功能

Question

请问VB怎样模拟鼠标双击功能用API如何实现啊??

Answer 1

MOUSE_EVENT///////////////////////////////////////////////////找外快还是CSDN多些，欢迎联系，抱歉，偶有点刷广告有生意别忘了照顾照顾小鸟呀~ 需要软件的本鸟可以帮写~ 
另外最近弄免费软件，有兴趣要捆绑的也可以加我的QQ 416816468另外的另外，注册完个新HP没管相当冷~ 麻烦大家如果有时间请帮踩踩~ 加加；先谢谢喽~ ！
http://download.enet.com.cn/blog/index.php?userid=pojieyingz

Answer 2

SendMessage hwnd, WM_LBUTTONDBLCLK, 0, 0

Answer 3

得到句柄后，发送 WM_LBUTTONDBLCLK 消息：
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lparam As Any) As Long
Private Const WM_LBUTTONDBLCLK = &H203Private Sub Command1_Click()
    SendMessage Command2.Hwnd, WM_LBUTTONDBLCLK ,0,0  '向Command2发送双击消息
End

Answer 4

可以用mouse_event API函数来模拟鼠标在某个位置ClickPrivate 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)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 '  absolute move
Private Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20 '  middle button down
Private Const MOUSEEVENTF_MIDDLEUP = &H40 '  middle button up
Private Const MOUSEEVENTF_MOVE = &H1 '  mouse move
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 '  right button down
Private Const MOUSEEVENTF_RIGHTUP = &H10 '  right button up
Private Sub MouseClick(x As Long, y As Long)
    Dim SCR_W As Long
    Dim SCR_H As Long
    
    SCR_W = Screen.Width / 15
    SCR_H = Screen.Height / 15
    '移动鼠标
    mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, Int(x / SCR_W * 65535), Int(y / SCR_H * 65535), 0, 0
    '左键按下
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    DoEvents
    '左键放开
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    DoEvents
End Sub
调用举例：
在1024*768下点击屏幕中央，在屏幕中央放一个点击以后会有效果的东西看看结果

Answer 5

不要用mouse_event的不要影响用户的操作好像在SendMessage最后一个参数还是倒数第二个，有一个算法。X和Y计算怎么样计算后传递给函数。