编程如何模拟鼠标单双击?比如控制鼠标每10秒单击一下左键,怎么实现?

Question

0

Answer 1

Timer1時間中去 call點擊事件Option ExplicitPrivate Sub Command1_Click()
 Debug.Print "hello world"
End SubPrivate Sub SuperTimer1_Timer()
  Call Command1_Click
End Sub

Answer 2

Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer用一个Timer控件定时检测,举一个例子：
Private Sub Timer1_Timer()
    Me.Caption = GetAsyncKeyState(vbLeftButton)
End Sub

Answer 3

Option ExplicitPublic 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)
Public Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
Public Const MOUSEEVENTF_MIDDLEUP = &H40
Public Const MOUSEEVENTF_RIGHTDOWN = &H8
Public Const MOUSEEVENTF_RIGHTUP = &H10
Public Const MOUSEEVENTF_MOVE = &H1Public Type POINTAPI
  x As Long
  y As Long
End TypePublic Sub dLeftClick() '左键双击
    LeftDown
    LeftUp
    LeftDown
    LeftUp
End SubPublic Sub LeftClick() '左键单击
    LeftDown
    LeftUp
End SubPublic Sub LeftDown() '左键按下
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
End SubPublic Sub LeftUp() '左键弹起
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End SubPublic Sub MiddleClick() '中键单击
    MiddleDown
    MiddleUp
End SubPublic Sub MiddleDown() '中键按下
  mouse_event MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0
End SubPublic Sub MiddleUp() '中键弹起
    mouse_event MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0
End SubPublic Sub MoveMouse(xMove As Long, yMove As Long) '移动鼠标
    mouse_event MOUSEEVENTF_MOVE, xMove, yMove, 0, 0
End SubPublic Sub RightClick() '右键单击
    RightDown
    RightUp
End SubPublic Sub RightDown() '右键按下
    mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
End SubPublic Sub RightUp() '右键弹起
    mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

Answer 4

早几天刚好做了一个
用于玩奇迹私服加点   呵呵
升级实在是太快了    加点不过来  
实在没办法  呵呵
Private 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) Const MOUSEEVENTF_LEFTDOWN = &H2 '  left button down Const MOUSEEVENTF_LEFTUP = &H4 '  left button up
Private Sub Tr1_Timer()
Tr1.Interval = 1000  '时间间隔
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
把鼠标放在某按钮上面 每隔1分钟模拟一次左键

Answer 5

csdnmzk(迈克尔) 我试过了，可以用

Answer 6

双击按上面那位兄弟提供的API声明及常数模拟就是了

Answer 7

一个TIMER控件，设置间隔为10秒
写一个方法，使用WINDOWS API
方法内容为
mouse_event MOUSEEVENTF_LEFTDOWN,0,0,0,0
mouse_event MOUSEEVENTF_LEFTUP,0,0,0,0
模拟完成
TIMER控件内代码为调动该方法