تقييم الموضوع :
  • 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 و تجربه خارج بيئة فيجول استديو
اسم معرفي : محمد يحيى
الرد }}}}
تم الشكر بواسطة: أبو عمر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up [سؤال] اريد كود يصنع برنامج تصوير الشاشة فيديو Mina Botros 5 235 08-07-17, 04:57 PM
آخر رد: silverlight
  مساعدة في اغلا ق الشاشة الترحيبيه بعد دقيقة وفتح الشاشة الرئيسيه للمشروع khaled12345 2 146 13-06-17, 10:33 PM
آخر رد: khaled12345
  [VB.NET] ضبط حجم الفورم مع دقة الشاشة mos3ab 4 270 11-06-17, 06:14 AM
آخر رد: anes
  [سؤال] اعدادات الشاشة في منظومة مصممة بفيجوال بيسك 2012 diab4diab 3 248 13-04-17, 05:09 PM
آخر رد: silverlight
  السلام عليكم هل يمكنني تنفيذ امر صوتي الى الضغط على button من خلال الصوت mohammed.gadain61 6 309 13-04-17, 01:48 PM
آخر رد: matrixmas
  [VB.NET] FORM الفروم الشاشة محمد بوقزاحة 2 200 17-03-17, 06:55 PM
آخر رد: أسامة السالمي
  تحميل الشاشة الرئيسية abdulla2 1 174 23-02-17, 06:47 PM
آخر رد: abdulla2
  [VB.NET] عدد مرات الضغط dubai.eig 11 575 08-02-17, 08:30 AM
آخر رد: dubai.eig
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 388 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [سؤال] تكرار الضغط في مكان ما في الشاشه Test 8 506 06-11-16, 07:09 PM
آخر رد: silverlight

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


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