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