16-02-13, 01:35 AM
shado1796 كتب :جزاك الله يرالسلام عليكم ورحمة الله وبركاته ..
أخي أولا نبدأ بطريقة اضافة مشروع الى Resources
الصورة >> http://im33.gulfup.com/JmIX8.jpg
-------------------------------------------------------------------------------------------
الأن لفتح برنامج من Resources
الكود التالي :
[COLOR="#0000CD"]كود :
Dim F As String = System.IO.Path.GetTempFileName
Dim arr() As Byte = My.Resources.Shado
System.IO.File.WriteAllBytes(F & ".exe", arr)
Process.Start(F & ".exe")
بحيث ان Shado هو لإسم البرنامج الذي تريد فتحه من Resources ----- و exe هي صيغة الملف الذي كتبت اسمه وتريد فتحه
[/COLOR]
---------------------------------------------------------------------------------------------------------------
وهذا لفتح فــديـو و صــوت ..
كود :
Dim F As String = System.IO.Path.GetTempFileName
Dim arr() As Byte = My.Resources.ShadoMedia
System.IO.File.WriteAllBytes(F & ".mp4", arr)
Process.Start(F & ".mp4")
بحيث ShadoMedia هو اسم الفديو أو الصوت ----- و Mp4 صيغة الفديو أو الصوتر.
--------------------------------------------------------------------------
وهذا لفتح ملف اومر Bat.
كود :
My.Computer.FileSystem.WriteAllText("Shado.bat", My.Resources.Shado, False)
Process.Start("Shado.bat")
بحيث Shado.bat الموجودة الثنتين هو اسم ملف الأوامر مع صيغته ..
---------------------------------------------------------------------------
أتمنى لك التوفيق ...
