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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 58 منذ 11 ساعة مضت
آخر رد: aliday03
  [مشروع] سؤال حول كيفية ربط السكانر بمشروع vb.net safalo 1 50 19-09-17, 03:48 PM
آخر رد: أبو نوره
  [سؤال] اعذروني اخواني سؤال في الفيس بوك لسه مبتدئ 0 41 16-09-17, 02:09 PM
آخر رد: لسه مبتدئ
  سؤال مستعجل اخواني Amjad 5 146 08-09-17, 07:20 PM
آخر رد: طـلال
  سؤال مستعجل اخواني وضروري Amjad 2 101 08-09-17, 05:42 AM
آخر رد: Amjad
  [سؤال] سؤال ضروري (الصوره) DF.12 0 76 28-08-17, 03:08 PM
آخر رد: DF.12
  [سؤال] سؤال بخصوص الListBox ابو روضة 12 416 23-08-17, 03:46 PM
آخر رد: ابو ليلى
  سؤال من الخبراء خاص بالتحزيم نبيل كونكت 0 62 19-08-17, 10:40 AM
آخر رد: نبيل كونكت
  [VB.NET] السلام عليكم ارجوا المساعدة في تصمم برنامج لاخذ نسخة احتياطية محمد بوقزاحة 3 128 13-08-17, 11:43 PM
آخر رد: khodor1985
  سؤال الاتصال بقاعدة بيانات عن طريق Web Service كفاح 8 194 12-08-17, 01:29 AM
آخر رد: سلامات

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


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