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

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

مغلق
بدأه matrixyb في 30 يوليو 2007 · 22 رد · 1,749 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

يا شباب اليوم ابي فزعة في كود يسوي الطريقة هذي :

الان انا في اي مكان في الويندوز

اذا ضغطت الازرار هذي

Ctrl + Alt + Delete

يروح يفتح لي نافذة التحكم بالمهام صح ؟

طيب انا ابغا اخلي الفيجول اذا ضغطت على الزر

ينفذ هذه الازرار

او اي ازرار انا احددها مثلا

زر علامة الويندوز + زر حرف ( M )

يسوي تصغير لكل النوافذ

ابي طريقة اني احدد الازرار و هو ينفذها

ارجوا ان تكونوا فهمتوا

شكرا

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#2

أخي بالنسبة للأكواد أنا مش عارف بس الحاجة دي معتمدة على شغلتين هم :

1- جعل برنامجك يبدأ مع بدئ تشغيل الويندوز

2-اعتراض رسائل النظام

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

وأظن أن الطريقة الثالثة هي الأفضل وشوف الأخ ياسر جمال هو يعرف حاجات كتيير في الريجيستري

#3

سمعت عن الـ Hotkeys قبل كده ؟!

أن كنت سمعت فطبعا أنت عارف أن أحنا بنستخدم لهم الدوال RegisterHotKey و UnregisterHotKey اللى ليهم مثال على موقع AllAPI لكن الطريقة دى Unsafe خصوصا جوه الـ IDE أو فى حالة وجود Hooks تانية على الـ Form عموما Steve McMahon ريحنا وعمل طريقة Safe بس طبعا مش 100% فخد بالك , مرفق مثال عنها.

و بالنسبة للأزار اللى متعينه كـ Hotkey أساسا زى WinKey+M فأبعد عنها بالزوق قبل ما هى تبوظ برنامجك بالعافية :lol: .

Safe_HotKeys.rar

تم تعديل هذه المشاركة بواسطة msayed2004 في 31 يوليو 2007 في 00:46

#4

طيب مشكور يا اخواني على الرد

اريد شي اخر طيب

ابي اذا ضغطت على ازرار

Ctrl + S + T

ينتفذ امر معين في الفورم حقتي مثل

text1.text= "hi"

ما ابي

Hotkeys

يعني من خارج البرنامج

بس اذا كانت الفورم حقت البرنامج حقي مفعلة و ضغطت هذي الازرار يتنفذ الامر الي فوق

اتمنى ان اكون وضحت لكم المعلومة

و شكرا

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#5

دالة GetKeyboardState قد تفيدك , أبحث عنها.

#6

فين ابحث اخوي

و و تقدر ترفق لي مثال او شرح ؟؟

شكرا لك

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#7

............................. Google , AllAPI , Yahoo , This forum

و لو بصيت فى السطرين دول هتعرفها بسهولة :

Private Type KeyboardBytes
   kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

حاول فيها الأول , هتلاقيها بسيطة أن معرفتش أسأل تانى , لكن لازم تحاول.

#8
اقتباس
............................. This forum

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

اقتباس
حاول فيها الأول , هتلاقيها بسيطة أن معرفتش أسأل تانى , لكن لازم تحاول.

بدك الصراحة اخوي حاولت ما عرفت حاولت ( مرة وحدة فقط ) هههههههههههههه

بدي الكود اخوي

و شكرا لك

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#9

بانتظار ردك اخي

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#10

up

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#11

up up

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#12

يا اخواني لي خمس ايام و حتى الان ما رديتوا علي

لكن انا نزلت موضوع في منتدى اجنبي

والله و اقسم بالله انه بعد 10 دقائق او اقل كان الرد عندي

و انا رح احط الطريقة على شان تستفيدوا منها

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

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(vbKeyControl) And GetAsyncKeyState(vbKeyS) And GetAsyncKeyState(vbKeyT) Then MsgBox ("Test"), vbSystemModal, "Test"
End Sub

شكرا لكم

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#13

أخي الكريم الأخوان ساعدوك بالذي يستطيعون به وشكرا على وضع الحل.

google.gif

spamxk4.gif

petitionbanner17a.gif

Email : sao_-5000@hotmail.com

#14

اوكي اخوي انا معاك في انهم ساعدوني بالي ابغاه لكن الاخ msayed2004

قال لي جزء من الحل و قال لي حاول و اذا ما عرفت انا رح اكمل لك الكود

اقتباس
و لو بصيت فى السطرين دول هتعرفها بسهولة :

Private Type KeyboardBytes
   kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

حاول فيها الأول , هتلاقيها بسيطة أن معرفتش أسأل تانى , لكن لازم تحاول.

حاولت و ما عرفت قله له ترى ما عرفت

بعدين Up

و لي خمس ايام ولا حد معطيني وجه

ليش احنا العرب ما بنتساعد فيما بيننا و الاجانب لمن حطيت الموضوع على طول ردوا التساعد بينهم موجود

