18-08-14, 10:15 PM
إخواني أخواتي أقدم لكم مشروع كامل ، وهو منقول لدمج صورة مع ملف تنفيذي وفك التجميع في أي وقت
لكن أخواتي كود فك التجميع يعمل إذا كان حجم العمل غير كبير ، أما إذا كان أكثر من 50 ميغا فإنه يتوقف
أرجو المساعدة في تطوير كود فك التجميع..
وهذا رابط تحميل المشروع:
http://up.dev-point.com/downloadf-f89119...1-rar.html
وهذا كود فك التجميع ، أرجو من الإخوة تطويره
لكن أخواتي كود فك التجميع يعمل إذا كان حجم العمل غير كبير ، أما إذا كان أكثر من 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