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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاخوة الاعزاء ابحث عن مثال للتنبيه بقرب انتهاء تاريخ بشرط ان احدد المدة trfa8899 4 122 21-11-16, 11:00 AM
آخر رد: trfa8899
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 107 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 119 02-11-16, 04:15 PM
آخر رد: salhigc
Exclamation [VB.NET] سؤال احتاج مساعده فيه a_abdullah 11 160 25-10-16, 03:20 PM
آخر رد: a_abdullah
  تكست بوكس اذا بها جمل اظهر رسالة هاوي1995 8 124 24-10-16, 04:46 PM
آخر رد: هاوي1995
  سؤال بسيط في فصل التاريخ عن الوقت فراس صلاح 3 130 19-10-16, 04:17 AM
آخر رد: mhmd_911
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 123 13-10-16, 04:40 AM
آخر رد: abid
  سؤال بخصوص طباعة تقرير في فيجوال بيسك 2010 haiderkh 2 100 12-10-16, 08:48 PM
آخر رد: أبو عمر
  [VB.NET] سؤال في الريبورت فيور دمعتز السمان 1 74 08-10-16, 01:52 AM
آخر رد: ابو ليلى
  سؤال عن ربط البرنامج الفيجوال بيسك بالموقع لسه مبتدئ 4 158 06-10-16, 07:13 PM
آخر رد: سعود

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


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