[مخالف - عنوان غير مناسب :]طلب بسيط ........ مع فيجوال 6

ما هي اللعبة؟

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

بسم الله

جرب الكود ده

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte,Val dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SPACE = &H20
Private Sub Timer1_Timer
Keybd_Event VK_SPACE ,0 ,0 ,0
End Sub

بس معلش انا مستغرب طيب ليه تعمل Space على طول وليه متعملهاش من اللعبة نفسها وخلاص

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

على سبيل المثال توجد خاصية في الفورم وهي keypreview يمكنك تفعيلها وبعد ذلك استقبال المفاتيح :

Private Sub Form_KeyPress(KeyAscii As Integer)
if KeyAscii  =32 then
'do anything
endif
End Sub

بسم الله

مفيش حاجة اسمها موضوع تافه كل المواضيع مهمه

وكل فكرة بتبدأ بحاجة تافهه وتنتهي بشيء دميل جدا والدليل مشروع التخرج بتاعي (ولا داعي للشرح) :lol:

Amir Imam كتب:

بسم الله

جرب الكود ده

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte,Val dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SPACE = &H20
Private Sub Timer1_Timer
Keybd_Event VK_SPACE ,0 ,0 ,0
End Sub

بس معلش انا مستغرب طيب ليه تعمل Space على طول وليه متعملهاش من اللعبة نفسها وخلاص

اخي العزيز انا بجرب بالكود ولكن في خطا اعتقد انه هنا

Val dwFlags As Long

وقمت بتعديله ل

byVal dwFlags As Long

وجاري تجربته مع اللعبة

بسم الله

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

مشكوووووووووووووووووووووووووور اخي امير لكلامك الجميل وردك اللطيف

وبازن الله الفرصه تيجي وتشرحلي عن مشروع تخرجك

أخي الكريم الظاهر أن اللعبة لازم تتتبعها بإستخدام إحدى برامج تتبع الأسمبلي ‘ذهب إلى قسم الأسمبلي وستجد ما أقصد.

بسم الله

جزاك الله خيرا اخي العزيز

طيب ممكن اعرف هو انت اللي برمجت اللعبة دي؟ ولو انت اللي برمجتها طيب ايه هو المحرك الي عملتها بيه ؟

اكيد هيكون في طريقة برمجية من جوة اللعبة توصل للي انت عايزه

Saad AL.Moosa كتب:

أخي الكريم الظاهر أن اللعبة لازم تتتبعها بإستخدام إحدى برامج تتبع الأسمبلي 'ذهب إلى قسم الأسمبلي وستجد ما أقصد.

مشكووووووووووور اخي ولكن للاسف ليس لدي خبرة بالاسمبلي

ولكن ساحاول

تحياااااتي

Amir Imam كتب:

بسم الله

جزاك الله خيرا اخي العزيز

طيب ممكن اعرف هو انت اللي برمجت اللعبة دي؟ ولو انت اللي برمجتها طيب ايه هو المحرك الي عملتها بيه ؟

اكيد هيكون في طريقة برمجية من جوة اللعبة توصل للي انت عايزه

اخي الغالي للاسف مش انا الي برمجت اللعبة دي

هي جاهزه كده زي ما هي اخدناها من واحد صاحبنا

بسم الله

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

بس اعتقد زي ما قال الاخ سعد هتلاقي الحل عند بتوع الاسمبلي

وربنا يوفقك

لا أعتقد أن لقسم الأسمبلى أنفراد بالحل , عموما أول مشكلة ممكن أتخيلها هى الأعتماد على الـ Standard VB Timer اللى هو بيتأثر بسهولة بأى حمل على النظام , و بالتالى ممكن ننقل الى API Timer .

ممكن أخي msayed2004 كيف يمكنني وضع تايمر API؟؟

اخي msayed2004 ما هو ال API تايمر

انا فعلا فكرت ان المشكلة من التايمر ولكن اعتقد ان اللعبة تعطله تماما لانه لا يعمل اي مفعول بعد تشغيلها

وسؤالي هل من الممكن ان نستخدم LOOP ولكن هل من الممكن ان نضع فيها ما يمنع الدخول في INFINITE LOOP

ومشكور اخي سعد لمحاولاتك

مرفق API Timer من تصميم واحد أسمه Wokawidget , و أنا كنت محوله من DLL لـ ActiveX control و طبعا يستحسن أستعمال كـ Usercontrol على طول.

Wokawidget_API_Timer.rar

اخي msayed2004 عندي مشكلة

هنا خطا يحدث عندما احاول استخدام التايمر API على الفورم الخاص بي

يعطي

COMPILE ERORR

user defined type not defined

(WithEvents mobjTmr As APITimer)

ما المشكلة واسف للازعاج

لأنك أستعملت الـ Control لوحدها ( وكمان لم تقرأ سطر واحد منها , ليه بس ) , الأداه تحتاج أيضا الى الـ Class Module و الـ Module الموجودين بنفس المرفق.

والله كنت مستعجل جدا جدا وعايز اجربها على اللعبة

ومفكرتش اركز فيها اوي

ولكن زبطت وعملت الكود المطلوب باستخدامه ولكنه لم ينجح ايضا مع اللعبه

وانا تقريبا فقدت الامل

بدل وظيفة Sendkeys هنعمل تجربة , خللى الكود يعمل ملف و يكتب فيه قيمة تزيد بأستمرار أو حتى الوقت , شغل اللعبة , ألعب شوية , أغلقها و شوف الملف فيه ما يدل على أن البرنلمج كان شغال أثناء اللعب أم ما ؟!

أن كان شغال يبقى يمكن تكون اللعبة مؤمنة بطريقة ما.