هل من كود يجعل الماوس يضغط كليك

أهلا بك بالمنتدى , من قواعد المنتدى البحث قبل السؤال :D .

و كنت كمان عرفت أنه مش خيالى ;)

فى Module ضع الكود التالى :

Option Explicit

Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
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 Declare Function GetMessageExtraInfo Lib "user32" () As Long

Public Sub SendAClick(X As Long, Y As Long)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Or MOUSEEVENTF_ABSOLUTE, X, Y, 0, GetMessageExtraInfo
DoEvents
End Sub

تقدر تنادى الدالة SendAClick و تحدد لها الأحداثى السينى و الصادى بالبكسل للمكان اللى عايز تضغط عليه.

المشكلة بقى فى الموضوع أن كل الناس اللى بتسأل عن الحكاية دى بتبقى علشان تستعملها فى أغلاق نافذة , بأنهم يضغطوا على زر الـ X بتاع نافذة تانية و دى طبعا طريقة مش تبع البرمجة :P فلو كان هدفك أغلاق نوافذ يبقى مش ده الحل.

أحيانا كثيرة ينفع هذا الموضوع فى عمل نوع من ال Automation للتطبيقات و بيدى نتايج كويسة بطرقة بسيطة و مباشرة

شكرا لكم على الردود اخوي سيد لو بالامكان تراجع الكود لانه الاحداثيات ما اشتغلت لكن الكليك اشتغل

اخي ASDen لو تطلعني على طريقتك لنستزيد منكم علما

اكرر شكري لكما