05-09-15, 03:52 AM
السلام عليكم
اخواني
لدي مشروع موجود به picturebox ويقوم بالتقاط صورة لشاشة الجهاز عند فتحه
الان انا اعرف كيف اقوم بجعل الماوس ينقر على postion معين في الشاشة
ولكن لم اعرف كيف احتسب postion picturebox بالنسبة للشاشة يعني اجعل عندما اضغط على مثلا داخل picturebox عند صورة form1 كما هو موضح بالصورة ...يجعله يقوم بالنقر بشكل حقيقي على الشاشة الكامله
انا اعرف موضوي معقد ويمكن ما عرفت اوصل الفكرة ولكن باختصار شديد اعتبر Picturebox اعتبارا انها RemoteDesktop ولما تضغط عليها انت عمم تتحكم بششاشة الجهاز
ارجوا انو وضحة وشكرا لكم
كود لتحديد Postion في picturebox عند الضغط عيها
كود :
Private Sub PictureBox1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseClick
PPoint = New Point(e.X, e.Y)
MsgBox(e.X & " , " & e.Y)
End Sub
وهذا كود لتغير مكان mouse
اي postion الخاص به
كود :
Private Declare Function SetCursorPos Lib "user32.dll" ( _
ByVal X As Int32, _
ByVal Y As Int32 _
) As Boolean
والاستدعاء :
كود :
SetCursorPos(5, 5)
وتغير الرقمين 5
و كود النقر
كود :
Private Declare Sub mouse_event Lib "user32.dll" ( _
ByVal dwFlags As Int32, _
ByVal dx As Int32, _
ByVal dy As Int32, _
ByVal cButtons As Int32, _
ByVal dwExtraInfo As Int32 _
والاستدعاء بالنقر يمين او شمال mouse
كود :
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1
الصورة المرفقة فيها برنامجي Form1 ملتقط صورة للشاشة والشاشة الاصلية