تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس)
#1



وهذا المثال



اتمنى اجد جواب حول كيفية اظهار مؤشر الفارة
الرد }}}
تم الشكر بواسطة:
#2
الماوس ترسمه بنفسك بهذه الطريقة

PHP كود :
Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.PositionMe.Cursor.Size)) 

ستحتاج للتعديل على موقع المؤشر في الصورة
الرد }}}
تم الشكر بواسطة:
#3
طيب شلون اضيفها للمثالSmile الرمز g يظهر عنده خطا! ماذا يعبر عنه؟
الرد }}}
تم الشكر بواسطة:
#4
graphics

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

Dim g= Graphics.FromBitmap
الرد }}}
تم الشكر بواسطة:
#5
كيف اضعها معلش 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
الرد }}}
تم الشكر بواسطة:
#6
كود :
Dim g = Graphics.FromImage(pic.Image)





        Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))
جربت الكود وماتم تصوير الفارة
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم

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

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.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb)
        
Graphics.FromImage(screenshot)
        
g.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy)
        If 
DrawCursor Then
            Me
.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.PositionMe.Cursor.Size))
        
End If
        Return 
screenshot
    End 
Function 

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

1- التقاط صورة للشاشة
2- رسم الماوس على الصورة
الرد }}}
تم الشكر بواسطة:
#8
طيب اخواني جزاكم الله خري كيف نجعل هذا البرنامج يعمل تلقائي بمجرد تشغيل جهاز الكمبوتر وبدون اظهارشاشة للمستخدم
اي يعمل عمل مراقبة لما يحدث على الجهاز
الرد }}}
تم الشكر بواسطة:
#9
كيف نستخدم الكود؟
كتبت بحدث tick للتايمر GetScreenShoot(true)
لكن ماصار شي حتى تصوير ماصارSad
الرد }}}
تم الشكر بواسطة:
#10
بل ممتاااااااااااااااااااااااز جدااااااااااااااااااا
انا دوم متسرع بارك الله فيك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 0 98 22-02-24, 11:47 AM
آخر رد: AHMED213
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  مشكلة عدم اكتمال تنفيذ بسبب فصل الشبكة او التيار الكهربائي اثناء النتفيذ تناسيم 3 1,840 05-02-24, 10:04 PM
آخر رد: 01AHMED
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  سؤال فى عمل تقرير مفصل خالد كامل1 1 271 26-12-23, 04:30 PM
آخر رد: تركي الحلواني
  [سؤال] سؤال محمد العموري 5 368 11-12-23, 10:11 AM
آخر رد: تركي الحلواني
  سؤال في تحريك التحديد في datagrideview maher_haddaf 3 434 23-10-23, 08:27 AM
آخر رد: أبو خالد الشكري

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


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