تنفيذ برنامج داخل برنامجي ,,, ب Thread منفصل ,,

من الممكن تشغيل برنامج من الذاكرة مباشرة دون الحاجة لإنشاء ملف أولا كما ذكرت أنت , لكن ...

الأسهل والأضمن هو تحويل الكود الى لغتك او استخدام dll .

أخي الكريم ,,, أنا لن أقوم بإنشاء ملف ,,,,

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

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

لكن أريد إستخراج من المصادر ومن ثم تنفيذها للذاكرة ,,, بدون أي تدخل ,,,

لو عالتحويل ,,, طرحت محاولتي لتحويل كود من دلفي إلى فيجول ,,, لم أظن أنه إلا بقي القليل ,,, المشاهدات 60 ولا رد ,,,

والكود ,, USer Mode Unhooking فكيف لو حاولت أحول الـ Kernel Mode Unhooking ??

:] لا يوجد إلا إستخدام المصادر ,,, ولكن لا أريد إستخراج للملفات أبداً ,, ـ أريد من المصادر للذاكرة ,,,

منتظر ردك لإكمال الموضوع ,,

طالما نحن في قسم الأسمبلي فإليك هذا المثال بالأسمبلي كنت كتبته لأحد الأصدقاء من قبل :P

اذا فهمت طريقة عمل الـ Loading بهذا المثال فيمكنك تطبيقها على ملف dll بنفس الطريقة وبذلك تحل مشكلة عدم استخدام ملفات خارجية :wink: .

ExecuteFromMem.rar

تمنعون وضع المواضيع في قسم الـ API وعندما نطرحها هنا تلزمونا بأمثلة أسمبلي :angry:

لا يوجد عندي إعترضا على هذا ,,, ومشكور على تعبك :D ويا ريت لو في مكان تجمع فيه مشاريع مثل هذه ليستفيد الجميع ,, لأنها والله كنوز خفية عنا :)

المعذرة لأني لم أقم للآن بتحويلها للفيجول ,, لكن أريد أن أسأل ,,, هل لا تزال العملية الأصلية قيد التشغيل .؟؟

يعني بهذا هل بإمكاني تشغيل المفكرة والحاسبة مثلاُ في عملية واحدة وThreads منفصلة ؟؟؟

أرجو الرد لأتمكن من الإستمرار في عملي ,, والمعذرة على العنوان ومشكورين عالتغيير ,,

اقتباس

يعني بهذا هل بإمكاني تشغيل المفكرة والحاسبة مثلاُ في عملية واحدة وThreads منفصلة ؟؟؟

لم أفكر بهذا من قبل لذلك فلا استطيع أن أجزم ....

هل قرأت أخر سطر لي في المشاركة السابقة ؟؟ يمكنك عمل load للـdll من الذاكرة مع بعض الاضافات .

مشكور أخـ محمد عالمتابعة ,,,

بالنسبة لي لن أستخدم dll بل سأستخدم exe سأقوم بإخراجه من المصادر , فك ضغطه سواء LZW أو أي طريقة أخرى ,, ومن ثم إرساله لثريد جديد ,,

بدون إستخراجه للهارد ,, فقط بالذاكرة ,,, فهل هذا ممكن ,, وهل هو ممكن مع الفيجول علماً أن برامج الـ Multi-Threads غير مستقرة بالفيجول ,

البرنامج المستهدف ( الذي سينفذ ) مكتوب بالسي , وبدون واجهات , فهل ممكن إستخراج قيمة الدالة Main بعد تنفيذها ؟؟؟ يعني هل ستكون بمثابة ExitCode للثريد التي تكمت بها العملية ؟

يعني ,,, ينفذ البرنامج كدالة :) ولا يزال برنامجي الأول قيد التشغيل ,, وينتظر قيمة الدالة التي ستكون إما بنجاح عملية دالة Main بإرجاع قيمة 1 أو 2 حسب الحالة أو بفشلها وإرجاع قيمة 0 مثلاُ ,,,,

