أخذ صورة من الـ Desktop

بدأه MMA_EG_Cairo في 23 أكتوبر 2011 · 3 رد · 696 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#123 أكتوبر 2011 في 13:09 صاحب الموضوع

هناك طريقة من خلالها يتم أخذ صورة من سطح المكتب وهي كما يلي :

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
''التقاط صورة للنموذج المفتوح
Private Sub Command1_Click()
keybd_event VK_SNAPSHOT, 1, 1, 1
End Sub
''التقاط صورة للشاشة ككل''
Private Sub Command2_Click()
   keybd_event vbKeySnapshot, 0, 0, 0
   DoEvents
End Sub

ولكن الطريقتين لا تساعد علي أخذ صورة الفأرة وموقعها ضمن الصورة

فهل هناك كود برمجي يأخذ صورة من الشاشة + موقع الفأرة ؟؟؟

Print Screen

شكراً لكم جميعاً

تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 23 أكتوبر 2011 في 13:25

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#223 أكتوبر 2011 في 19:36

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

طبعا هناك عدة طرق لذلك و لكن كل و ظيفة على حدى أي موقع القأرة لوحده و ذلك بإستعمال دالة من دوال windows API و التي سوف تقوم بإعطاء إحطاثيات مؤشر الفأرة

Private Type POINTAPI
    x As Long
    y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

إن هذه الدالة تسترجع إحداثيات المؤشر و تقوم بتخزينها في البنية من النوع API POINT و طريقة استخدامها سهلة جدا

sub command1_Click()
dim P as POINTAPI
GetCursorPos p
print p.x
print p.y
end sub

أتمنى ان تكون إجابتى مرضية و لمزيد من المعلومات لا تخجل من أي إستفسار

و الحمد لله على ما أعطانا من نعم

#324 أكتوبر 2011 في 15:11

الأخت الكريمة

أشكرك كل الشكر علي سرعة الرد ، ولكن مع احترامي الشديد هذا لم يكن قصدي

أقصد حينما أستخدم داله أخذ لقطة من سطح مكتب الجهاز Print Screen سواء باستخدام الكود البرمجي أو باستخدام لوحة المفاتيح ، لم يظهر معي صورة للفأرة ... وهذا ما يتم فعله ببرامج تسجيل حركة الكمبيوتر وصناعة فيديوهات لشرح برامج علي الكمبيوتر

علي كل حال أشكرك كل الشكر ، والحمد لله جمعت كل معلوماتي عن توابع الـ API ، وتوصلت للحل النهائي بحمد الله ... وحتى لا أطيل عليكم جميعاً ، اسمحوا لي أن أدرج الفكرة بالمنتدي الكريم ، لعل وعسي أن يستفاد منها جميع أعضاء المنتدي

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

Simble.rar