الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هام جداً سؤاااااال

مغلق
بدأه virus975 في 8 أغسطس 2005 · 5 رد · 646 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اخواني اريد كود للحصول على قيمة ال( handle (hWnd للبرنامج النشط active الي يستخدمه المستخدم ؟

#2

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

يمكنك استخدام دول API اما الدالة GetForegroundWindow أو الدالة GetActiveWindow

وهذه الدوال لاتحتاج لاى معاملات ويتم الاعلان عنها بالصورة الاتية

Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

سيتطلب هذا دوال API وبالتحديد FindWindow....

نصنع موديول ونضع فيه هذا الاعلان

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

ثم من نافذة الكود نضع في Sub

("q = FindWindow(vbNullString, "Put the window title

والله أعلم

04_08_05_05_25_08_1123201508Stoon.JPGIn this world I love Islam ,Computer ,Communications ,Electronics and

المسلم كالغيث أينما حل نفع

Don't ever trust machines

#4

الدالة FindWindow تستخدم اذا كنت تريد مقبض نافذة معينة تعرف عنوانها بالكامل اما الدوال GetForegroundWindow , GetActiveWindow فهى تعود بمقبض النافذة النشطة :rolleyes:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

صحيح يبدو أننا كتبنا المشاركة في وقت واحد فلم أر مشاركتك....

على العموم كله ينفع:)

04_08_05_05_25_08_1123201508Stoon.JPGIn this world I love Islam ,Computer ,Communications ,Electronics and

المسلم كالغيث أينما حل نفع

Don't ever trust machines

#6

ألف شكر اخواني

رحم الله والديكم :)

هذا الموضوع مغلق.

مواضيع مشابهة