capture in vb.net

السلام عليكم

بالنسبة لتصوير الشاشة فقط بنصين برمجيين الأول هو أن نرسل للزر PrintScreen الموجود على لوحة المفاتيح Keyboard

بأن يقوم بمهمته وهو تصوير لقطة بهذا الشكل

SendKeys.Send("%({PRTSC})")

و الثاني أن نقوم بجلب التصوير من الـ ClipBoard الموجود في نظام التشغيل في PictureBox بهذا الشكل

 Me.PictureBox1.Image = _
 Clipboard.GetDataObject.GetData("Bitmap", True)

أما البقية فلا أعرفها . والله أعلم

شكرا لك ..وانا راح احاول اجمع كل المعلومات لمعمل برنامج متكامل

وراح اعرضة بالمنتدى

يعطيك العافية..موفق في الاختبارات

السلام عليكم ورحمة الله وبركاته

أنا قمت بتجربة الكود الذي وضعه الاستاذ هن هن ولكن لم يعطي أي نيجة بالاضافة الى أنه لدي أسئلة أود طرحه و أتمنى الاجابة عليها وهو يتعلق بنفس الموضوع أولا

عندما وضعنا الكود البرومجي ليأخذ الزر PrintScreen الصورة فهو فقط يأخذ صورة الفورم فاذا أردته أن يأخذ صورة سحط الكتب فهل أوجهه بأن ينتقل الى سطح المكتب ومن ثم أجعله ينقل الى الزر المذكور انفا الذي يقوم بأخذ الصورة التي أريدها

أيضا عندما وضعت الكود في زر button وهو زر ما فانه عند كل ضغطة كان يقوم بطباعة جزء من الفورم ومن ثم يطبع جزء آخر داخل الجزء المطبوع سابقا ومن كل الذي سبق أريد أن أفهم لما يحصل ذلك اذا لم يكن سؤالي خاظئ أو خالف القواعد التي تخص المنتدى

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

والله انتو ناس كلكون خير وهاد الشي يل شفتو من اول ما دخلت له المنتدى وموفقين لكل ما ينفعكم و الله يكون معنا ومعكون

اختكم في الله meme

مع ان الموضوع قديم ،،

اقتباس

Nov 4 2006, 11:47 AM

ولكن حبيت ادلو بدلوي لكم ،،

PrintScreenTest.zip

إليك المشروع بالمرفقات ،،،

بالتوفيق ،، للجميع ..

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

لكن لدي سوال ... ما هو رمز الزر Windows ... لأني بحثت كثيرا لكن بدون جدوى ... !!

Fikou-sama أنا أملك جواب أخي (h)

أنظر إلى الكود الذي بالأسفل :D

 

Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp

If e.KeyCode = Keys.LWin Then

MessageBox.Show("I did it")

End If

End Sub

شكرا أخي crazy Programm2007er على الرد و لكن ليس هدا هو قصدي .. فأنا أقصد مثلا إدا أردت أن أبحث عن ملف جهازي :

Private Sub Button1_Click(ByVal sender as Object ....

SendKeys.Send("xxxx(F)")

End Sub

حيث xxxx هو رمز الزر Windows فمثلا % هو رمز الزر Alt

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

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

Private Declare Function CreateDC Lib "GDI32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer
	Private Declare Function CreateCompatibleDC Lib "GDI32" (ByVal hDC As Integer) As Integer
	Private Declare Function CreateCompatibleBitmap Lib "GDI32" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer
	Private Declare Function GetDeviceCaps Lib "gdi32" Alias "GetDeviceCaps" (ByVal hdc As Integer, ByVal nIndex As Integer) As Integer
	Private Declare Function SelectObject Lib "GDI32" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
	Private Declare Function BitBlt Lib "GDI32" (ByVal srchDC As Integer, ByVal srcX As Integer, ByVal srcY As Integer, ByVal srcW As Integer, ByVal srcH As Integer, ByVal desthDC As Integer, ByVal destX As Integer, ByVal destY As Integer, ByVal op As Integer) As Integer
	Private Declare Function DeleteDC Lib "GDI32" (ByVal hDC As Integer) As Integer
	Private Declare Function DeleteObject Lib "GDI32" (ByVal hObj As Integer) As Integer
	Private oBackground As Bitmap
	Private FW, FH, d As Integer
==========================================================================
هذه الاجراء الذي يلتقط لك صورة للشاشه دون التاثير علي ما موجود في الحافظة
Protected Sub CaptureScreen()
		Dim hSDC, hMDC As Integer
		Dim hBMP, hBMPOld As Integer
		Dim r As Integer
		hSDC = CreateDC("DISPLAY", "", "", "")
		hMDC = CreateCompatibleDC(hSDC)
		FW = GetDeviceCaps(hSDC, 8)
		FH = GetDeviceCaps(hSDC, 10)
		hBMP = CreateCompatibleBitmap(hSDC, FW, FH)
		hBMPOld = SelectObject(hMDC, hBMP)
		r = BitBlt(hMDC, 0, 0, FW, FH, hSDC, 0, 0, 13369376)
		hBMP = SelectObject(hMDC, hBMPOld)
		r = DeleteDC(hSDC)
		r = DeleteDC(hMDC)
		oBackground = Image.FromHbitmap(New IntPtr(hBMP))
		DeleteObject(hBMP)
	End Sub
===========================================================================
 CaptureScreen()   هذا استدعاء الاجراء ويمكن كتابته في زر الامر
				PictureBox2.Image = oBackground وهذا جلب الصورة ووضعها في اداه الصورة
				PictureBox2.Image.Save("c:\200.Jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
 هذا واضح جدا وهو تخزين الصورة من الاداه الي الجهاز

اريد ان اعرف كيف اسجل مقطع فيديو من الشاشة او من ملف فيديو موجود

و شكرا

شكرا يا تخوان رائع جداً