سؤال: تصوير سطح المكتب

الأمر جد بسيط

و سأعطيك الخطوات و بعد ذلك يمكنك البحث عن الحل

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

اذا البحث سيتركز على محورين

كيف يمكننا ان نحاكي ضغطة زر في لوحة المفاتيح بالكود ثم كيف يمكننا قراءة محتوى ال ClipBoard

اذا ما عليك سوى استعمال GOOGLE و اضمن لك انك ستجد الحل و اذا فشلت في ذلك ضعي محاولاتك و سوف نصححها معا باذن الله :)

شكرا على ردك لكني مبتدأ في فيجوال بيسك دوت نت ولقد حاولت البحث عن

حل قبل ان ادرج الموضوع

حقيقة لا ادري كيف كان بحثك لكن أؤكد لك أنك يجب ان تغيير طريقة بحثك

المهم انا دخلت للتو الى GOOGLE لأرى ما اذا كان سيعطيني نتائج مرضية و قد فعل فكتبت في البحث "screen capture visual basic" فأعطاني عدة صفحات و ثاني نتيجة كانت تفي بالغرض، صحيح ان الكود بالفيجوال بيسك 6 لكن استعمال ال API لا يختلف عن الدوت نت و الكود أصلا يمكن ان يعمل تحت الدوت نت دون تغيير يذكر و الصفحة التي يوجد بها الكود هي :

http://www.freevbcode.com/ShowCode.asp?ID=866

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

و السلام عليكم

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

Public Function GetScreenCapture( _
		Optional ByVal FullScreen As Boolean = False) As Image
		' Captures the current screen and returns as an Image object
		Dim objSK As SendKeys
		Dim imgCapture As Image
		If FullScreen = True Then
			' Print Screen pressed twice here as some systems
			' grab active window "accidentally" on first run
			objSK.SendWait("{PRTSC 2}")
		Else
			objSK.SendWait("%{PRTSC}")
		End If
		Dim objData As IDataObject = Clipboard.GetDataObject()
		Return objData.GetData(DataFormats.Bitmap)
	End Function

قومي بإستدعاء الدالة ومرري البارمتر

FullScreen إلى True إذا أردتي سطح المكتب كاملا

وهذا كود أخر لأخذ خلفية سطح المكتب

	Public Function DesktopBackground() As Image
		Try
			Dim RegPath As String = "HKEY_CURRENT_USER\Control Panel\Desktop"
			Dim ImgPath As String = My.Computer.Registry.GetValue(RegPath, "Wallpaper", "Nothing")
			Return Image.FromFile(ImgPath)
		Catch ex As Exception
			Return Nothing
		End Try
	End Function

ما فهمت كيف؟؟؟

ممكن توضيح السؤال اكتر