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

[gofa_25]

طلب كود Auto Pick بتاع IBOT

علشان انا معرفتش


هوة طويل بس كله check

كل باكيت دروب هيظهرلك هتاخد أى دى الدروب وتبحث عنه فى الداتا وتجيب اسمه
وبعد كدة تسأل الإسم دة متعلم عليه pick ولا لأ لو متعلم هيروح يلمه لو مش متعلم ولا هيعبره
هوة طويل بس شوية بس مش قوى يعنى

[Ultra Games]

هوة طويل بس كله check

كل باكيت دروب هيظهرلك هتاخد أى دى الدروب وتبحث عنه فى الداتا وتجيب اسمه
وبعد كدة تسأل الإسم دة متعلم عليه pick ولا لأ لو متعلم هيروح يلمه لو مش متعلم ولا هيعبره
هوة طويل بس شوية بس مش قوى يعنى


مش فاهم

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

ممكن توضح اكتر

[gofa_25]

مش فاهم

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

ممكن توضح اكتر


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

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

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

[gofa_25]

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

بص انا هقولك اللى انا فاهمه وشوف انت بقى هههههههه

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

دلوقتى فى حالة الكلينت
انا عامل برنامج فيه 2 كونكت واحد بيكونكت عادى على السيرفر على 121.128.133.26 و 15779 ودة شغال تمام
والتانى بيعمل Listen للكلينت على 127.0.0.1 و 15778 اوك مبعملش بيند دة خالص

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

بس الطريقة دى أول ما بفتح اللعبة Silkroad.exe بتفتح وبيجبليش لا الكلام ولا ستارت وبيجيبلى DC فى ساعتها

ايه الغلط عندى كدة !؟

[tarek1500]

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

بص انا هقولك اللى انا فاهمه وشوف انت بقى هههههههه

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

دلوقتى فى حالة الكلينت
انا عامل برنامج فيه 2 كونكت واحد بيكونكت عادى على السيرفر على 121.128.133.26 و 15779 ودة شغال تمام
والتانى بيعمل Listen للكلينت على 127.0.0.1 و 15778 اوك مبعملش بيند دة خالص

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

بس الطريقة دى أول ما بفتح اللعبة Silkroad.exe بتفتح وبيجبليش لا الكلام ولا ستارت وبيجيبلى DC فى ساعتها

ايه الغلط عندى كدة !؟


متخليش ال Client هو اللي يبعت ابعت من كونكت ال Server

[gofa_25]

متخليش ال client هو اللي يبعت ابعت من كونكت ال server


مش فاهم حاجة !!!

[gofa_25]

اها هوة المفروض انى اشغل ملف ال hackshield.jar
بس هوة دلوقتى الكلينت بيفتح لكن مبيبعتش الداتا بتاعة اللوج ان

[Ultra Games]

انت بس بتكتبله الكود عشان يمشى عليه

انا عوز الكود ده :mobile:

[maskofgold]

انا عايز اسال سؤال هوة انا مثلا لو معايا source بتاع بوت vsro ينفه يساعد ويتحول لبوت ل isro ?
بس بوت ال vsro مش البرايفت الاورجينال

[[Dev] Arshivel]

الله ينور شرح بحد تمام

[bississa]

سؤال بخصوص iBot

هل نستطيع استخراج Source Code

لتحديث البوت وتشغيله

:mf_popcorn:

[ahmdod2]

انا عايز اسال سؤال هوة انا مثلا لو معايا source بتاع بوت vsro ينفه يساعد ويتحول لبوت ل isro ?
بس بوت ال vsro مش البرايفت الاورجينال

اه ممكن بس اعتقد هتعدل عليه كتير

سؤال بخصوص iBot

هل نستطيع استخراج Source Code

لتحديث البوت وتشغيله

:mf_popcorn:

ال Source code لا
بس انت ممكن تعدل عليه ببرامج

[Ultra Games]

http://img109.imageshack.us/img109/9116/capturejy.png

ده واجهه البرنامج

الكود هيبقى ايه؟؟

[Fa3eL_5eaR]

100 100 يا معلم

[XxrusilaXx]

سؤال رفيع !! انت فهمت كل ده ازاى ! بسم الله ما شاء الله طبعا :d

بس انا بصيت ف اول كام ستر تنحت ف الكلام !! :d
و مفهمتش حاجه الحمد لله :d مش عيب ف شرحك بس انا مش فاهم ايه باكتس و الارقام الكتير دى :d

[acer20006]

واااااااااو
الموضوع لسة فى ناس بتشوفة لحد دلوقتى ^^
برغم من ظروف البلد الا انها حاجة تفرح
انا بقالى شهور بعيد عن الجيم وعن حاجات كتيرة
ممكن حد يقولى اخر الاخبار اية ؟
acer20006

