المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مساعدة بالملف التنفيذي (vb )


amawi
30-08-2005, 06:20 PM
مرحبا اخواني انا اليوم جاي وحامل معي سؤال سخيف
وياريت تجاوبوني عليه
هل ممكن تدلوني على الطريقة الي من خلالها نقوم بصنع ملف exe مضمون 100% يعني بيشتغل غير الطريقة التقليدية
الي بتنعمل عن طريق file ثم حفظ كملف تنفيذي
أخوكم عماوي
Thaern
30-08-2005, 08:50 PM
مضمون 100% يعني بيشتغل غير الطريقة التقليدية

وضح ايش قصدك يا خي؟ كيف يعني مضومن و مش تقليدي؟
AMA THE ONE
31-08-2005, 03:07 AM
ــــــ أخي الكريم ــــ
لعمل ملفات تنفيذية EXE لا بد من معرفتك لغة برمجه على الأقل مثل فيجوال بيسك لكي تنشا ملف مبرمج برمجتك الخاصة مثل موضوعو الموجود عندكم في المنتدى ((لمن يهمه امر اولاده ومستواهم في الرياضيات ))


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

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



في امان الله
amawi
31-08-2005, 03:45 PM
اخوي Thaern (http://www.montada.com/member.php?u=276515)
وضح ايش قصدك يا خي؟ كيف يعني مضومن و مش تقليدي؟
يعني انو بيشتغل على هيئة exe
2- مش تقليدي : يعني مش معمول على الطريقة الى انا ذكرتها
ارجو مساعدتك
اخوي AMA THE ONE (http://www.montada.com/member.php?u=285240)
ــــــ أخي الكريم ــــ
لعمل ملفات تنفيذية EXE لا بد من معرفتك لغة برمجه على الأقل مثل فيجوال بيسك لكي تنشا ملف مبرمج برمجتك الخاصة مثل موضوعو الموجود عندكم في المنتدى ((لمن يهمه امر اولاده ومستواهم في الرياضيات ))


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

ومثلا البرنامج الموجود في ذهني هو .
pdf to exe
وهو لتحويل الكتب الإلكترونية غلى برنامج exe
الطريقة الأولى انا مبتدا vb وبدي كود أو ما شابه لصنع الملف التنفيذي
الطريقة الثانية : هل ممكن انك تدلني على مثل هذا البرنامج ان وجد
amawi
01-09-2005, 10:52 PM
شو اخواني كيف حالكم
ارجوا انكم تردوا على سؤالي
طلبا لا أمرا
أخوكم عماوي
Thaern
02-09-2005, 04:54 AM
يا اخي ما فيش حاجة زي هيك.. مافيش حاجة اسمها الطريقة الغير تقليدية لصنع ملف ال exe.. البرنامج لازم تبرمجو و تعدل اي اخطاء في الكود عندك. بعدين تعمل نسخة نهائية للتوزيع..
amawi
02-09-2005, 09:41 PM
اخوي طيب رح امشي معك انت كيف بتسوي ملف ال exe
اخوك عماوي
Thaern
03-09-2005, 08:42 AM
File>> Make Project.exe
amawi
03-09-2005, 12:02 PM
عليك نور اخي نفس الطريقة الي بسويها بس شو رأيك انها بس بتشتغل على جهازي يعني ما بتشتغل على اي جهاز ثاني
(بس في مرة سويت الملف على جهازي واشتغل "ما بعرف كيف " على جهاز اخر بالمعهد ).
السؤال الىن ليش ؟؟؟؟؟؟؟؟؟؟
اتمنى انك تفيدني
أخوك عماوي
amawi
04-09-2005, 07:39 PM
جاوبني اخوي اذا سمحت
amawi
06-09-2005, 07:22 PM
اين انت اخي
اخواني جاوبوني من بعد اذنكم
اخواني كأنو في خلط بمنتدى البرمجة
اخوكم عماوي
Thaern
07-09-2005, 02:03 AM
أخي الخطأ ليس لان الملف التنفيذي الذي عملته ليس جيد او من النوع "التقليدي":09:.. الخطأ غالبا سيكون خطأ في الكود (على سبيل المثال اذا عملت برنامج يفتح صورة من ملف و الملف لم يكن على الجهاز الثاني فلن يعمل البرنامج على الجهاز الثاني اذا لم يكن كودك مدروس) و في مرات بتصير مشاكل اذا ادوات التحكم من ملفات ocx و و مكاتب dll المستخدمة في البرنامج ليست موجود على الجهار الذي تشغل البرنامج عليه ..
amawi
07-09-2005, 07:11 PM
اخوي Thaern (http://www.montada.com/member.php?u=276515) البرامج لم يكن فيها صور ولا مكتبا dll او ocx وكنت متأكد من الكود 100%
اذا ماذا ؟
اخوكم عماوي
Thaern
08-09-2005, 03:35 PM
اعطيني نبذة عن البرنامج ؟ و اكتبلي رسالة الخطأ إلي بتطلعلك؟ و قلي متى بتحصل المشكل في البرنامج؟

و انشالله راح نحلها.. بس قصة التقليدي و مش تقليدي هدا كلام مفيش منو:09:
amawi
08-09-2005, 05:11 PM
مشكور اخوي
وانا عارف انو مافي تقليدي وغيره بس هاي دلالة انه بدي شيء ثاني
اولا البرنامج سبق لي وان طرحته هنا ما بعرف اذا شوفته وهو برنامج بسيط جدا يقوم بكشف العدد الأولي من غير الأولي ورسالة الخطا انا ما شفتها لأنه عمل على جهازي ولاكنه لم يعمل على جهاز الاعضاء
وبالتأكيد المشكلة بتصير عند تشغيل البرنامج مباشرة
اخوك عماوي
Argonaut
08-09-2005, 11:12 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته

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

وشكرا
amawi
09-09-2005, 07:13 PM
اخوي انا بعد تلك الحادثة خربت الجهاز من قد ما عملت له فورمات صدقني اكثر من 25 هذا الي انا سويتهم غير الي سوى المصلح
اعتقد ما الآن ما دخل الفايروس
amawi
12-09-2005, 09:16 PM
اخواني لماذا اجيبوني
Argonaut
14-09-2005, 12:56 AM
عماوي كسرت قلبي .... كلما تقوم بالرد تكتب اسمك الله يهديك لا تعملها إلا للضرورة... خبرتي أضعها بين يديك ولا يهمك شكلي فمت الطبخة تدلل علينا

الطبخة هي كيفية أنشاء ملف من نوع 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% ويعمل مع الجميع

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

أخوك حسام
Argonaut
14-09-2005, 12:59 AM
فورمات صدقني اكثر من 25
هو لسى عايش هههه الله يعينك
amawi
14-09-2005, 07:28 PM
مشكور اخوي حسام
اللهم يا ربي ارفع اخي حسام درجات من عندك يا رب واجعل عمله صالحا ورزقه حلال طيبا ووفق والديه الى ما تحب وترضى
واخوي رح اطبق كل الي حكيته الآن ان شاء الله واضعه ليراه الجميع ويطمني
_____________________
اي نعم 25 مرة تصدق
بس شو قصة الله يعينك شو شايفني طافي (امزح)
================================
مشكور اخوي كثير كثير
اخوك عماوي (كيف لازمني حنان )
amawi
14-09-2005, 07:31 PM
على فكرة اسمي عيسى عماوي لازم تحفظوه (انت قلت لي تدلل )
amawi
14-09-2005, 08:07 PM
مرحبا اخي مجددا عارف صرت مغلبك معي كثير هالمرة وقبلها وكل مرة بطلع بشيء شكل
بس صار معي هالمشكلة
انظر الصورة
http://www.up4arab.net/uploads/44cc335f54.gif (http://www.up4arab.net)

مع اني لم افتحه شيء غريب حتى اسمه مش هيك اسمه essa وليس بروجيكت
عارف اني غلبتك
Argonaut
14-09-2005, 10:00 PM
الله يخليك عيسى افرتحني كثيرا , آمين لامة محمد
همممم ارسل لك المشروع احسن ونرى التغيرات ان شاء الله
Argonaut
14-09-2005, 10:04 PM
بس كأني اشاهد 3 كروبات للمشروع هو فقط محتاج 2
Argonaut
15-09-2005, 10:03 AM
عيسى لقد تم بعون الله لقد قمت بمعالجة المشروع وان شاء الله سوف يعمل ولا انسى كانت هناك اخطاء في المشروع الذي قدمته اليك سامحني الان اعتمد على هذه النواة وشكرا
amawi
15-09-2005, 08:42 PM
مشكور اخوي حسام بجربه وبخبرك
ومشكور على تعبك معنا
amawi
15-09-2005, 11:02 PM
اخوي رح ارد اتعبك
عملت كما علمتني في السابق انشأت مشروعي ثم اضفت عليه الجروب الي كان بالملف الي اعطيتني اياه ثم عملت ميك exe
بس قبل هيك اثناء فك الضغط
http://www.up4arab.net/uploads/c2e7afc4b7.gif (http://www.up4arab.net/)

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

المهم هي حطيت ملف عملته قبل فترة ارجوا انك تشوفه (انا متأكد 100% انو الغلط مني وعلشان هيك ارجوا انك تساعدني )
الملف بالمرفقات
amawi
15-09-2005, 11:04 PM
اخوي انت زعلتني شوي ليش حاط اسمي بالبرنامج يعني والله ما بصير وانا من بعد اذنك بدي اشيل اسمي
عيسى
Argonaut
16-09-2005, 05:09 PM
عيسى الذي في الصورة الثانية ليس بعاطل فهو متصل مع 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 (http://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

ثم انا اسف جدا
amawi
17-09-2005, 02:13 PM
مشكور اخوي وانا رح ارد احاول
وانت اكيد مش رح تبخل علينا
سامحني على ازعاجي الكبير لك
اخوك عيسى
amawi
17-09-2005, 02:17 PM
اخوي ارجوا انك ما تكون زعلت علشان اسمي أو غيره والله اني عارف انك حطيتو عنوان محبة واخوة
والله اني ما اخذت المألة من أي ناحية الا انو هذا تعبك وما بجوز اشاركك فيه
ارجو انك ما تكون فهمتني غلط
Argonaut
17-09-2005, 04:49 PM
لا يا اخي عيسى انا فاهم قصدك الطيب من يومه وانا لست من النوع الذي يزعل بسرعة بالعكس لو تعرف كم انا احبكم
ان شاء الله اراك بخير ومحبة
وشكرا
amawi
18-09-2005, 05:24 PM
الحمد لله طمئنتني
وانا اكثر ان شاء الله