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

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

لكن أخواتي كود فك التجميع يعمل إذا كان حجم العمل غير كبير ، أما إذا كان أكثر من 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

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

كل شيء مجانا