منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) (/showthread.php?tid=7970)

الصفحات: 1 2 3 4


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13




وهذا المثال



اتمنى اجد جواب حول كيفية اظهار مؤشر الفارة



مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - أبو يعقوب - 15-03-13

الماوس ترسمه بنفسك بهذه الطريقة

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

ستحتاج للتعديل على موقع المؤشر في الصورة


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13

طيب شلون اضيفها للمثالSmile الرمز g يظهر عنده خطا! ماذا يعبر عنه؟


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - أبو يعقوب - 15-03-13

graphics

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

Dim g= Graphics.FromBitmap


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13

كيف اضعها معلش 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



مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13

كود :
Dim g = Graphics.FromImage(pic.Image)





        Me.Cursor.Draw(g, New Rectangle(Windows.Forms.Cursor.Position, Me.Cursor.Size))
جربت الكود وماتم تصوير الفارة


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - أبو يعقوب - 15-03-13

السلام عليكم

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

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- رسم الماوس على الصورة


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - aftfm - 15-03-13

طيب اخواني جزاكم الله خري كيف نجعل هذا البرنامج يعمل تلقائي بمجرد تشغيل جهاز الكمبوتر وبدون اظهارشاشة للمستخدم
اي يعمل عمل مراقبة لما يحدث على الجهاز


مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13

كيف نستخدم الكود؟
كتبت بحدث tick للتايمر GetScreenShoot(true)
لكن ماصار شي حتى تصوير ماصارSad



مثال لاخذ لقطات مستمرة اثناء عملك بالكمبيوتر (مع سؤال كيف اظهر مؤشر الماوس) - سعود - 15-03-13

بل ممتاااااااااااااااااااااااز جدااااااااااااااااااا
انا دوم متسرع بارك الله فيك