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

Keysend loopمشكلة في

بدأه colorlink في 22 أكتوبر 2011 · 17 رد · 659 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

وهذا ماتوصلت اليه لكن الكود لايتتكرر فهل من مساعدة رجاءا

Private Sub Command1_Click()
   DoAppActivate
End Sub
Private Sub Command2_Click()
   DoAppActivate True
End Sub

'Private Sub DoAppActivate(Optional RePeat As Boolean = False)
   'Dim x
  '  x = 1


  ' Do While x < 100
    ' AppActivate "wateverz"
    '   SendKeys "{1}"
    '    'Sleep = "1"

        'x = x + 1


        'If RePeat = False Then Exit Do
       ' Loop


'End Sub

وبالنسبة لتعليمة سلييب

ال 1 هي ثانية ولا ال1000 هي ثانية؟ وكيف فيني اعرف

وكيف فيني ساوي البرنامج يعمل لللانهاية

سكرا جزيلا لكل مهتم

تم تعديل هذه المشاركة بواسطة colorlink في 22 أكتوبر 2011 في 19:27

Tam~

#2

إذا كنت تريد إستخدام مفتاح Alt مع الرقم 1 ، فيمكنك إتباع التالي :

1- إدرج Command Button علي شاشة البرنامج.

2- إذهب الي خاصية Caption وأكتب به الرقم (1) ، ولكن يسبقة العلامة (&).

3- إدرج Command Button آخر وأكتب بداخلة الكود التالي :

SendKeys "%{1}"

إذا كنت تريد تنفيذ العملية برمجياً :

1- قف علي النموذج وأضبط خاصية KeyPreview الي القيمة True.

2- إذهب الي الحدث KeyPress للنموذج وأكتب الكود التالي :

Private Sub Form_KeyPress(KeyAscii As Integer)
    If (KeyAscii = Asc("1")) Then Call Command1_Click
End Sub

بالتوفيق

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#3
MMA_EG_Cairo كتب:

إذا كنت تريد إستخدام مفتاح Alt مع الرقم 1 ، فيمكنك إتباع التالي :

1- إدرج Command Button علي شاشة البرنامج.

2- إذهب الي خاصية Caption وأكتب به الرقم (1) ، ولكن يسبقة العلامة (&).

3- إدرج Command Button آخر وأكتب بداخلة الكود التالي :

SendKeys "%{1}"

إذا كنت تريد تنفيذ العملية برمجياً :

1- قف علي النموذج وأضبط خاصية KeyPreview الي القيمة True.

2- إذهب الي الحدث KeyPress للنموذج وأكتب الكود التالي :

Private Sub Form_KeyPress(KeyAscii As Integer)
    If (KeyAscii = Asc("1")) Then Call Command1_Click
End Sub

بالتوفيق

شكرا جزيلا اخي على الرد وياريت تابعي معي شوي

في بالمرفق الملف البرمجي

أنا بدي ساوي التالي

1-البرنامج يضغط الرقم 1 الى مالانهاية بتأخير قدره ثانية واحدة بين الضغطة والاخرى ويتم الضغط على صفحة برنامج exe اسم البرنامج هذا ليكن "تطبيقاتي"

المشكلة بمثالي ان اللوب لايعمل فرجاءا ساعدني تعبت من كتر مافتلت ولا أي حد قدر يساعد

وشكرا جزيلا

headache.rar

تم تعديل هذه المشاركة بواسطة colorlink في 22 أكتوبر 2011 في 22:37

Tam~

#4

يمكنك إستخدام الآداة Timer بحيث أن يتم تنفيذ الأوامر بين كل ثانية مثلاً

أو يمكنك إستخدام الكود التالي :

    Do While DoEvents
        ''يمكنك وضع هنا الأوامر التي تريدها
    Loop

بالتوفيق

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#5
MMA_EG_Cairo كتب:

يمكنك إستخدام الآداة Timer بحيث أن يتم تنفيذ الأوامر بين كل ثانية مثلاً

أو يمكنك إستخدام الكود التالي :

    Do While DoEvents
        ''يمكنك وضع هنا الأوامر التي تريدها
    Loop

بالتوفيق

