منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف يمكن فتح ملف من Resources - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف يمكن فتح ملف من Resources (/showthread.php?tid=7650)

كيف يمكن فتح ملف من Resources - مبتدئ - 15-02-13

كيف يمكن فتح ملف من 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 - shado1796 - 15-02-13

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

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

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

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

كيف يمكن فتح ملف من Resources - مبتدئ - 16-02-13

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

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

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

جزاك الله ير