منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)

الصفحات : 1 2 3 4

وهذا المثال

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

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

PHP كود :

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

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

طيب شلون اضيفها للمثال Smile

الرمز g يظهر عنده خطا! ماذا يعبر عنه؟

graphics

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

Dim g= Graphics.FromBitmap

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

كود :

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- رسم الماوس على الصورة

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

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

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

الصفحات : 1 2 3 4

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

سعود

أبو يعقوب

سعود

أبو يعقوب

سعود

سعود

أبو يعقوب

aftfm

سعود

سعود