[silverlight]

الكود التالي يوضح كيف تقوم بعمل CopyFromScreen الخاصة بأي جهاز كمبيوتر ثم حفظ الصورة في فهرس المشروع

لتنفيذ الكود ضع الكود في الحدث Load الخاص بالفورم كما هو موضح أدناه أو يمكن استخدام الكود مع اي باتون في الحدث Click

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim rect As Rectangle = Screen.PrimaryScreen.Bounds
        Using scrBitmap As Bitmap = Image.FromHbitmap(New Bitmap(rect.Width, rect.Size.Height).GetHbitmap(), Graphics.FromHwnd(IntPtr.Zero).GetHdc())
            Using g As Graphics = Graphics.FromImage(scrBitmap)
                g.CopyFromScreen(rect.Location, rect.Location, rect.Size, CopyPixelOperation.SourceCopy)
                scrBitmap.Save((".\" & DateTime.Now.ToFileTimeUtc & ".jpg"), Imaging.ImageFormat.Jpeg)
            End Using
        End Using
    End Sub

End Class 


الكود اعلاه يمكن تنفيذه من خلال تايمر لتصوير الشاشة كل فترة زمنية معينة ثم يتم جمع كل الصور و تحويلها الي ملف Gif أو ملف فيديو

ويمكن الاستغناء عن السطر الذي يقوم بحفظ الصورة و نضيف الصور الي مصفوفة وبحيث يسهل التعامل معها كيفما نريد