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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation سؤال حول المعامل Ctype ndjakoub 2 70 17-01-17, 10:54 AM
آخر رد: silverlight
  [سؤال] مشكله اثناء تثبيت MICROSOFT VISUAL STUDIO ULTIMATE 2013 tempman 0 32 17-01-17, 08:23 AM
آخر رد: tempman
  سؤال محمد بن عطية 3 104 13-01-17, 12:10 AM
آخر رد: مساعدة
  هل يوجد مثال عن اقفال الفترات المالية السيد الجوهري 4 171 04-01-17, 05:18 PM
آخر رد: asemshahen
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,335 04-01-17, 12:48 PM
آخر رد: مساعدة
  [VB.NET] سؤال في text box engmedomed@gmail.com 1 78 31-12-16, 07:20 PM
آخر رد: مساعدة
  مثال للبحث بين تاريخين مشكلة تستحق الاهتمام nabil.1710 30 747 28-12-16, 06:15 PM
آخر رد: nabil.1710
  [VB.NET] سؤال في الرسم البياني engmedomed@gmail.com 0 63 27-12-16, 11:42 PM
آخر رد: engmedomed@gmail.com
  .سؤال محيرني.. محمد 2017 4 157 25-12-16, 10:02 PM
آخر رد: محمد 2017
  اول سؤال لي في منتداكم الرائع ..... من اين ابداء وبما ابداء البرمجة zin1zamanh 16 330 23-12-16, 06:45 PM
آخر رد: zin1zamanh

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


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