+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيفية استدعاء سيتب من رسيورس (/showthread.php?tid=28666)
كيفية استدعاء سيتب من رسيورس - Fransesco - 17-02-19
مرحبا شباب هل من الممكن التعديل علي الكود ليستدعي 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 IfRE: كيفية استدعاء سيتب من رسيورس - sendbad100 - 20-02-19
السلام عليكم
اهلا وسهلا اخي الكريم
لم اجاوب لاني لا اعرف اجابة
وباقي الاعضاء اما انه لا يعرف
او سؤالك يحتاج شرح ووقت طويل وتجربة وعند حصوله على الوقت.
سياتيك الجواب
تاكد انه لا تفرقة بين الاعضاء ولكن ما نعرفه نقدمه
وفوق كل ذي علم عليم
RE: كيفية استدعاء سيتب من رسيورس - عبد العزيز البسكري - 20-02-19
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. هذا ملف للأخ سعود جزاه الله خيرا لتشغيل الملفات التنفيذية من الريسورس لعّله يساعدك بمعرفة الطريقة أو يقرب لك الفكرة إن شاء الله ..
تحياتي
RE: كيفية استدعاء سيتب من رسيورس - ابو روضة - 20-02-19
ويمكن استدعاء كذا برنامج من الريسورس بهذا الفانكشن
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 )
وهكذا...
RE: كيفية استدعاء سيتب من رسيورس - Fransesco - 20-02-19
اشكركم احبتي فالله الله يجازيكم كل خير راح احول