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

[Argonaut]

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

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

وشكرا

[amawi]

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

[amawi]

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

[Argonaut]

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

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

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

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

[amawi]

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

[amawi]

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

[amawi]

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


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

[Argonaut]

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

[Argonaut]

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

[Argonaut]

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

[amawi]

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

[amawi]

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


2- بعد محاولتي تشغيل الملف التنفيذي هنا وفي كل مكان


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

[amawi]

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

[Argonaut]

عيسى الذي في الصورة الثانية ليس بعاطل فهو متصل مع 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

ثم انا اسف جدا