مبدأ رفضي للـ dll عدم الرغبة في إستخراج أي ملف من برنامجي وكذلك إستخدام exe وتنفيذه سؤدي لكشف خطة العمل :) ,, وكثير من يراقب العمليات لكن ليس هناك من يراقب الثريدز :)

إذا كان كذلك سأتطرق لكود الأسبملي سطر بسطر لأحاول مجاراته بالفيجول ,,, والله يوفقـ الجميع ,,,

خلّي بالك المثال يقوم بتشغيل البرنامج من الذاكرة لكن في process اخر وليس في thread بنفس الـprocess .

بالنسبة لارجاع القيمة استخدم :

VOID ExitProcess(

	UINT uExitCode 	// exit code for all threads  
   );

ضع الـExitCode بالقيمة التي تريد , ثم استخدم :

BOOL GetExitCodeProcess(

	HANDLE hProcess,	// handle to the process 
	LPDWORD lpExitCode 	// address to receive termination status 
   );

لمعرفة قيمة الـExitCode في برنامج آخر , لاحظ ان lpExitCode مؤشر لـDWORD و ليس DWORD مباشرة (لا اعرف كيف ستقوم بها في VB :wacko: , انت ادرى عموما) .

اقتباس

مبدأ رفضي للـ dll عدم الرغبة في إستخراج أي ملف من برنامجي

معنى هذا انك لم تفهم كلامي :angry: , يمكنك تحميل الـdll بدون استخراجه على الهارد بنفس طريقة تحميل exe لكن ربما يحتاج بهارات اخرى .

المعذرة منكـ ,,, بالنسبة للـ dll لم أرد أي إضافات ,, وأعتقد أن التطبيق بشكل exe سيكون أصغر من dll ويتيح لي ضغطه بعده برامج ,,,

نحن عندما نتحدث عن ExitCode نتحدث عنه بالنسبة لثريد وليس بروسس ,, يعنني هل سينفع وهل تعتبر هناك ExitCodes للثريدز ؟؟؟

"(لا اعرف كيف ستقوم بها في VB wacko.gif , انت ادرى عموما) " أنا أيضاَ لا أعرف :) لأني سمعت أن الفيجول لا يقوم بأمور المتغيرات بنفس طريقة البرامج التالية ,,, وعن وجود دوال غير مصرح بها :) حتى الفيجول عنده undocumented :) مثل StrPtr اللي تجيب لك مؤشر السترنج أو شي زي كذا اللي يب ييشوف المثالـ ’,,,

Private Sub Form_Load()
Dim mm  As String
mm = "Hello !!"
MsgBox StrPtr(mm)
End Sub

الناتج ,, عبارة عن عنوان للمتغير ,, لا أدري إذا كان هذا صحيح ,, أم مجرد إفتراض منيـ ,,, أرجو من الخبراء أن يفيدونا في هذا ,,,

الـ dll أظنه سيضاف لقائمة الـ Modules ?? بهذا لن ينفعني ,, لا أدري ,,,

إذا رأيت أن إضافته كـ dll يستدعى بدالته التي ترجع قيمة ,, أفضل من إستخراجه كـ exe لـ Thread وجلب نتيجة الـ exitcode لها أرجو إخباري لأحدد طريق أمشي عليه ,,,

بالأخير ,,, إذا كان معي عنوان المتغير ,, هل أستخدم CopyMemory لنسخ البيانات منه لمتغير بالفيجول ؟ بهذا أعيد قيمته ؟

بالنسبة لـDLL ستضيفه بنفس طريقة الـEXE ... ريسورسات يعني ولا زي ما قلت انت .

بالنسبة لموضوع الـExitCode فبعد ان قرأت الـremarks التابع للدالة تبين انه يمكن الاستغناء عن ExitProcess و بدلا من ذلك قم بوضع الـExitCode كـreturn من دالة الـWinMain او main .

الاخيرة اسأل فيها اهل الـvb .