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

بدي كود مشان اعمل باتش ؟

مغلق
بدأه nadeen في 18 فبراير 2003 · 10 رد · 1,150 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

سلام الله عليكم :D

انا عدلت على ملف تنفيذي

و بدي صديقتي يكون عندها نفس الشي

بصراحه هو برنامج ال mIRC

عدلت على قوائمه

باستخدام ال ResHak

طبعا مش ممكن ابعت لها ال .exe

هناط طريقه

بان اعمل ملف اخر ابعته لها تقوم هي بتشغيله

و يعدل هو في ال mIRC

جربت

open "c:mirc.exe" for binary as #1

طيب و بعدين ؟!؟!؟!؟

بصراحه ما عرفت شو اعمل ؟!؟!؟!

يا ريت تساعدوني :'(:'(

سلام (gift)

#2

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

تحياتي

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#3

بعد السؤال لا يبدو انه يمكن القيام بهذا التحويل من العربية للانكليزية عن طريق -باتش- فماذا قررت ؟

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#4

السلام عليكم

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

اما اذا اردت الطريقة فها هي :

Open FileToPatch For Binary As #1

          Get #1, 25281, GetBytes% ' 25281 is the offset 

          If GetBytes% <> &H473 Then 

               MsgBox "This is not the correct file version.", vbCritical

               Close #1

               Exit Sub

          Else

               Put #1, 25281, &H474  '  &H474 bytes to change. 

               Put #1, 25285, &H14EB

               MsgBox "FILE PATCHED ! HAVE FUN.", vbInformation

          End If

          Close #1

تحياتي

patchengine.zip

#5

الف شكر اخوي والله انا شايف رح حول على الفيجوال كما الى جانب الاسمبلي

تحياتي ومشكور مرة اخرى

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#6

شكراً أخي خالد و لك و الله رهيب

#7

مشكوووووووووووور خالد الصالح

;);););)

بصراحه انا عتبانه عليكو جماعة الأسمبلي ؟!؟!؟!؟!؟!؟

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

و يلا شووووووووووووووووووووووو :P:p:p:p

لدي بعض الأسئله :-

Put #1, 25281, &H474  '  &H474 bytes to change. 

               Put #1, 25285, &H14EB

&H474 هل هذا ال اوفسيت تاعوا ؟!؟!؟

ما هذا 25281 ؟

ما الغرض من هادا الكود ؟

عفوا ,طبعا ليس الغرض هو عمل ما اريد

بداية بقدر ما انا حابه ازيد معرفتي في ال VB :D:D:D

Get #1, 25281, GetBytes% ' 25281 is the offset 

          If GetBytes% <> &H473 Then

و مشكوووووووووووور كتييييييييييييييييييييييييييييييير (f)(f)

خالد الصالح

خالد الصالح

خالد الصالح

(f)(f)(f)

#8

وينكو يا شباب !!!!!!!

للرفع !

;)

^^^^^^^^^^^^

(f)(f)(f)(f)

#9

هلا nadeen

بس ممكن سؤال من وين جلبتي الاكواد في المستطيلات ؟ ببرنامج debugger او .؟

تحياتي

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

#10

اخ Nop

هاي اقتباس من رد الأخ

خالد الصالح

مشرف منتدى الأسمبلي

يا NOP

معقول انه برنامج ال mIRC

هو المشكله ؟ بلاش ال mIRC

فلنفرض انا شغلت البرنامج في ال W32dasm

و ال String refernces

اتوقع هاي الخطوات بعرفوها شباب الأسمبلي !! :)

و اخدت ال اوفست ثم برنامج ال Hiew

و غير التعليمه اللي بدي اغيرها

هلا انا بدي اعمل الباتش ,على ال vb

او ال Delphi

انا شايفه اكتر من توتريال كاتبها عامل الباتش بنفسه

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

ارجو انك تكون فهمت على اخ NOP

??????

:P:p

#11

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

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

راجعي احد المواضيع في هذا القسم حول هذه الفكرة وستجدين برنامج بنفس الفكرة http://www.arabse.net/vb/forumdisplay.php?forumid=50

تحياتي وما تعتبيش علينا العتب على اخوينا مشرفي الاسمبلي اللي مش ملاقين الوقت تيمدونا بمعلومات اكثر

تحياتي

Do as I say, not as I do

We are Anonymous. We are Legion. We don't forgive. We don't forget

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

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