[Fransesco]

مرحبا شباب هل من الممكن التعديل علي الكود ليستدعي  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

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

[sendbad100]

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


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

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

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

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

تحياتي

[ابو روضة]

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

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]

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