منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب كود استخراج ملف exe من الريسورس

طلب كود استخراج ملف exe من الريسورس

ونقل الملف الى مكان معين وفك الضغط الملف exe

ضع الملف التنفيذي في 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 

وهذه طريقة أخرى Shy

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

الكود نصف سطر

PHP كود :

IO.File.WriteAllBytes("C:\file.exe",My.Resources.file) 

(20-03-17, 07:14 AM)abdualla كتب : [ -> ]الكود نصف سطر

PHP كود :

IO.File.WriteAllBytes("C:\file.exe",My.Resources.file)

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

MOSTAFA.KAMEL

silverlight

سعود الشامان

abdualla

سعود الشامان