[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

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