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

كيف يمكن لبرنامجي أن يعمل في الخلفية دون واجهة و يترصد إدخالات لوحة المفاتيح

مغلق
بدأه Muhammad Al-Shami في 21 مارس 2007 · 10 رد · 1,146 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

تحية لكم هذا المساء......

إلى جميع الأخوة في هذا المنتدى العطر و أرجو من الله أن يمدكم بالعافية

لي إليكم سؤال صغير و هو موجه إلى شباب VisualBasic 6.0 إذ أنني لم أستطع حله رغم كل ما فكرت به من طرق فقد باءت بالفشل

المهم هو كيف لي بأمرين

1- السؤال الأول : كيف يمكن لبرنامجي أن يعمل في الخلفية دون واجهة و يترصد إدخالات لوحة المفاتيح مثلا أريد أن يظهر البرنامج فقط إذا ضغطت مثلا Alt+F2 هذا السؤال الأول

2- السؤال الثاني : كيف يمكن للبرنامج أن يعرف حدثا و هو في الخلفية و الحدث هو (إدخال الفلاش ميموري أو سي دي روم)

أفيدونا من علمكم أفادكم الله من فضله

و لكم جزيل الشكر

تم تعديل هذه المشاركة بواسطة HnHn في 21 مارس 2007 في 18:37

رباه إني غارق بذنوبي و جميل عفوك غاية المطلوب

رباه مالي حيلة إلا الرجا في كشف ضري و إنجلاء كروبي

#2

بخصوص السؤال الأول : أعمل Form و خليها Hidden و لما المستخدم يضغط على مفاتيح معينة تظهر.

السؤال التانى : بتعمل Subclassing , و لما الـ System بيحس بحاجة زى كده بيبعت رسائل معينه لكل النوافذ , مش فاكر الرسائل دلوقتى , أعمل عنها بحث

#3

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

اقتباس
السؤال الأول : كيف يمكن لبرنامجي أن يعمل في الخلفية دون واجهة و يترصد إدخالات لوحة المفاتيح مثلا أريد أن يظهر البرنامج فقط إذا ضغطت مثلا Alt+F2 هذا السؤال الأول

لتجعل برنامجك يعمل في الخلفية أذهب إلى خاصية Visible بتاع الفورم و اعملها False

وبذلك يصبح برنامجك شغال ومخفي

أو ضع الاكواد

'كود الاخفاء
Form1.Visible = False
'كود الاظهار
Form1.Visible = True

وبالنسبة لضربات المفاتيح حاول البحث في المنتدى ستجد ما تريد

ألا بذكر الله تطمئن القلوب

#4

هذا من ناحية السؤال الأول طيب و الثاني وين صار

رباه إني غارق بذنوبي و جميل عفوك غاية المطلوب

رباه مالي حيلة إلا الرجا في كشف ضري و إنجلاء كروبي

#5

أنت مكسل تعمل بحث ؟؟؟؟؟!!!!!!!!!!!!!

يبقى أستنى لبكره علشان أنا مش شايف لوحة المفاتيح و السرير ينادينى !

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

#6

لا لا هذا ليس من كسلي لكني بحثت ضمن المواضبع هنا و الانترنت بطيء عندي و لم أجد ما يشفي غليلي

على كل جزيتم خيرا و لست مستعجلا له

رباه إني غارق بذنوبي و جميل عفوك غاية المطلوب

رباه مالي حيلة إلا الرجا في كشف ضري و إنجلاء كروبي

#7

هذا مثال كود يظهر برنامجك بالضغط على ALT

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal 
vKey As Long) As Integer
Dim M As Integer

Private Sub Form_Load()
	Form1.Visible = False
End Sub

Private Sub Timer1_Timer()
	If M <> GetAsyncKeyState(18) Then
		Form1.Visible = True
	End If
End Sub

بالنسبة للسؤال الثاني يحتاج تفكير :huh:

اقتباس
اليوم, 02:04 AM

أخي محمد القلوب و العقول عند بعضها :lol: و العيون :blink:

تم تعديل هذه المشاركة بواسطة المزمجر في 21 مارس 2007 في 03:50

ألا بذكر الله تطمئن القلوب

#9

لي فترة طويلة من منتدى الأسئلة المكررة .. أسف منتدى مبرمجي لغة Microsoft Visual Basic ..

يبدو أن الأخ لم يبحث نهائياً في منتديات الفريق العربي ولا في النت ... ما علينا

1)

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

أولا لا بد من معرفة المقصود من "دون واجهة"

إن كان المقصود أن تكون الـ window مخفية فقد أجاب الشباب عليها ...

لأن هناك برامج لا تحتاج لواجهة أقصد لا تحتاج لـ GUI وهذه حالة أخرى ..

أيضاً "يعمل في الخلفية" قد توحي بأكثر من معنى ... منها ما يجعل مجرد إخفاء الـ Form لا يكفي ...

اقتباس
يترصد إدخالات لوحة المفاتيح

إبحث عن Keyloger وهناك أكثر من طريقة .. وستجد أكثر من موضوع في هذا المنتدى وغيره من منتديات الفريق ناهيك عن أن النت يعج بالمواضيع والأمثلة بلغات البرمجة المختلفة و باللغات المختلفة (العربية , الإنجليزية .... )

اقتباس
مثلا أريد أن يظهر البرنامج فقط إذا ضغطت مثلا Alt+F2

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

إستخدام Timer هنا غير جيد في رأيي ..

2) أظن الأخ msayed2004 أعطى مثالاً جيداً ...

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#10

ممكن يعتمد على Modules بس بدون أى Forms

#11

جزيتم خير اأنا رح جرب الكود و بعدها لي معكم مرور

رباه إني غارق بذنوبي و جميل عفوك غاية المطلوب

رباه مالي حيلة إلا الرجا في كشف ضري و إنجلاء كروبي

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

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…