مساعدة بالملف التنفيذي (vb )

مرحبا اخواني انا اليوم جاي وحامل معي سؤال سخيف
وياريت تجاوبوني عليه
هل ممكن تدلوني على الطريقة الي من خلالها نقوم بصنع ملف exe مضمون 100% يعني بيشتغل غير الطريقة التقليدية
الي بتنعمل عن طريق file ثم حفظ كملف تنفيذي
أخوكم عماوي

اقتباس:

---

مضمون 100% يعني بيشتغل غير الطريقة التقليدية

---

وضح ايش قصدك يا خي؟ كيف يعني مضومن و مش تقليدي؟

ــــــ أخي الكريم ــــ
لعمل ملفات تنفيذية EXE لا بد من معرفتك لغة برمجه على الأقل مثل فيجوال بيسك لكي تنشا ملف مبرمج برمجتك الخاصة مثل موضوعو الموجود عندكم في المنتدى ((لمن يهمه امر اولاده ومستواهم في الرياضيات ))


ـــــــ أما الطريقة الأخرى ـــــــــ
وهي وجود برامج تحول انواع معينة من مشاريعك وملفاتك على شكل ملف تنفيذي مثل برنامج تحويل ملفات الباور بوينت إلى ملف exe أو ملفات صور إلى ملفات exe وغيرها كتير .

ومثلا البرنامج الموجود في ذهني هو .
pdf to exe
وهو لتحويل الكتب الإلكترونية غلى برنامج exe



في امان الله

اخوي Thaern
وضح ايش قصدك يا خي؟ كيف يعني مضومن و مش تقليدي؟
يعني انو بيشتغل على هيئة exe
2- مش تقليدي : يعني مش معمول على الطريقة الى انا ذكرتها
ارجو مساعدتك
اخوي AMA THE ONE
ــــــ أخي الكريم ــــ
لعمل ملفات تنفيذية EXE لا بد من معرفتك لغة برمجه على الأقل مثل فيجوال بيسك لكي تنشا ملف مبرمج برمجتك الخاصة مثل موضوعو الموجود عندكم في المنتدى ((لمن يهمه امر اولاده ومستواهم في الرياضيات ))


ـــــــ أما الطريقة الأخرى ـــــــــ
وهي وجود برامج تحول انواع معينة من مشاريعك وملفاتك على شكل ملف تنفيذي مثل برنامج تحويل ملفات الباور بوينت إلى ملف exe أو ملفات صور إلى ملفات exe وغيرها كتير .

ومثلا البرنامج الموجود في ذهني هو .
pdf to exe
وهو لتحويل الكتب الإلكترونية غلى برنامج exe
الطريقة الأولى انا مبتدا vb وبدي كود أو ما شابه لصنع الملف التنفيذي
الطريقة الثانية : هل ممكن انك تدلني على مثل هذا البرنامج ان وجد

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

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

اخوي طيب رح امشي معك انت كيف بتسوي ملف ال exe
اخوك عماوي

File>> Make Project.exe

عليك نور اخي نفس الطريقة الي بسويها بس شو رأيك انها بس بتشتغل على جهازي يعني ما بتشتغل على اي جهاز ثاني
(بس في مرة سويت الملف على جهازي واشتغل "ما بعرف كيف " على جهاز اخر بالمعهد ).
السؤال الىن ليش ؟؟؟؟؟؟؟؟؟؟
اتمنى انك تفيدني
أخوك عماوي

جاوبني اخوي اذا سمحت

اين انت اخي
اخواني جاوبوني من بعد اذنكم
اخواني كأنو في خلط بمنتدى البرمجة
اخوكم عماوي

أخي الخطأ ليس لان الملف التنفيذي الذي عملته ليس جيد او من النوع "التقليدي":09:.. الخطأ غالبا سيكون خطأ في الكود (على سبيل المثال اذا عملت برنامج يفتح صورة من ملف و الملف لم يكن على الجهاز الثاني فلن يعمل البرنامج على الجهاز الثاني اذا لم يكن كودك مدروس) و في مرات بتصير مشاكل اذا ادوات التحكم من ملفات ocx و و مكاتب dll المستخدمة في البرنامج ليست موجود على الجهار الذي تشغل البرنامج عليه ..