كثر الله خيرك خي هذا هو شكرا جزيلا والله مابعرف ليش مافكرت بالتايمر صرلي 10 سنين ماشتغلت على ال vb

شكرا جزيلا ومنخدمك إن شاء الله في يوم ما

Tam~

#6
colorlink كتب:

كثر الله خيرك خي هذا هو شكرا جزيلا والله مابعرف ليش مافكرت بالتايمر صرلي 10 سنين ماشتغلت على ال vb

شكرا جزيلا ومنخدمك إن شاء الله في يوم ما

الملف مرفق عند التشغيل يعطي رسالة الخطا التالية

Run-Time error "70" s

permeation denied

هل من طريقة ؟ وشكرا جزيلا أخي

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

على نافذة اللعبة اما غير ذلك فهو يعمل بشكل ممتاز

Final.rar

تم تعديل هذه المشاركة بواسطة colorlink في 23 أكتوبر 2011 في 15:45

Tam~

#7

أولاً ، أخبرني متي تظهر هذه الراسلة لديك ؟؟؟

ثانياً ، ما هو هدفك بالضبط ، لعل وعسي أكون قادراً علي مساعدتك

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

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#8
MMA_EG_Cairo كتب:

أولاً ، أخبرني متي تظهر هذه الراسلة لديك ؟؟؟

ثانياً ، ما هو هدفك بالضبط ، لعل وعسي أكون قادراً علي مساعدتك

1-تظهر فور تفعيل واجهة اللعبة المراد للبوت العمل عليها

مهمة البوت ضغط الرقم واحد و ضغطه في اللعبة مثلا يؤدي الى الهجوم ولكن هذا لايحصل ويتوقف البرنامج عن العمل

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

مبدأ البرنامج أنو يكون بووت يعني يقوم بضغط الرقم واحد وذلك يؤدي الى قيام العبة بحدث معين ويتكرر الامر طالما البرنامج يعمل

بس مش عم أعرف ليش وكيف عم يبطل يشتغل

بينما اذا فتحت مفكرة فرح يشتغل نظامي

فالأغلب تكون لإنو البرنامج اليي عم حاول التأثير عليه هو تنفيذي فهل من حل لذلك ؟

جربت الshell مامشي الحال . جربت ال timer مامشي الحال بس أول كود حطيته خلا الحدث المعين بالعبة يعمل ولكنه لم يتكرر

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

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

------------------

لاحظت شغلة

البرنامج لما يحتوي تايمر . لايعمل مع هذه اللعبة

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

شكرا أخي

تم تعديل هذه المشاركة بواسطة colorlink في 24 أكتوبر 2011 في 05:49

Tam~

#9

الأخ الكريم

أولا ، تذر لك كل الاعتذار ، لأنني هذه الأيام مشغول جداً ، ولم أتمكن بالدخول إلي المنتدي إلا من مقر الشركة وليس من منزلي ، فأعتذر لتأخري عليك

ثانياً ، أعتقد أن المشكلة ليست لها علاقة بالسورس كود المرسل مسبقاً ، ولكن المشكلة متعلقة بنسخة برنامج اللعبة نفسها (Rappelz) ، وللأسف لم أقدر علي مساعدتك دون أن يكن أمامي كود البرنامج حتي أفحص مكان وأساس المشكلة.

شكراً لك

وبالتوفيق الدائم

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#10
MMA_EG_Cairo كتب:

الأخ الكريم

أولا ، تذر لك كل الاعتذار ، لأنني هذه الأيام مشغول جداً ، ولم أتمكن بالدخول إلي المنتدي إلا من مقر الشركة وليس من منزلي ، فأعتذر لتأخري عليك

ثانياً ، أعتقد أن المشكلة ليست لها علاقة بالسورس كود المرسل مسبقاً ، ولكن المشكلة متعلقة بنسخة برنامج اللعبة نفسها (Rappelz) ، وللأسف لم أقدر علي مساعدتك دون أن يكن أمامي كود البرنامج حتي أفحص مكان وأساس المشكلة.

شكراً لك

وبالتوفيق الدائم

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

الأكواد كلها مرفقة على كل حال ان أردت الاطلاع

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

Tam~

#11
اقتباس
ليست مشكلة أخي الله يجعلها أكبر المصايب والله يوفقك

