تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود الضغط على الشاشة
#1
Big Grin 
السلام عليكم ورحمة الله وبركاته
يا شباب هل هناك كود وظيفته أن يقوم بالضغط على مكان معين في الشاشة  Huh Huh
مثلاً عندما أضغط على بوتون أريده أن يضغط ضغطة في منتصف الصفحة
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام  و رحمة و بركاته  ،،، 

بالنسبه للضغط على اي جزء  في الشاشة  ممكن تستخدم  ال  model  التالي  :



كود :
Module Module1
    Public 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)
    Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
    Public Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As POINTAPI) As Long
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10
    Public Const MOUSEEVENTF_MOVE = &H1
    Public Structure POINTAPI
        Dim x As Long
        Dim y As Long
    End Structure
    Public Function GetX() As Long
        Dim n As POINTAPI
        GetCursorPos(n)
        GetX = n.x
    End Function
    Public Function GetY() As Long
        Dim n As POINTAPI
        GetCursorPos(n)
        GetY = n.Y

    End Function
    Public Sub LeftClick()
        LeftDown()
        LeftUp()
    End Sub
    Public Sub LeftDown()
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    End Sub
    Public Sub LeftUp()
        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
    End Sub
    Public Sub MiddleClick()
        MiddleDown()
        MiddleUp()
    End Sub
    Public Sub MiddleDown()
        mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
    End Sub
    Public Sub MiddleUp()
        mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
    End Sub
    Public Sub RightClick()
        RightDown()
        RightUp()
    End Sub
    Public Sub RightDown()
        mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
    End Sub
    Public Sub RightUp()
        mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
    End Sub
    Public Sub MoveMouse(ByVal xMove As Long, ByVal yMove As Long)
        mouse_event(MOUSEEVENTF_MOVE, xMove, yMove, 0, 0)
    End Sub
    Public Sub SetMousePos(ByVal xPos As Long, ByVal yPos As Long)
        SetCursorPos(xPos, yPos)
    End Sub

End Module


طريقة الاستخدام  : 

 
كود :
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call SetMousePos(100, 100) ' تحريك الماوس الى احداثي معين بالشاشة
        Call LeftClick() ' يضغط زر الماوس
    End Sub

يتبقى عليك  فقط اذا اردت الضغط في شاشة برنامج  معين ان  تجعل شاشة البرنامج الاخر هي active  على سطح المكتب ، لازم تكون ملم بعمليات Handles الخاص بالنوافذ و تجعل الشاشة المستهدفه فعاله

نقطه اخرى احب انبه عليها الكود لن يتم تفعيل الاكواد في وضعية تشغيل Debugs ، يعني تنشئ ملف EXE و تجربه خارج بيئة فيجول استديو
اسم معرفي : محمد يحيى
الرد }}}
تم الشكر بواسطة: أبو عمر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star دقة الشاشة 1080 waataanys 1 221 05-01-24, 12:45 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كيف يمكن إخفاء ظهور الشاشة السوداء فى الـــ console AmeenRashed 2 316 15-11-23, 03:51 PM
آخر رد: justforit
  [سؤال] حول ظهور النافذة الاولى عند الضغط على Menustrip2 في النافذة الثانية vb.net 2012 mh66 0 244 19-10-23, 09:05 AM
آخر رد: mh66
  اريد كود لمسح النص من textbox بمجرد الضغط على ال textebox للكتابة رهف العريفي 21 11,883 03-06-23, 04:56 AM
آخر رد: سعود
  تنفيذ الكود عند الضغط على checkbox الموجود في الداتاقريدفيو جيولوجي مبتدئ 1 1,108 29-09-22, 09:55 AM
آخر رد: mohamedassim
  عمل تحديث الشاشة mohamedassim 1 418 21-09-22, 09:26 AM
آخر رد: Taha Okla
  [VB.NET] كيف أضبط الأدوات مع اختلاف دقة الشاشة mmaalmesry 2 692 14-08-22, 09:10 PM
آخر رد: mmaalmesry
Question [VB.NET] استفسار حول طريقة الضغط على زر برمجيا lmofallis 4 3,823 01-06-22, 12:02 PM
آخر رد: عبد الجليل سراج
  مطلوب كود ضبط ابعاد الشاشة للفورم تلقائيا بعد الفتح ... bilgacim 4 1,723 16-02-22, 11:37 PM
آخر رد: محمود بكرى
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 791 11-02-22, 09:55 PM
آخر رد: ahmedhhh2

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم