أريد لو سمحتو برنامج يعطي الماوس أوامر النقر

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز : أشرف وفقك الله

تمكنك الدالة mouse_event والتي تعتبر من دوال API من إرسال أي حدث من أحداث الفأرة Mouse لتقوم بتنفيذه . وإليك طريقة التنفيذ :

يجب عليك تعريف هذه الدالة بالشكل التالي :

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)

ومن ثم تمرير أحد الثوابت التالية للدالة mouse_event :

Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

مثال على استخدام هذه الدالة :

        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI

في هذا المثال نقوم بجعل الدالة تنفذ حدثي MouseDown والحدث MouseUp لزر الفأرة الأيسر

أرجو أن أكون وفقت في شرح هذه الدالة ..

والسلام عليكم ورحمة الله وبركاته ....

وتقبل تحياتي :

أخوك / المبرمج أحمد

وصلى الله على نبينا محمد وعلى آله وصحبه أجمعين

الحمد لله

كانت عندي الدالة هاي بس ما كنت عارف أحداثها كلها

شكرا كتييييير لك

لا اله الا الله محمد رسول الله