[gofa_25]

واااااااااو
الموضوع لسة فى ناس بتشوفة لحد دلوقتى ^^
برغم من ظروف البلد الا انها حاجة تفرح
انا بقالى شهور بعيد عن الجيم وعن حاجات كتيرة
ممكن حد يقولى اخر الاخبار اية ؟
acer20006



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

بس انا بقى اللى هبعد عن المنتدى وعن سيلك رود شوية كدة عشان عندى مشروع تخرج php
أخلصه واجيلكوا ع طول :D

[gofa_25]

http://img109.imageshack.us/img109/9116/capturejy.png

ده واجهه البرنامج

الكود هيبقى ايه؟؟


بص هوة فيه حاجة عندك غلط بس
مينفعش تبقى Check box
عشان ممكن واحد يعلم على الإتنين مع بعض
هوة واحد بس ولو عايزه يلم يبقى متعلم عليه ولو مش عايزه يلم يشيل العلامة

[Ultra Games]

بص هوة فيه حاجة عندك غلط بس
مينفعش تبقى check box
عشان ممكن واحد يعلم على الإتنين مع بعض
هوة واحد بس ولو عايزه يلم يبقى متعلم عليه ولو مش عايزه يلم يشيل العلامة



تمام

طيب الكود؟

[acer20006]

بص هوة فيه حاجة عندك غلط بس
مينفعش تبقى Check box
عشان ممكن واحد يعلم على الإتنين مع بعض
هوة واحد بس ولو عايزه يلم يبقى متعلم عليه ولو مش عايزه يلم يشيل العلامة



لغة البرمجة اية ؟؟؟؟
بفرض انها ال autoit هيكون الكود واخد الفورمة دية
if $checkbox_1=1 then $checkbox_2=0
ونفس الفكرة هتكون مع اللغات التانية
يعنى الفكرة هتضيف اداة شرط للكود وبس

acer20006

[Ultra Games]

لغة البرمجة اية ؟؟؟؟
بفرض انها ال autoit هيكون الكود واخد الفورمة دية
if $checkbox_1=1 then $checkbox_2=0
ونفس الفكرة هتكون مع اللغات التانية
يعنى الفكرة هتضيف اداة شرط للكود وبس

acer20006

مش فاهم؟؟

و انا سبتهم 2 زى ما هما مخلتش صف واحد بس هما هما صفين(Pick و Dont Pick ) اعمل ايه ؟؟

[gofa_25]

لغة البرمجة اية ؟؟؟؟
بفرض انها ال autoit هيكون الكود واخد الفورمة دية
if $checkbox_1=1 then $checkbox_2=0
ونفس الفكرة هتكون مع اللغات التانية
يعنى الفكرة هتضيف اداة شرط للكود وبس

acer20006


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

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

[gofa_25]

مش فاهم؟؟

و انا سبتهم 2 زى ما هما مخلتش صف واحد بس هما هما صفين(Pick و Dont Pick ) اعمل ايه ؟؟


بص يا باشا
الكود اللى هوة كاتبه ده عشان يضمنلك ان محدش يعلم على pick و no pick مع بعض
يعنى لو انت معلم على واحدة وجيت تعلم على التانية يشيل العلامة من الأولى ويعلم على التانية وهكذا

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


بص انت عاملها فى اللى تحت بتاع ال pick gold
هوة شيك واحد لو متعلم عليه هيلم الجولد ولو مش متعلم مش هيلمه
بس دة اللى اقصده تعمله فى كل اللى فوق

لو شغال فيجوال بيزك
if checkbox1.check = true then
pick gold
هنا تحط كود لم الجولد
end if

ومتعملهاش ب else لإن ملهاش لازمة مش هتحط في إلس حاجة

[acer20006]

انت بتشتغل بلغة اية ؟؟؟

[Ultra Games]

Visual basic

وما اجى اكتب الكود اكتبو فى زرار button Start?

[ahmdod2]

عشان ال Pickup filter
لازم تعرف ازاي تحلل 3015 و 3020 و 30C8 و 3016

اولا 3020 ودي سهله دي عشان تجيب Player unique id

3020
00 00 00 00

ثانياً 30C8 دي packet بتاعت ال Pet

30C8
00 00 00 00
00 00 00 00

اول DWORD ال Unique id بتاع Pickup
تاني DWORD ال id بتاع Item في ال Media

الباقي مش مهم طالما انت عاوزه Pickup بس

3016 الباكت بتاعت اختفاء ال Item من علي الارض