اخوي Thaern البرامج لم يكن فيها صور ولا مكتبا dll او ocx وكنت متأكد من الكود 100%
اذا ماذا ؟
اخوكم عماوي

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

و انشالله راح نحلها.. بس قصة التقليدي و مش تقليدي هدا كلام مفيش منو:09:

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

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

انا لم اقرأ الموضوع جيدا ولكن كان هناك سبب رئيسي يمنع مشروعك من النهوض ( الفايروس) تتذكر ربما هو الى الان يعمل عندك ؟

وشكرا

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

اخواني لماذا اجيبوني

عماوي كسرت قلبي .... كلما تقوم بالرد تكتب اسمك الله يهديك لا تعملها إلا للضرورة... خبرتي أضعها بين يديك ولا يهمك شكلي فمت الطبخة تدلل علينا

الطبخة هي كيفية أنشاء ملف من نوع exe ... بسيطة وتدلل أينما ذهبت في منتدى البرمجة

الطريقة المتبعة لذلك تختلف حسب نوع اللغة والمترجم أي سوف أقدمها لك فقط على فجوال بيسك 6 بما انك تحب هذه اللغة سوف تكون الاكواد جدا جدا بسيطة والناتج عنها إن شاء الله الذي تهواه يا زميلي العزيز أي الفكرة تكون تنتج ألام الأطفال وخذه على محمل الجد .... ألان المشروع كيف يبنى :

انشىء مشروعا جديدا ..... ! على مهلك عماوي ليس بهذه السرعة عليك أل عماوييييييييييي أوه أسف لا عليك أين كنا .... ها المكونات التي ستضاف إلى المشروع التجريبي هي:

Image

و

Textbox

تليها الاكواد.... لنبدأ :

في قسم General اكتب ما يلي :



Dim Exe As New PropertyBag



في الحدث Form_Load قم بكتابة مايلي :



Dim BeginPos As Long

Dim varTemp As Variant

Dim byteArr() As Byte



Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1

Get #1, LOF(1) - 3, BeginPos

Seek #1, BeginPos

Get #1, , varTemp



byteArr = varTemp

PropBag.Contents = byteArr



PropBag.WriteProperty "LOF", LOF(1)

PropBag.WriteProperty "BeginPos", BeginPos

Close #1



With PropBag

Text1.Text = .ReadProperty("Text")

Set Image1.Picture = .ReadProperty("Picture")

End With



ألان انتهينا من المشروع وكل ما علينا تمويه خاصية المشروع وذلك بذهاب إلى ...



File

ومن ثم

Makeproject1.exe

ستظهر نافذة إنشاء المشروع اكتب اسم المشروع وليكم على هواك على أن يكتب معه

.obj

مثلا سميت اسم المشروع

Prj.obj

ومن ثم اضغط ok فجوال بيسك سوف تخبرك مباشرتا انه لايمكن تنفيذ المشروع على تلك التسمية وأنا أقول لك السبب هو لأننا مع تسمية المشروع و ضعنا .obj هذه الهيئة تستعمل من قبل مترجم لغة سي ++ و مترجم فجوال بيسك يرفض تلك الهيئة السبب إن فجوال بيسك تحسد سي ++ على قوتها ههههه امزح ..... ألان لقد عطلنا مترجم فجوال بيسك عماوي لا تحزن ....... هذا العطل لن يدوم لأنه مرهون بتسمية مشروعك مرة أخرى وأيضا لكي لا أنسى هذا العطل لن يؤثر على فجوال بيسك بتاتا فقط مفعوله في هذا المشروع ، إذن لنحاول مرة أخرى أن نكون الملف ألان بعد ضغطك لل make قم بتغيير .obj إلى مثلا

Prj.momi

ألان ضغط ok سوف يتم إنشاء الملف ...، احفظ المشروع وقم بإنشاء مشروع جديد ثم أضف مشروعك السابق إليه عن طريق

File

Add Project

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

Image

و

Textbox = 2

و

CommandButton





انقر على الزر نقرا مزدوجا ثم أضف الاكواد التالية :



Dim BeginPos As Long