ههههههههه ، هو العمل مصيبة !!!

العمل عبادة أخي الكريم ، ولكن كما تعلم أن الظروف هي التي تحكم حالة الإنسان

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

عفواً اخي ، المرفق أتطلعت عليه وكان سليم 100% ، ولم يعرض لي أي مشكلة !!!

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#12
MMA_EG_Cairo كتب:

ههههههههه ، هو العمل مصيبة !!!

العمل عبادة أخي الكريم ، ولكن كما تعلم أن الظروف هي التي تحكم حالة الإنسان

عفواً اخي ، المرفق أتطلعت عليه وكان سليم 100% ، ولم يعرض لي أي مشكلة !!!

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

أخي إذا سمحت هاي كود وبرنامج تاني

بس خليلي ياه يتم يشتغل مندون ال تايمر

يعني للنهائية ومابعده هههه

والمشكلة انو برنامج حمية اللعبة عم يلقط التايمر بالذاكرة وعم يعطي خطأالبيرميشن

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

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

وعند اضافة تايمر تحص المشاكل

فهل من تعليمة تكرر الاوامر كل ثانية بدون تايمر؟والى الابد

شكرا جزيلا

الملف مرفق

--------------

لمزيد من التوضيح

ط صورة للتوضيح ارجوك تابع معاي

[imog]http://i52.tinypic.com/1585o9e.jpg

كسرت الكود الصورة لإنها عبت الصفحة

بالصورة هذا الرمز اللي حوالي الدائرة الحمرة إختصاره على الكيبورد هو 1

أنا بدي أعمل برنامج يتم يضغط هدا الغختصار أي الرقم واحد بشكل دائم ولكن من دون تايمر لأن برنامج

حماية هذه اللعبة يمنعه

اسم برنامج الحماية Game Guard وهذه اللعبة هي لعبة أون لاين الكود الاول المكتوب يعمل لمرة واحدة في اللعبة

الاكواد الاخرى جميعا تعطي رسالة بيرميشن ديناي وتحوي تايمر

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

headache.rar

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

Tam~

#13

أنظر الي المثال المرفق

بالتوفيق

Simble.rar

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

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#14
colorlink كتب:

جربت ال shell مامشي الحال

الشيل محمي أيضا أخي

والكود يقوم بجمع أعداد 1+1؟

ممكن توضيح بعد إذنك وكيف هذا الكود رح يكرر الضغط على 1 لللانهاية؟

الكود الاول اللي كتبت أنا ...ماإلو طريقة يتكرر من دون تايمر؟

تم تعديل هذه المشاركة بواسطة colorlink في 25 أكتوبر 2011 في 12:45

Tam~

#15

الأخ الكريم ، المثال المرسل بالفعل يكرر نفسة لعدد ما لا نهاية كما يلي :

    Do While DoEvents
        AppActivate "اللعبة"
        SendKeys "%{1}"
        DoEvents
    Loop

ويمكنك تغييرة بالتايمر كما يلي :

Private Sub Timer1_Timer()
    AppActivate "اللعبة"
    SendKeys "%{1}"
    DoEvents
End Sub

فما مشكلتك بالضبط ؟؟؟

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

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#16
MMA_EG_Cairo كتب:

الأخ الكريم ، المثال المرسل بالفعل يكرر نفسة لعدد ما لا نهاية كما يلي :

    Do While DoEvents
        AppActivate "اللعبة"
        SendKeys "%{1}"
        DoEvents
    Loop

ويمكنك تغييرة بالتايمر كما يلي :

Private Sub Timer1_Timer()
    AppActivate "اللعبة"
    SendKeys "%{1}"
    DoEvents
End Sub

فما مشكلتك بالضبط ؟؟؟

أنه يعمل لمرة واحد ثم يتوقف

ماتشيل هم أخي أنا فقدت الامل هههه شكرا جزيلا لكل المساعد التي قدمتها وأتمنى لك التوفيق

Tam~

#17
اقتباس
أنه يعمل لمرة واحد ثم يتوقف

غريبة جداً !!!!

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

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

أنت وتصرفاتك

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

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

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

My FaceBook

#18
MMA_EG_Cairo كتب:

غريبة جداً !!!!

ايه رح جن هههه

Tam~