3016
00 00 00 00

DWORD واحد بال Unique id بتاع ال Item

اخيرا 3015

3015
00 00 00 00
00 00 00 00
00
00
00 00 00 00 00 00 00 00 00 00 00 00 00 00
01
00 00 00 00
DWORD بال ID بتاع ال item في Media
DWORD بال Unique ID بتاع ال Item اللي وقع
Byte, Byte, Single, Single, Single بإحداثيات ال Item في اللعبه
Byte فلاج لمالك الايتم
اذا فلاج = 1
DWORD بال Unique ID بتاع مالك الايتم
اذا = 0
تلمو وخلاص ^^



70C5 دي الباكت اللي انت بتبعتها عشان ال Pet يلم Item

70C5
00 00 00 00
08
00 00 00 00

DWORD بال Unique ID بتاع ال Pickup pet
08 معرفش ليه الصراحه بس هي موجوده ^^
DWORD بال Unique ID بتاع ال Item علي الارض


حسب مانا فاكر يعني

[tarek1500]

محدش عنده تحليل Packet 0x2114 بتاعة ال HackShield او منين اجبها؟
و انت اللي مقسم ال Packet كده ولا عندك برنامج

[ahmdod2]

مقدرش افيدك بجد مش بشتغل علي isro

edxloader و اي open source project
SRX Emulator, zBot

[_TheDevil_99]

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

[tarek1500]

مقدرش افيدك بجد مش بشتغل علي isro

edxloader و اي open source project
SRX Emulator, zBot

عندي ال zBot Source بس مفهوش ال 0x2114 ، متعرفش برنامج بيقسم ال Packet كده زي اللي انت عاملها؟

[Ultra Games]

مفيش حدرد عليا

ردو بليزز انا بكره و بعدو هكون فاضى عوز اكتب كود

ممكن تساعدونى

[tarek1500]

مفيش حدرد عليا

ردو بليزز انا بكره و بعدو هكون فاضى عوز اكتب كود

ممكن تساعدونى

ال zBot في كل اللي انت عاوزه ، انت محتاج شغل كتير جدا و صعب حد يشرحلك كل ده ، هو PickUp بس اه بس غلس بردو

[ahmdod2]

عندي ال zBot Source بس مفهوش ال 0x2114 ، متعرفش برنامج بيقسم ال Packet كده زي اللي انت عاملها؟

SilkroadEDXLoader5
بس معرفش هيشتغل علي isro ولا لا

[tarek1500]

SilkroadEDXLoader5
بس معرفش هيشتغل علي isro ولا لا

لا للاسف

[Ultra Games]

طيب ممكن اى حاجه اقدر اوصل لل zbot

[ahmdod2]

هتلاقي كل اللي انت عاوزه في elitepvpers > sro coding corner

[Ultra Games]

عوز اعرف ازاى اعمل كذا صفحه فى برنامج زى البوت كده صفحه فيها Auto Potion و صفحه فيها Auto Pick اعملها ازاى؟

[ahmdod2]

بالنسبه لل Auto pick انا قلتلك قبل كده

عشان ال Pickup filter
لازم تعرف ازاي تحلل 3015 و 3020 و 30C8 و 3016

اولا 3020 ودي سهله دي عشان تجيب Player unique id

3020
00 00 00 00

ثانياً 30C8 دي packet بتاعت ال Pet

30C8
00 00 00 00
00 00 00 00

اول DWORD ال Unique id بتاع Pickup
تاني DWORD ال id بتاع Item في ال Media

الباقي مش مهم طالما انت عاوزه Pickup بس

3016 الباكت بتاعت اختفاء ال Item من علي الارض

3016
00 00 00 00

DWORD واحد بال Unique id بتاع ال Item

اخيرا 3015

3015
00 00 00 00
00 00 00 00
00
00
00 00 00 00 00 00 00 00 00 00 00 00 00 00
01
00 00 00 00
DWORD بال ID بتاع ال item في Media
DWORD بال Unique ID بتاع ال Item اللي وقع
Byte, Byte, Single, Single, Single بإحداثيات ال Item في اللعبه
Byte فلاج لمالك الايتم
اذا فلاج = 1
DWORD بال Unique ID بتاع مالك الايتم
اذا = 0
تلمو وخلاص ^^



70C5 دي الباكت اللي انت بتبعتها عشان ال Pet يلم Item

70C5
00 00 00 00
08
00 00 00 00

DWORD بال Unique ID بتاع ال Pickup pet
08 معرفش ليه الصراحه بس هي موجوده ^^
DWORD بال Unique ID بتاع ال Item علي الارض


حسب مانا فاكر يعني