Dim PropBag As New PropertyBag

Dim varTemp As Variant



With PropBag

.WriteProperty "Text", Text1.Text

.WriteProperty "Picture", Image1.Picture

End With



FileCopy App.Path & "\Prj.momi", App.Path & "\" & Text2.Text



Open App.Path & "\" & Text2.Text For Binary As #1

BeginPos = LOF(1)

varTemp = PropBag.Contents

Seek #1, LOF(1)

Put #1, , varTemp

Put #1, , BeginPos

Close #1



MsgBox "تم بعون الله"



ضع أي صورة داخل image1 بتاع المشروع الأول وأكثر داخل text1 بتاع المشروع الأول



ألان اذهب واصنع المشروع ويفضل أن يكون مع



Prj.momi



شغل مشروعك واضغط على الزر واذهب إلى موضع تكوين الملفات لتشاهد انك قد أنشأت ملف exe نقي 100% ويعمل مع الجميع

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

أخوك حسام

اقتباس:

---

فورمات صدقني اكثر من 25

---

هو لسى عايش هههه الله يعينك

مشكور اخوي حسام
اللهم يا ربي ارفع اخي حسام درجات من عندك يا رب واجعل عمله صالحا ورزقه حلال طيبا ووفق والديه الى ما تحب وترضى
واخوي رح اطبق كل الي حكيته الآن ان شاء الله واضعه ليراه الجميع ويطمني
_____________________
اي نعم 25 مرة تصدق
بس شو قصة الله يعينك شو شايفني طافي (امزح)
================================
مشكور اخوي كثير كثير
اخوك عماوي (كيف لازمني حنان )

على فكرة اسمي عيسى عماوي لازم تحفظوه (انت قلت لي تدلل )

مرحبا اخي مجددا عارف صرت مغلبك معي كثير هالمرة وقبلها وكل مرة بطلع بشيء شكل
بس صار معي هالمشكلة
انظر الصورة
http://www.up4arab.net/uploads/44cc335f54.gif

مع اني لم افتحه شيء غريب حتى اسمه مش هيك اسمه essa وليس بروجيكت
عارف اني غلبتك

الله يخليك عيسى افرتحني كثيرا , آمين لامة محمد
همممم ارسل لك المشروع احسن ونرى التغيرات ان شاء الله

بس كأني اشاهد 3 كروبات للمشروع هو فقط محتاج 2

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

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

اخوي رح ارد اتعبك
عملت كما علمتني في السابق انشأت مشروعي ثم اضفت عليه الجروب الي كان بالملف الي اعطيتني اياه ثم عملت ميك exe
بس قبل هيك اثناء فك الضغط
http://www.up4arab.net/uploads/c2e7afc4b7.gif

2- بعد محاولتي تشغيل الملف التنفيذي هنا وفي كل مكان
http://www.up4arab.net/uploads/5b68e26666.gif

المهم هي حطيت ملف عملته قبل فترة ارجوا انك تشوفه (انا متأكد 100% انو الغلط مني وعلشان هيك ارجوا انك تساعدني )
الملف بالمرفقات

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

عيسى الذي في الصورة الثانية ليس بعاطل فهو متصل مع essa vb6 c.... اي من خلاله يمكن انشاء ملف بصيغة exe لا تخف ابدا واكواده موجود مع المرفق ثم اليك بعض التحسينات الى مشورعك

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1

Private Sub Command5_Click()
'MsgBox "???I?C ?? E??? ???C ????? C?E???? ?E? CEEC?? ??C C??CE? www.motada.com/showthread.php?t=402043"
'ShellExecute hwnd, "open", "http://www.motada.com/showthread.php?t=402043", vbNullChar, vbNullChar, SW_NORMAL
If MsgBox("???I?C ?? E??? ???C ????? C?E???? ?E? CEEC?? ??C C??CE?", vbInformation + vbYesNo) = vbYes Then
ShellExecute hwnd, "open", "http://www.motada.com/showthread.php?t=402043", vbNullChar, vbNullChar, SW_NORMAL
End If
End Sub

ثم انا اسف جدا

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

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

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

الحمد لله طمئنتني
وانا اكثر ان شاء الله