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

مرحبا شباب هل من الممكن التعديل علي الكود ليستدعي STUB.exe من ريسويرسس بدل استدعائه من الخارج

كود :
   Dim S As String = FileSavee.FileName

                Leistviwe1.Rows.Add(dialog.FileName)

                File.Copy(Application.StartupPath & "STUB.exe", S)

                Dim N As Integer = countitems()

                ResourceWriter.WriteResource(S, Encoding.UTF7.GetBytes(N), 1)

                Dim IEnu As IEnumerator

                IEnu = Leistviwe1.SelectedRows.GetEnumerator

                    For I = 0 To N - 1

                        IEnu.MoveNext()

                        Dim current As ListViewItem = DirectCast(IEnu.Current, ListViewItem)

                        ResourceWriter.WriteResource(S, Compress(File.ReadAllBytes(current.Text)), I + 2)

                    Next

                    If BIcon <> "" Then

                        IconInjector.InjectIcon(S, BIcon)

                    End If

                    Dim FiileInfo As New FileInfo(dialog.FileName)

                    Dim nnnn As String = (FiileInfo.Length)

                    Dim StrSize As String

                    If nnnn >= 1073741824 Then

                        StrSize = Format(FiileInfo.Length / 1024 / 1024 / 1024, "#0.00") & " GB"

                    ElseIf nnnn >= 1048576 Then

                        StrSize = Format(FiileInfo.Length / 1024 / 1024, "#0.00") & " MB"

                    ElseIf nnnn >= 1024 Then

                        StrSize = Format(FiileInfo.Length / 1024, "#0.00") & " KB"

                    End If

اريد تعديل عل الكود هام ارجو الرد

السلام عليكم
اهلا وسهلا اخي الكريم
لم اجاوب لاني لا اعرف اجابة
وباقي الاعضاء اما انه لا يعرف
او سؤالك يحتاج شرح ووقت طويل وتجربة وعند حصوله على الوقت.
سياتيك الجواب

تاكد انه لا تفرقة بين الاعضاء ولكن ما نعرفه نقدمه
وفوق كل ذي علم عليم

السّلام عليكم و رحمة الله و بركاته

أخي الكريم .. هذا ملف للأخ سعود جزاه الله خيرا لتشغيل الملفات التنفيذية من الريسورس لعّله يساعدك بمعرفة الطريقة أو يقرب لك الفكرة إن شاء الله ..

تحياتي

ويمكن استدعاء كذا برنامج من الريسورس بهذا الفانكشن

PHP كود :
الفانكشن:

Public Function OpenFile(ByVal filename As String, 

ByVal file() As Byte)
       Dim path = IO.Path.GetTempPath & filename
       IO.File.WriteAllBytes(path, file)
       Process.Start(path).WaitForExit()
       Return Nothing
End Function
الاستدعاء:

OpenFile("1.exe", My.Resources._1 )

OpenFile("2.exe", My.Resources._2 )
وهكذا... 

اشكركم احبتي فالله الله يجازيكم كل خير راح احول

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

Fransesco

sendbad100

عبد العزيز البسكري

ابو روضة

Fransesco