منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : برنامج ScreenShot لالتقاط صورة لمحتويات الشاشة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله بركاته


الصلاة و السلام على أشرف المرسليـن...~
الحمد لله وحده نحمده و نشكره و نستعينه و نستغفره و نعود بالله من شرور أنفسنا و من سيئات أعمالنا ...~
من يهده الله فلا مضل له و من يضلل فلن تجد له ولياً مرشدا...~
و أشهد ألا إلاه إلا الله وحده لا شريك له و أن محمداً عبده و رسوله صلى الله عليه و سلم...~
أما بعد ...~
فإن أصدق الحديث كتاب الله تعالى و خير الهدي هديُ سيدنا محمد صلى الله عليه و سلم ...~
و شر الأمور محدثاتها و كل محدثة بدعة و كل بدعة ضلالة و كل ضلالة في النار ...~
فاللهم أجرنا و قنا عذابها برحمتك يا أرحم الراحمين .



انا عضو جديد في المنتدى
اليوم جايبلكم مشروع من برمجتي
يقوم بالتقاط صورة لمحتويات سطح المكتب
واتمنى ان يعجبكم المشروع

--------------------------------------------------------------

رابط المشروع :

AngryAngryAngryAngry

اخي احمد تيم RolleyesRolleyes
المشروع لا في فايروس ولا شي
انت نزلة وجربه اذا عجبك المشروع خير على خير Big GrinBig Grin
واذا لم يعجبك فاحذفة من جهازك ShyShy
وخلي الكل يستفاد
السلام عليكم

اخي الكريم شكرا لك ولمشاركتك

ارجو من ارفاق الملف المصدري السورس كود لكي يستفيد باقي الاعضاء واعتذر منك لانني حذف رابط تحميل الملف التنفيذي

يعطيك العافية
المشروع موجود منه نسخه في المنتدي الفديم أنا كنت كتبته من اكثر من سنتين تقريبا.....عموما سأحاول البحث عن السورس كود ...النسخة عندي ف الملفات القديمة و أرفعه هنا في مكتبة الموقع لاحقا

وعليكم السلام اخي abulayth
اعتذر لأنني لم اضع الكود الخاص بالمشروع

----------------------------------

السورس كود

PHP كود :
Public Class Form1
    
Private Sub Button1_Click_1(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        
'Button1 = Save
        Dim savefiledialog1 As New SaveFileDialog
        savefiledialog1.Filter = "PNG |*.png|JPEG |*.jpeg|BMP |*.bmp"
        If savefiledialog1.ShowDialog = DialogResult.OK Then
            PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '
Button 2 Capture
        Me
.Opacity 0
        Dim bounds 
As Rectangle
        Dim screenshot 
As System.Drawing.Bitmap
        Dim graph 
As Graphics
        bounds 
Screen.PrimaryScreen.Bounds
        screenshot 
= New System.Drawing.Bitmap(bounds.Widthbounds.HeightSystem.Drawing.Imaging.PixelFormat.Format32bppArgb)
        
graph Graphics.FromImage(screenshot)
        
graph.CopyFromScreen(bounds.Xbounds.Y00bounds.SizeCopyPixelOperation.SourceCopy)
        
PictureBox1.Image screenshot
        Me
.Opacity 100
    End Sub
End 
Class 
وعليكم السلام و رحمة الله و بركاته أخي الفاضل Mahdi

السورس كود الذي تحدثت عنه في مشاركتي السابقة....أعمل حاليا علي تطويره قليلا حيث يمكن بواسطته أن تختار كل شاشة الكمبيوتر أو تحدد جزء منها باستخدام الماوس ثم وفي وجود تايمر يمكن أن تكرر الأمر و بعدها يقوم البرنامج بتخزين الصور كلها في ملف واحد لا غير حيث يمكن لاحقا تحويلها الي ملف فيديو أو أي شئ من هذا القبيل وإن شاء الله عندما أنتهي من كتابة السورس كود كاملا سوف أضعه هنا ليستفيد منه الجميع
شكرا جزيلا لك اخي
ولاكن لو تفضلت علينا
بسورس كود المشروع كاملاً لكان افضل بكثير

عموما شكرا وبارك الله فيك
شكرا وبارك الله فيك

تحياتي لك
شكرا وبارك الله فيك