[كل شيء مجانا]

إخواني أخواتي أقدم لكم مشروع كامل ، وهو منقول لدمج صورة مع ملف تنفيذي وفك التجميع في أي وقت

لكن أخواتي كود فك التجميع يعمل إذا كان حجم العمل غير كبير ، أما إذا كان أكثر من 50 ميغا فإنه يتوقف

أرجو المساعدة في تطوير كود فك التجميع..

وهذا رابط تحميل المشروع:
http://up.dev-point.com/downloadf-f89119...1-rar.html

وهذا كود فك التجميع ، أرجو من الإخوة تطويره

كود :

Try
            'تحويل بايتات الملف المدموج الى سترنج لعمل سبلت وفصل الملفين
            Dim x_byt As String = Encoding.GetEncoding(437).GetChars(main_by)
            Dim file_spl As [String]()
            'عمل سبلت ل =======\=======
            Dim spl_chrs As String() = {"=======\======="}
            file_spl = x_byt.Split(spl_chrs, StringSplitOptions.None)
            'فصل الملفين وتحويلهم الى بايتات
            img_by = Encoding.GetEncoding(437).GetBytes(file_spl(0))
            exe_by = Encoding.GetEncoding(437).GetBytes(file_spl(1))
            'نسخ الملفين ف المكان المحدد
            Dim y As FileInfo = New FileInfo(TextBox1.Text)
            File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & "\" & y.Name, img_by)
            File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & "\ex.mp4", exe_by)
            MsgBox("تم فك الدمج بنجاح", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try