مش زينا العرب كل واحد بيحتفظ في الكود لنفسه و كمان هم بيحاول يطوروا الفكرة معاك يعني بيحسسوك انه في تفاعل من الموضوع و الفكرة

هذا الي حبيت اقول و شكرا

Matrixyb3D.jpg

في يوم من الايام قال Matrixyb

" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "

#15

أخي الكريم هل أرسلت له رسالة خاصة؟ فكما تعلم أي واحد منا قد ينسى الموضوع وبالنسبة للتعاون فنعم هذا ينطبق على أغلب المنتديات إلا ندرة وهذا المنتدى من هذة الندرة.

google.gif

spamxk4.gif

petitionbanner17a.gif

Email : sao_-5000@hotmail.com

#16

عندك حق matrixyb

العضو msayed2004 دائما يفعل ذلك

بيستعرض بشوية المعلومات الى عندة

ربنا يكرمة

#17
اقتباس
ليش احنا العرب ما بنتساعد فيما بيننا و الاجانب لمن حطيت الموضوع على طول ردوا التساعد بينهم موجود

ممكن بانه هناك مبرمجون محترفون

اخي اذهب الى المواضيع السهلة جدا

ستلاحظ ان الرد سريع جدا

لان الاغلب يعرف

وايضا :

اذا شخص اخطا امامهم خطا كبير يسب اليوم الي عرفهم وتعلم البرمجة :)

لاحظ في المنتدى ان اذا وضع موضوع الاغلب يعرف الحل ماذا يحدث

startingprogremmer.jpg
#18
اقتباس
العضو msayed2004 دائما يفعل ذلك

بيستعرض بشوية المعلومات الى عندة

ربنا يكرمة

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

الاخ محمد سيد يريد ان يرى تفاعل من السائل حتى يفهم الكود ... ما الفائدة من ان اشترك بمنتدى كي اعمل به كآلة اكواد كل من يطلب يجاب !؟

mov eax, dword ptr ds:[0xffdf0308]

jmp dword ptr [eax+0xfc]

#19
اقتباس
العضو msayed2004 دائما يفعل ذلك

بيستعرض بشوية المعلومات الى عندة

ربنا يكرمة

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

الاخ محمد سيد يريد ان يرى تفاعل من السائل حتى يفهم الكود ... ما الفائدة من ان اشترك بمنتدى كي اعمل به كآلة اكواد كل من يطلب يجاب !؟

كان لدي نفس الكلام ولكن عندما قرات (ربنا يكرمه) حسيت بان العضو لا يقصد الاساءة بل النصيحة << انا ايضا تعجبني هذه الطريقة لان المحتاج يبحث يكون افضل من ان يحصل كود جاهز (كآلة اكواد) :D

اما بالنسبة الى الكود :

الكود لا يشتغل اذا كان الفورم minmize

انا اظن بان هناك مواضيع hotkeys موجودة في المنتدى

كل ما اعرفه بان hotkeys هي انها ازرار في registry معرفة انه اذا ضغط عليها يتم عمل اي شيء

تستطيع انشاء hotkeys بواسطة اضافة

اما عن موضوع اضافة قيمة في الرجستري فانا لا اعرف حتى الان

تحياتي

تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 3 يناير 2008 في 20:30

startingprogremmer.jpg
#20

اداة جميلة جدا وسهلة ايضا :)

hotkey.rar

startingprogremmer.jpg
#21

عندي سؤال

هل يمكن انه اذا صار me.hwnd يحدث شيء ؟

startingprogremmer.jpg
#22
FADY RASHWAN كتب:
عندك حق matrixyb

العضو msayed2004 دائما يفعل ذلك

بيستعرض بشوية المعلومات الى عندة

ربنا يكرمة

بالبحث فى مواضيعك وجدت لك موضوعين من مواضيعك أنا شاركت فيهم و أعتقد أنى ذكرت لك حلول مناسبه (على حسب طرحك للسؤال) !

أن كنت تهوى الحلول الجاهزة فالعيب مش منى و لعلمك يا أخى ديه أساسا سياسة المنتدى.

فالسؤال هنا أتهامك لى بأستعراض المعلومات كان على أى أساسا ؟

و بدل ما تخش تولعها خش أكتب حل أو فكر فى فكرة أنما تبحث عن مشاكل لأثارتها ؟

سامحك الله.

---

على صاحب السؤال المحاولة و البحث و سيجد ما قد يفيده [مثال]

---

الأخ GamingMasteR و مبرمج مبتدا جزاكم الله خير , دعواتى لكم بالتوفيق و النجاح.

تم تعديل هذه المشاركة بواسطة msayed2004 في 4 يناير 2008 في 02:33

#23

اداة سهلة وجميلة جدا جدا جدا

MCLHotkey.rar

تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 4 يناير 2008 في 11:32

startingprogremmer.jpg

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

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

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

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

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

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