ازاي تستقبل وتبعت ال packets انا فاكر اني كتبتو قبل كده دور في الموضوع هتلاقيه

Auto potion للاسف مجربتش اعملو قبل كده

[™_SaMeR_™]

تسلم

[TiesTo22]

هل تم شرح الجزء العملي؟

[moromvb]

مجهود اكتر من رائع ,,والمحتوي مفيد جداا

[acer20006]

بالنسبة لتقسم الباكتس دة بيكون يدوى او انك تعمل برنامج بوظيفة معينة وتسجل انت فى بعض الاوبى كودز وتحدد شوية وظائف زى تحويل الهكس لاسترنج وخلافة
بس مش هتكون عملية الا فى حالة الباكتس الطويلة بنفس الرتم زى بكت الشنطة
---------------
بالنسبة لارسال الباكتس انا ضفت كود بالمشاركة 90 ودة الرابط
90 (http://silkroad4arab.com/vb/showpost.php?p=4330111&postcount=90)
وكمان فى بصفحة 7 انا ضيفت كود لبرنامج الشات كان فى وظيفة الاتصال ممكن تراجع عليها
بالنسبة لل auto potion فى كذا طريقة
ممكن تعتمد على قراية الميمورى وبعدين تستخدم الباكتس علشان تبعت كود استخدام البوشن
او تستخد الباكتس فى الاقراية والارسال
--------------------------
بالنسبة للجزؤ العملى وانة خلص او لا فللاسف لا
وحتى الجزء النظرى اللى قبلة مخلص كلة
ودية حاجة تحزن مع الاسف

[Ultra Games]

شكرا للك

طلب بعد ازنك

انا عوز اعمل صفحتين فى البرنامج زى البوت كده ازاى؟

[tarek1500]

انا عوز اعمل صفحتين فى البرنامج زى البوت كده ازاى؟

في حاجة اسمها tabControl هي دي

[Ultra Games]

في حاجة اسمها tabControl هي دي

تسلم

[TiesTo22]

بالنسبة لتقسم الباكتس دة بيكون يدوى او انك تعمل برنامج بوظيفة معينة وتسجل انت فى بعض الاوبى كودز وتحدد شوية وظائف زى تحويل الهكس لاسترنج وخلافة
بس مش هتكون عملية الا فى حالة الباكتس الطويلة بنفس الرتم زى بكت الشنطة
---------------
بالنسبة لارسال الباكتس انا ضفت كود بالمشاركة 90 ودة الرابط
90 (http://silkroad4arab.com/vb/showpost.php?p=4330111&postcount=90)
وكمان فى بصفحة 7 انا ضيفت كود لبرنامج الشات كان فى وظيفة الاتصال ممكن تراجع عليها
بالنسبة لل auto potion فى كذا طريقة
ممكن تعتمد على قراية الميمورى وبعدين تستخدم الباكتس علشان تبعت كود استخدام البوشن
او تستخد الباكتس فى الاقراية والارسال
--------------------------
بالنسبة للجزؤ العملى وانة خلص او لا فللاسف لا
وحتى الجزء النظرى اللى قبلة مخلص كلة
ودية حاجة تحزن مع الاسف



أها! طب تمام عادي خد وقتك :) بس عندي سؤال أنت حتكمل الدورة صح؟؟؟؟؟
والله الموضوع لازم يتثبت للأستفادة

[tarek1500]

حد يعرف اجيب ال ShopData منين اللي هي ال Items اللي موجودة في ال Shops

[DeMooN_Hell]

تمام

[PhantomSoft]

طب انا محتاج Example Autoit لتحديد موب مثلا وضربه

او Eample Autoit مثلا لكتابة كلمة في الـ Chat

[ahmdod2]

حد يعرف اجيب ال ShopData منين اللي هي ال Items اللي موجودة في ال Shops

RefShopGoods.txt

Media\server_dep\silkroad\textdata

1 15 STORE_CH_ACCESSORY_TAB2 PACKAGE_ITEM_ETC_ARCHEMY_ATTRSTONE_CRITICAL_11 0 -1 xxx -1 xxx -1 xxx -1 xxx

اللون الاحمر الـ Code بتاع الـ Tab

اللينك بين الـ Group و الـ NPC من refmappingshopwithtab.txt
اللينك بين الـ Group و الـ Tabs من refshoptab.txt

يعني انت لازم تجيب ال Tabs وال Groups من Refshoptab بعدها تجيب ال NPC و ال Groups من refmappingshopwithtab بعدها توصل كل ال Tabs بال Group بتاعتها بعدها توصل كل Group بال NPC

اللون الاصفر الـ Code بتاع الـ Package item

اللينك بين Package item و Code name من refscrapofpackageitem.txt

اللون اللبني ده ال Slot اللي Item فيه عند NPC

يعني ال Item ده هيكون في

NPC :
STORE_CH_ACCESSORY

Group:
STORE_CH_ACCESSORY_GROUP1

Tab:
STORE_CH_ACCESSORY_TAB2

Package name:
PACKAGE_ITEM_ETC_ARCHEMY_ATTRSTONE_CRITICAL_11

Item code name:
ITEM_ETC_ARCHEMY_ATTRSTONE_CRITICAL_11

Slot:
0


ممكن اكون غلطان اصلي عاوز انام :stun:

[tarek1500]

refshopgoods.txt

media\server_dep\silkroad\textdata

1 15 store_ch_accessory_tab2 package_item_etc_archemy_attrstone_critical_11 0 -1 xxx -1 xxx -1 xxx -1 xxx

اللون الاحمر الـ code بتاع الـ tab

اللينك بين الـ group و الـ npc من refmappingshopwithtab.txt
اللينك بين الـ group و الـ tabs من refshoptab.txt

يعني انت لازم تجيب ال tabs وال groups من refshoptab بعدها تجيب ال npc و ال groups من refmappingshopwithtab بعدها توصل كل ال tabs بال group بتاعتها بعدها توصل كل group بال npc

اللون الاصفر الـ code بتاع الـ package item

اللينك بين package item و code name من refscrapofpackageitem.txt

اللون اللبني ده ال slot اللي item فيه عند npc

يعني ال item ده هيكون في

npc :
Store_ch_accessory

group:
Store_ch_accessory_group1

tab:
Store_ch_accessory_tab2

package name:
Package_item_etc_archemy_attrstone_critical_11

item code name:
Item_etc_archemy_attrstone_critical_11

slot:
0


ممكن اكون غلطان اصلي عاوز انام :stun:

طب انا عندي في ملف "refshopgoods_50.txt" اول سطر
1 11 LEVEL_CH_ARMOR1_TAB1 PACKAGE_ITEM_EVENT_CH_M_HEAVY_01_AA_B_RARE 4 -1 xxx -1 xxx -1 xxx -1 xxx
اسم ال NPC هنا ايه؟

[ahmdod2]

مفيش عندي Tab بالاسم ده :thumbs_up:

[Ultra Games]

http://www.imageurlhost.com/images/rh7fdyer637in37wq8ql.png

ممكن تقولولى اعملهم ازاى؟؟

[tarek1500]

مفيش عندي Tab بالاسم ده :thumbs_up:

ده في ال iSRO اول سطر

[ahmdod2]

اه انا كنت بشوف في server تاني ^^

ده اسم ال Store في Refshop :
STORE_CH_LEVEL1

ده اسم ال NPC في characterdata_xxxx :
NPC_LEVEL_SUPPLIES_VALUABLES1_CH

[ahmdod2]

http://www.imageurlhost.com/images/rh7fdyer637in37wq8ql.png

ممكن تقولولى اعملهم ازاى؟؟

1 : ممكن تعملها ب Panels
2:

بص يا سيدي انت هتحط TabControl جديده في المشروع
وتحط الكود ده في البرنامج ( اذا VB.NET )
وتغير xxxx بمسار الصوره عندك علي الجهاز




TabControl1.ImageList = New ImageList
TabControl1.ImageList.ImageSize = New Size(96, 96)
TabControl1.ImageList.Images.Add(New Bitmap("xxxx"))
TabPage1.ImageIndex = 0




3: Checkbox

[Ultra Games]

اوك شكرا

انا فى انتظارك

[tarek1500]

اه انا كنت بشوف في server تاني ^^

ده اسم ال Store في Refshop :
STORE_CH_LEVEL1

ده اسم ال NPC في characterdata_xxxx :
NPC_LEVEL_SUPPLIES_VALUABLES1_CH

عرفت منين بقي؟؟؟؟

http://www.imageurlhost.com/images/rh7fdyer637in37wq8ql.png

ممكن تقولولى اعملهم ازاى؟؟

1. ممكن ProgressBar او zBot عامل ProgressBar حلو
2.حاجة اسمها tabControl
3. انت ممكن تعمل CheckBox و تحط اي Text عليه

[Ultra Games]

معلش يا صحبى انا جى اعمل الصوره متعملتش ممكن تقولى اعملها ازاى؟

علشان انا عامل كذا صفحه زى البوت

[Ultra Games]

عرفت منين بقي؟؟؟؟



1. ممكن ProgressBar او zBot عامل ProgressBar حلو
2.حاجة اسمها tabControl
3. انت ممكن تعمل CheckBox و تحط اي Text عليه

2: منا عملها زى ما انت بتقول بس عوزها صور كده زى البوت ازاى؟

1:اخليها ProgressBar والونها ازاى؟

انا عوز زى ibot

[tarek1500]

2: منا عملها زى ما انت بتقول بس عوزها صور كده زى البوت ازاى؟

1:اخليها ProgressBar والونها ازاى؟

انا عوز زى ibot

مش فاكر ازاي بصورة :D
ProgressBar (http://www.mediafire.com/?c01ntccbh26dg8o) بس ده C# تعامل انت

[Ultra Games]

طيب هى ممكن تعمل ب textbox?

[tarek1500]

طيب هى ممكن تعمل ب textbox?

هي ايه؟

[Ultra Games]

رقم ١

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

[ahmdod2]

عرفت منين بقي؟؟؟؟

فتحت Refshoptab عملت Search عن LEVEL_CH_ARMOR1_TAB1

جبت اسم ال Group
LEVEL_CH_ARMOR1_GROUP1

فتحت refmappingshopwithtab.txt عملت Search عن LEVEL_CH_ARMOR1_GROUP1

جبت اسم ال Store
STORE_CH_LEVEL1

بعدها فتحت refmappingshopgroup.txt عملت Search عن STORE_CH_LEVEL1

جبت اسم ال Group ( ال Group بيبقي ليه اسمين )
GROUP_STORE_CH_LEVEL1

بعدها فتحت refshopgroup.txt عملت Search عن GROUP_STORE_CH_LEVEL1

جبت اسم ال NPC في characterdata
NPC_LEVEL_SUPPLIES_VALUABLES1_CH

^_^


اوك شكرا

انا فى انتظارك

انا عدلت الرد اللي فات
انا عملتلك Add علي Windows live

[Ultra Games]

وهيكون نفس الكود فى باقى الصفح؟ Tabpage?

[ahmdod2]

الكود انت هتحطه في Form Load

تعمل Add لكل صوره في ImageList الاول



TabControl1.ImageList.Images.Add("XXX")



بعد كده

TabPage1.ImageIndex = 0

كده الصوره رقم واحد اللي انت حطيتها هتبقي في TabPage1

TabPage2.ImageIndex = 1

كده الصوره رقم 2 اللي انت حطيتها هتبقي في TabPage2

وهكذا حسب الترتيب اللي هتضيف في الصور بقي

[tarek1500]

فتحت refshoptab عملت search عن level_ch_armor1_tab1

جبت اسم ال group
level_ch_armor1_group1

فتحت refmappingshopwithtab.txt عملت search عن level_ch_armor1_group1

جبت اسم ال store
store_ch_level1

بعدها فتحت refmappingshopgroup.txt عملت search عن store_ch_level1

جبت اسم ال group ( ال group بيبقي ليه اسمين )
group_store_ch_level1

بعدها فتحت refshopgroup.txt عملت search عن group_store_ch_level1

جبت اسم ال npc في characterdata
npc_level_supplies_valuables1_ch

^_^




انا عدلت الرد اللي فات
انا عملتلك add علي windows live

مش عارف اقولك ايه :d شكرا

[Ultra Games]

تمام تسلم

تعبتك معايه

[Ultra Games]

ده ايميلى
[email protected]

ده الا بفتحوا دلاوقتى

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

[ahmdod2]

ادعولي بس :crybaby:

لما افتكر ال password بتاعت yahoo هعملك add ^^

[_TheDevil_99]

طب يا جماعه بدل ما تعدوا تعملو بوت من جديد والكلام ده ما تحاولو تصلحوا ال ibot لان الراجل جاب اخره خلاص

http://im34.gulfup.com/p3qN5.jpg (http://www.gulfup.com/?V83fAw)

بْآلْبْلْدْيْ آلْأيْ بْوْتْ مْشْ ﮬ̲̣̐يْرْجْعْ غْيْرْ عْلْيْ إيْدْ وْآحْدْ مْنْ آلْمْنْتْدْيْ دْﮬ̲̣̐

[Ultra Games]

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

ممكن فيديوا ازاى او صور

معلش هتعبك معايه

[GhaiBoba]

معاك و هتابع :stretcher:

[_HitIer_]

تم وضع الموضوع فـ ارشيف البرامج المميزه

[Ultra Games]

ياكبير انتو تنشتونى ولا ايه :welcomeani:

[osama mansour]

مااااااااااااتحااااولش بعد فشلى :(138):

[gofa_25]

2: منا عملها زى ما انت بتقول بس عوزها صور كده زى البوت ازاى؟

1:اخليها ProgressBar والونها ازاى؟

انا عوز زى ibot


بص يا باشا
البروجرس بار دة فى الفجوال لونه لبنى كدة بس ومبيتغيرش بسهولة مش بأوبشن يعنى
دة ليه كود كدة بيتكتب وفنكشن بتستدعيها
وبيبقى اللون انت بتحدده بأرقام من 1 الى 25ألف حاجة زى كدة

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

[درش درش]

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

[elshaib]

thx bro

[Cursed_Devil]

مجهود خرافى

[elshaib]

niceee

[TiesTo22]

متى سيتم أكمال الدورة؟!

[tarek1500]

محدش يعرف كود لودر مش محتاج Update كل شوية زي edxloader او بدور علي ايه في ال SRO_Client.exe علشان اعمل MultiClient و افتح علي IP تاني ، و عاوز حد يفيدني في ال Hackshield Packet (0x2114)

[Mad_General]

اهلااا اهلااا اهلاااا بالبرمجه وسنينهااا

منورين يارجااله ياريت لو حد يتاابع واحنا ان شاء الله نعمل اجدعها بوت :rofl:

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

بسم الله توكلنا على الله ...

FindTarget

Namespace bot
Module mFindTarget

Dim closestDist As Int32
Dim objectid As Int32
Function findTarget() As Int32

closestDist = 20000 'reset
objectid = -1




Do
For Each mob As cMob In mobList.Values
'If mob.mobTyp = 0 Then
cheackTarget(mob)
'End If
Next
Threading.Thread.Sleep(50)
Loop Until objectid <> -1

Return objectid

End Function




Function cheackTarget(ByVal mob As cMob) 'check if the target is falid

If mob.ignore = True Then Exit Function
If mob.alive = False Then Exit Function
If myConfig.KillSteal = False Then
If mob.unterAttack IsNot Nothing Then
If mob.unterAttack.Count <> 0 Then Exit Function
End If
End If

Dim distanz As Int32 = calcDist(myChar.Movement.currentPos, mob.Movement.currentPos)
If distanz > closestDist Then
Exit Function
End If

closestDist = distanz

objectid = mob.objectid
If objectid = 0 Then
MsgBox("")
End If
End Function





End Module
End NamespacePickup

Namespace bot
Module mPickup


Function getclosest_item() As Int32
Dim itemfound As Int32 = -1
Dim distanz As Int32 = 30000
Dim tempdist As Int32
If lockItemList() = False Then
Exit Function
End If
Dim _itemList As cItem() = itemList.Values.ToArray
unlockItemList()

For Each item As cItem In _itemList
If item.owner = myChar._accID Then
tempdist = calcDist(myChar.Movement.currentPos, item.position)
If distanz > tempdist Then
distanz = tempdist
itemfound = item.objectid
End If
End If
Next
Return itemfound
End Function




Public Sub pickItems()
' Dim _itemlist As Hashtable = gVar.itemlist.Clone


Dim itemfound As Int32 = getclosest_item()

If myConfig.itempickmobcheck <> 0 Then
If itemfound <> -1 Then
Dim mobfound As Int32 = checkifmobaround(itemfound)
If mobfound <> -1 Then
Do Until mTargetMob.target(mobfound)
Threading.Thread.Sleep(1000)
Loop
Exit Sub
End If
End If
Else

End If

If itemfound = -1 Then
Exit Sub
Else
pickupitem(itemfound)
End If

pickItems()



End Sub

Function checkifmobaround(ByVal itemid As Int32) As Int32
Dim mobFound As Boolean = False
Dim item As cItem = itemlist(itemid)

For Each mob As cMob In moblist.Values
If mob.alive = True Then
'Console.WriteLine(calcDist(mob.Movement.currentPo s, item.position))
If calcDist(mob.Movement.currentPos, item.position) < myConfig.itempickmobcheck Then
Return mob.objectid
Exit Function
End If
End If
Next

Return -1
End Function

Sub pickupitem(ByVal itemid As Int32)
IjectPickUp(itemid)
Do
If itemList.ContainsKey(itemid) = False Then
Exit Sub
End If
Threading.Thread.Sleep(50)
Loop Until myChar.castQ.skillQ(cCastQ.enumSkillQ.first).Skill .id = 0 And myChar.castQ.paddingSkills.Count = 0

End Sub

Sub IjectPickUp(ByVal target As Int32)
Log_BotAction("pickup--> " & fixdata.itemDataList(itemList.Item(target).objectT ypID).name)
Dim packet As Byte() = {7, 0, &HCD, &H72, 2, 0, _
1, 2, 1, _
0, 0, 0, 0}
BitConverter.GetBytes(target).CopyTo(packet, 9)
myChar.castQ.add(&HFFFE)
connection.sendpacket(packet)
End Sub



End Module
End NamespacecConnection

Public Class cConnection

Dim _Connection As Net.Sockets.TcpClient
Dim _ReadDataThread As Threading.Thread
Dim _Port As Int32

Sub New(ByVal port As Int32)
_Port = port
End Sub

Function start() As String
Try
_ReadDataThread = New Threading.Thread(AddressOf readData)
_Connection = New Net.Sockets.TcpClient
_Connection.Connect("127.0.0.1", _Port)
_ReadDataThread.Start()

Catch ex As Exception
Return ex.Message
End Try
Return "Connection: OK"
End Function

Sub close()
_ReadDataThread.Abort()
_Connection.Close()
End Sub


Dim packet As sPacket
Sub readData()
Dim bytetoread As UInt16
Do
Do
bytetoread = _Connection.Available
If bytetoread >= 6 Then
Dim buffer(6 - 1) As Byte
_Connection.Client.Receive(buffer, 6, Net.Sockets.SocketFlags.None)
packet = New sPacket
packet.len = BitConverter.ToUInt16(buffer, 0)
packet.opc = BitConverter.ToUInt16(buffer, 2)
packet.dest = BitConverter.ToUInt16(buffer, 4)
Exit Do
Else
Threading.Thread.Sleep(10)
End If
Loop

Do
bytetoread = _Connection.Available
If bytetoread >= packet.len Then
Dim buffer(packet.len - 1) As Byte
_Connection.Client.Receive(buffer, packet.len, Net.Sockets.SocketFlags.None)
packet.data = buffer
opcSwitch(packet)
Exit Do
Else
Threading.Thread.Sleep(10)
End If
opcSwitch(packet)
Loop

Loop
End Sub






Public Sub sendpacket(ByVal data() As Byte)
_Connection.Client.Send(data)
End Sub









End Classانا كل حاجه موجوده معايا بس مش عارف اذا كانت صح او غلط محتااج حد محترف اوووى
انا اخدت وقت كبيير اووووى على ماعملت كل الحاجات دى
كنت بامشى مع شروحات واحده واحده وملف ملف وبافتح سورسات كتير علشان افهم اتعملت ازاى

ياريت بس حد يوجههنى ويقولى الغلط والحاجات اللى لازم اعملها
وعلى فكره الفورمات لسا مش جاهزة يعنى اى هبل كدا وخلااص فمحدش يطلب صور دلوقتى :)

[xX_&_HOTA_&_Xx]

حرام عليك حطمتنى انا مش فاهم اى حاجه من الارقام دى

المهم انو فيه بوت نلعب بيه

صحيح هيا مش بالتعليم ولا الكليات دانا طلعت تيييييييييييييييت:111 (9):

[_HitIer_]

يا رجاله فى حد بيرور على االاستفسارات ولا ايه
علشان لو مفيش حد كده الموضوع هيبقى
:mfr_closed1:

[acer20006]

برجاء غلق الموضوع
اسف ياجماعة انا مش هقدر اكمل الموضوع
ارجوا ان الجزء الموجود فى اول الموضوع يفيد اللى هيقراءة

[silkroadalking2]

7lw Brnamg Bas Dah M7tag Wad Kteer 3lshan N3ml Zyk

[silkroadalking2]

Ana Lsa Hshfo Wa Shklo Flw Zay Ma Anta Bt2olo Kolo M3ak Bas 7aol T7od Sor Aktr

:surfing::surfing::surfing:

[silkroadalking2]

Momken T3mlo Tany Bas ktr Sor Y3ni Asdi Kol 5dwa 7od Sora Bt3ha Fi Nas Btfhmha Mn Sor

Wa 7awl Tsh3'l Mowd3 Shioa

:sport_box: :sport_box: :sport_box: :sport_box:

[╣VendeTTa╠]

معاك ومتابع

[koky86]

يا رات حد يشرح الجزء Silkroad Securty

[iMido]

للامام
ربنا معاك ^_^

[_HitIer_]

برجاء غلق الموضوع
اسف ياجماعة انا مش هقدر اكمل الموضوع
ارجوا ان الجزء الموجود فى اول الموضوع يفيد اللى هيقراءة




يا رجاله ده كلام صاحب الموضوع حد هيقدر يرد مكانوا ...

[firekiller]

انا معاك بس بعد الثاموية انشاء الله:laser:

[™ MooKa ™]

انا معاك يا معلم

:biker:

[Privacy]

روعه :xmas:

[Privacy]

مغلق.