[سعود]

وهذا المثال



اتمنى اجد جواب حول كيفية اظهار مؤشر الفارة

[أبو يعقوب]

الماوس ترسمه بنفسك بهذه الطريقة

PHP كود :

Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size)) 


ستحتاج للتعديل على موقع المؤشر في الصورة

[سعود]

طيب شلون اضيفها للمثال الرمز g يظهر عنده خطا! ماذا يعبر عنه؟

[أبو يعقوب]

graphics

تحصل عليها من الصورة التي سترسم عليها

Dim g= Graphics.FromBitmap

[سعود]

كيف اضعها معلش

كود :

Dim bounds As Rectangle = Nothing
        Dim screenshot As System.Drawing.Bitmap = Nothing
        Dim graph As Graphics = Nothing






        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        graph = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        Dim pic As New PictureBox
        pic.Image = screenshot
        pic.SizeMode = PictureBoxSizeMode.StretchImage
        pic.Image.Save(imagepath & mname & m & ".jpg")




        'Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))


        m += 1

[سعود]

كود :

Dim g = Graphics.FromImage(pic.Image)





        Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))

جربت الكود وماتم تصوير الفارة

[أبو يعقوب]

السلام عليكم

تفضل استخدمت الكود وغلفته داخل دالة وبإمكانك اختيار رسم الماوس او لا

PHP كود :

Function GetScreenShoot(ByVal drawCursor As Boolean) As Image
        Dim bounds As Rectangle = Nothing
        Dim screenshot As System.Drawing.Bitmap = Nothing
        Dim g As Graphics = Nothing

        bounds = Screen.PrimaryScreen.Bounds
        screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
        g = Graphics.FromImage(screenshot)
        g.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
        If DrawCursor Then
            Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))
        End If
        Return screenshot
    End Function 


الطريقة نظرياً:

1- التقاط صورة للشاشة
2- رسم الماوس على الصورة

[aftfm]

طيب اخواني جزاكم الله خري كيف نجعل هذا البرنامج يعمل تلقائي بمجرد تشغيل جهاز الكمبوتر وبدون اظهارشاشة للمستخدم
اي يعمل عمل مراقبة لما يحدث على الجهاز

[سعود]

كيف نستخدم الكود؟
كتبت بحدث tick للتايمر GetScreenShoot(true)
لكن ماصار شي حتى تصوير ماصار

[سعود]

بل ممتاااااااااااااااااااااااز جدااااااااااااااااااا
انا دوم متسرع بارك الله فيك