كيف يمكن فعل حدث كليك

عند النقطة المعينة استدعي حدث الكليك

'vb codes'
'لنفرض أن النقطة المعينة هنا وتريد النقر هنا على الزر Cmd1'

Call Cmd1_Click()

اولا شكرا لك يا اخي علي الرد

ثانيا انا عايز حدث الضغط في نقطة معينة ... مش علي اداة معينة .......... يعني مثلا لو اداة مستعرض الويب ... وعايز ادوس علي زرار في موقع ومكان الزرار دا ثابت .. فـ ازاي اخلي البرنامج يحرك الماوس فوق الزرار دي (نقطة معينة) ويدوس كليك

يا شباب عاااااااااااااااااااااااااايز مساعدة ارجوكوا بسرعة

يجب ان تعرف الاحداثيات x y

تقليد حدث النقر في التعاريف ضع التالي

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
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

ثم تعريف الاحداثيات اسفل السابق

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

لتنفيذ الامر

ضع زر كومند وجرب التالي

Private Sub Command1_Click()
    Dim a
    a = SetCursorPos(0, 0)

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

End Sub

حيث 0,0 تمثل الاحداثيات غيرها حيث سيتحرك الماوس لها ومن ثم يضغط

اذا كانت صفحو ويب يمكنك استخدام ارسال المفاتيح

السلام عليكم

بجد يا (المزمجر) انا مش عارف اشكرك ازاي علي الاكواد دي ... بجد فاديتني جدا ... وهو دا اللي انا كنت عايزة

شكرا لك

سلام

الاخ المزمجر شكرا على الرد الرائع استفدنا منه كثير كود لن ينسى جزاك الله خير