فرمان چپ کلیک موس

ممنون میشم اگه کسی دستورapi در مورد چپ کلیک موس رو بهم بگه
باز هم متشکرم:41:

سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

Private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long

تغییر کلیک چپ و راست موس

سپاسگزارم.:46:
 

نقل قول:

---

نوشته شده توسط Payman_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام.
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer

---

واه این که بفهمی کلیک چپ زدنه شده یا نه میتونی از تابع api که دوست عزیزمون معرفی کردند استفاده کنی . اینم سورسش :

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
keystate = GetAsyncKeyState(vbLeftButton)
If keystate And &H8000 Then
Label1.Caption "Pressed Left Button Mouse"
Else
Label1.Caption "Not Pressed LEft Button Mouse"
End If
End Sub

موفق باشی .

دستوری می خوام که مثلا با استفاده از یک تایمر هر 20 ثانیه عمل چپ کلیک رو انجام بشه.
از توجه تون بسیار متشکرم.

دستوری می خوام که مثلا با استفاده از یک تایمر هر 20 ثانیه عمل چپ کلیک رو انجام بشه.
از توجه تون بسیار متشکرم.

Private Const M_MOVE = &H1
Private Const LEFTDOWN = &H2
Private Const LEFTUP = &H4
Private Const RIGHTDOWN = &H8
Private Const RIGHTUP = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

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)



Private Sub Timer1_Timer()

mouse_event(LEFTDOWN + LEFTUP, p.X, p.Y, 0, 0)

End Sub


دوست عزیز فکر میکنم همینو میخواستی . موفق باشی . هر چند مدت که بخوای کلیک میکنه .

نقل قول:

---

نوشته شده توسط lizbazar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

Private Const M_MOVE = &H1
Private Const LEFTDOWN = &H2
Private Const LEFTUP = &H4
Private Const RIGHTDOWN = &H8
Private Const RIGHTUP = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2

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)



Private Sub Timer1_Timer()

mouse_event(LEFTDOWN + LEFTUP, p.X, p.Y, 0, 0)

End Sub


دوست عزیز فکر میکنم همینو میخواستی . موفق باشی . هر چند مدت که بخوای کلیک میکنه .

---

ممنون ،ممنون خیلی متشکرم.