31-08-13, 03:17 AM
السلام عليكم
بعد عدت محاولات تمكنت بفضل الله و بسببكم من حل المشكلة
قمت بتعويض أداة الزر "Button1" بأداة المؤقت "timer1" و كتبت كود النقر الخاص بالزر الايسر للماوس و كانت النتيجة إيجابيةو هذا هو الكود الذي عدلته:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Me.Timer1.Stop()
End Sub
شكرا لكل من شارك و ساعدني و بالأخص الأخ أحمد حسين ربي يحفظكم إن شاء الله
تحياتي
بعد عدت محاولات تمكنت بفضل الله و بسببكم من حل المشكلة
قمت بتعويض أداة الزر "Button1" بأداة المؤقت "timer1" و كتبت كود النقر الخاص بالزر الايسر للماوس و كانت النتيجة إيجابيةو هذا هو الكود الذي عدلته:
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
Me.Timer1.Stop()
End Sub
شكرا لكل من شارك و ساعدني و بالأخص الأخ أحمد حسين ربي يحفظكم إن شاء الله
تحياتي
