منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف يمكن فتح ملف من Resources
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
كيف يمكن فتح ملف من exe من Resources

لقد حاولت لى هذا الكود
كود :
Try
            Thread.Sleep(&H2710)
            Dim Startinfo As Integer
            My.Computer.FileSystem.WriteAllBytes((My.Computer.FileSystem.SpecialDirectories.Temp & "\XTB.exe"), Resources.XTB, False)
            Me.Startinfo.FileName = (My.Computer.FileSystem.SpecialDirectories.Temp & "\XTB.exe")
            Me.Startinfo.Verb = "runas"
            Process.Start(Me.Startinfo)
            Thread.Sleep(&H186A0)
        Catch exception1 As Exception
        End Try
السلام عليكم ورحمة الله وبركاته ..

أخي أولا نبدأ بطريقة اضافة مشروع الى Resources
الصورة >> http://im33.gulfup.com/JmIX8.jpg

-------------------------------------------------------------------------------------------

الأن لفتح برنامج من Resources

الكود التالي :
كود :
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")
[COLOR="#0000CD"]

بحيث ان 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 الموجودة الثنتين هو اسم ملف الأوامر مع صيغته ..

---------------------------------------------------------------------------

أتمنى لك التوفيق ...

shado1796 كتب :
السلام عليكم ورحمة الله وبركاته ..

أخي أولا نبدأ بطريقة اضافة مشروع الى Resources
الصورة >> http://im33.gulfup.com/JmIX8.jpg

-------------------------------------------------------------------------------------------

الأن لفتح برنامج من Resources

الكود التالي :
كود :
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")
[COLOR="#0000CD"]

بحيث ان 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 الموجودة الثنتين هو اسم ملف الأوامر مع صيغته ..

---------------------------------------------------------------------------

أتمنى لك التوفيق ...

جزاك الله ير