+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19718)
طلب كود استخراج ملف exe من الريسورس - MOSTAFA.KAMEL - 19-03-17
طلب كود استخراج ملف exe من الريسورس
ونقل الملف الى مكان معين وفك الضغط الملف exe
RE: طلب كود استخراج ملف exe من الريسورس - silverlight - 20-03-17
ضع الملف التنفيذي في Resources البرنامج الخاص بك
الخطوات التالية ستوضح لك الكيفية لإجابة سؤالك
1- تعريف متغير يعبر عن الملف الموجود في Resources
2- تعريف متغير يعبر عن مسار الملف علي الهارد ديسك شاملا اسم الملف
3- كتابة الملف الي المكان المحدد له علي الهارد ديسك باستخدام FileStream
في الكود هنا سوف استخرج الملف ليكون علي فهرس المشروع
علي فكرة ليس شرطا أن تستخدم اسم الملف الاصلي او امتداده الأصلي
PHP كود :
Dim exeFile As Byte() = My.Resources.KittyCat
Dim filePath As String = Application.StartupPath + "/" + "KittyCat.exe"
Using fs As IO.FileStream = IO.File.Create(filePath)
fs.Write(exeFile, 0, exeFile.Length)
End Using
RE: طلب كود استخراج ملف exe من الريسورس - سعود الشامان - 20-03-17
وهذه طريقة أخرى 
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SaveFormResources("C:\Users\سعود الشامان\Desktop\Sntrial.exe", My.Resources.Sntrial)
End Sub
Public Sub SaveFormResources(ByVal FilePatch As String, ByVal File As Object)
Dim FByte() As Byte = File
My.Computer.FileSystem.WriteAllBytes(FilePatch, FByte, True)
End Sub
End Class
RE: طلب كود استخراج ملف exe من الريسورس - abdualla - 20-03-17
الكود نصف سطر
PHP كود :
IO.File.WriteAllBytes("C:\file.exe",My.Resources.file)
RE: طلب كود استخراج ملف exe من الريسورس - سعود الشامان - 20-03-17
(20-03-17, 07:14 AM)abdualla كتب : الكود نصف سطر
PHP كود :
IO.File.WriteAllBytes("C:\file.exe",My.Resources.file)
أهنيكككك ع الإبداع , تمت التجربه بنجاح
وبصراحه اسهل واسلس طريقة شفتها