کلیک اتوماتیک موس

[doshman]

با سلام من می خوام که نشانه گر موس هر جا هست کلیک چه کدی باید بنویسم ممنون

[Veteran]

یک تایمر روی فرم قرار بدید.
این روی کپی کنین توی پروزه


Option Explicit
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10
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)
Public Enum enButtonToClick
btcLeft
btcRight
btcMiddle
End Enum
Public Function MouseFullClick(ByVal MBClick As enButtonToClick) As Boolean
Dim cbuttons As Long
Dim dwExtraInfo As Long
Dim mevent As Long
Select Case MBClick
Case btcLeft
mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP
Case btcRight
mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP
Case btcMiddle
mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP
Case Else
MouseFullClick = False
Exit Function
End Select
mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo
MouseFullClick = True
End Function

Private Sub Form_Load()
Timer1.Interval = 4000
End Sub
Private Sub Timer1_Timer()
Call MouseFullClick(btcLeft)
End Sub


در این برنامه هر 4 ثانیه 1 بار کلیک میشه
شما میتونی خودت این قسمت

Private Sub Form_Load()
Timer1.Interval = 4000
End Sub

به جای 4 هزار زمان مد نظر خودتون رو قرار بدید