+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تضمين ملف exe داخل مشروعك (/showthread.php?tid=18406)
تضمين ملف exe داخل مشروعك - Incubus - 12-12-16
السلام عليكم اخواني المبرمجين
اريد تضمين ملف exe داخل المشروع بحيث اقدر اشغله من زرار على الفورم وكمان في ملف Dll اريد تضمينه داخل المشروع واقوم بعمليه نسخه من داخل البرنامج الى مكان معين
الفكره اني اريد ملف exe داخله عده ملفات exe واقدر اشغل كل واحد على حسب الزرار اللي انا عايزه
وشكرا
RE: تضمين ملف exe داخل مشروعك - silverlight - 13-12-16
اتبع الخطوات التالية:
1- تضيف الملف أو الملفات الي Resources المشروع و تجعلها Embeded
2- تقوم بتعريف متغير يعبر عن الملف و في حالتك هنا المتغير سيكون My.Resources.YourFileName
المتغير هذا سيكون عبارة عن مصفوفة Byte
3- تقوم بتعريف متغير يعبر عن اسم الملف شاملا المسار و الإمتداد الخاص بالملف و في حالتك هنا الملف سيكون امتداده Exe او dlll
4- تقوم بإستخدام IO.FileStream = IO.File.Create و تمرر لها اسم الملف من الخطوة 3
المثال التالي سيوضج لك الفكرة
وهنا أنا أفترض ان لديك ملف تنفيذي اسمه cairo.exe موجود في Resources
و الملف هذا سيتم نسخه الي فهرس المشروع بالطبع يمكنك ان تحدد المسار كيفما شئت
PHP كود :
Dim file As Byte() = My.Resources.Cairo
Dim filePath As String = ".\cairo.exe"
Using fs As IO.FileStream = IO.File.Create(filePath)
fs.Write(file, 0, file.Length)
End Using
أخيرا .... لتضع في اعتبارك أن أسلوب تشغيل ملف امتداده exe يختلف تماما عن تشغيل ملف امتداده dll
RE: تضمين ملف exe داخل مشروعك - Incubus - 14-12-16
(13-12-16, 04:14 AM)silverlight كتب : اتبع الخطوات التالية:الف شكر يا استاذي الفاضل
1- تضيف الملف أو الملفات الي Resources المشروع و تجعلها Embeded
2- تقوم بتعريف متغير يعبر عن الملف و في حالتك هنا المتغير سيكون My.Resources.YourFileName
المتغير هذا سيكون عبارة عن مصفوفة Byte
3- تقوم بتعريف متغير يعبر عن اسم الملف شاملا المسار و الإمتداد الخاص بالملف و في حالتك هنا الملف سيكون امتداده Exe او dlll
4- تقوم بإستخدام IO.FileStream = IO.File.Create و تمرر لها اسم الملف من الخطوة 3
المثال التالي سيوضج لك الفكرة
وهنا أنا أفترض ان لديك ملف تنفيذي اسمه cairo.exe موجود في Resources
و الملف هذا سيتم نسخه الي فهرس المشروع بالطبع يمكنك ان تحدد المسار كيفما شئت
PHP كود :
Dim file As Byte() = My.Resources.Cairo
Dim filePath As String = ".\cairo.exe"
Using fs As IO.FileStream = IO.File.Create(filePath)
fs.Write(file, 0, file.Length)
End Using
أخيرا .... لتضع في اعتبارك أن أسلوب تشغيل ملف امتداده exe يختلف تماما عن تشغيل ملف امتداده dll
جعله الله في ميزان حسناتك
سؤال اخر ان امكن
اريد نقل ملف dll من مكان الى داخل فولدر syswow64 الموجود داخل windows ولكن الكود يطلع رساله خطاء access denied بسبب ان الفولدر محمي
مع العلم اني اريد نقل الملف اثناء التشغيل
فيقوم بعمليه فحص هل الملف موجود ، اذا وجد يتم مسحه
واذا لم يوجد يتم نقله
هذا نموذج من الكود
PHP كود :
If Not GetDirectoryInfo(Win8_BKDLL_Location).Exists Then
GetFileInfo(Win8_BKDLL_Location).Delete()
End If
PHP كود :
If IO.File.Exists(Win8_BKDLL_Location) Then IO.File.Delete(Win8_BKDLL_Location)
ثم :-
PHP كود :
My.Computer.FileSystem.CopyFile(
"file1.dll",
Win8_BKDLL_Location,
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
Microsoft.VisualBasic.FileIO.UICancelOption.ThrowException)
win8_bkdll_location ="c:\windows\syswow64\file2.exe"
وشكرا لتعاونك ياسيدي الفاضل