Open Resource

[ySoNoob]

I added a resource in my fb project and would like to open it but cant!!!
tried this IO.File.WriteAllBytes(filePath, My.Resources.TheResourceHere)

[DawgiiStylz]

I added a resource in my fb project and would like to open it but cant!!!
tried this IO.File.WriteAllBytes(filePath, My.Resources.TheResourceHere)

I think I know the problem, but you're not telling us much.

Does the file path consist of the file name w/ extension? You have to tell it in the first parameter of the exact file location to write to.
Example: C:\Users\MPGH\Documents\TheResourceHere.dll

[ySoNoob]

I think I know the problem, but you're not telling us much.

Does the file path consist of the file name w/ extension? You have to tell it in the first parameter of the exact file location to write to.
Example: C:\Users\MPGH\Documents\TheResourceHere.dll

mmk ill try that I just tried the folder!

---------- Post added at 07:27 PM ---------- Previous post was at 06:58 PM ----------

didn't help im trying to open a file (.exe) via Button!

[DawgiiStylz]

Can't open if its in your resources

You'll have to write the file to disk and then run that file

[Pingo]

@ySoNoob
So you have this .exe in your resource and you want to write it to your hdd and run it?
Something like

Imports System . I O

    Sub RunResource(ByVal Name As String, ByVal _Resource As Byte())
        Dim _Path As String = Application.StartupPath + If(Name.EndsWith(".exe", StringComparison.OrdinalIgnoreCase), Name, Name + ".exe")
        File.WriteAllBytes(_Path, _Resource)
        If File.Exists(_Path) Then
            Process.Start(_Path)
        End If
    End Sub

And on your button

RunResource("TestMe", My.Resources.Name In Resource)

[ySoNoob]

OMG thx that worked!

---------- Post added at 07:56 PM ---------- Previous post was at 07:53 PM ----------

/Solved @Jorndel

[Pingo]

Since that was what you were after, maybe this will do you too.
Just added to that other code.

    Sub RunResource(ByVal Name As String, ByVal _Resource As Byte())
        Dim _Path As String = Path.GetTempPath() + If(Name.EndsWith(".exe", StringComparison.OrdinalIgnoreCase), Name, Name + ".exe")
        File.WriteAllBytes(_Path, _Resource)
        If File.Exists(_Path) Then
            Process.Start(_Path)
        End If
        Dim pA As String = Path.GetTempPath() + Guid.NewGuid().ToString() + ".bat"
        Using s As StreamWriter = File.CreateText(pA)
            s.WriteLine(":Ret")
            s.WriteLine("Ping Localhost -n 3 > nul") 'Delay loop for a few seconds
            s.WriteLine("del " + Chr(34) + _Path + Chr(34))
            s.WriteLine("if exist " + Chr(34) + _Path + Chr(34) + " goto Ret")
            s.WriteLine("del " + Chr(34) + pA + Chr(34))
        End Using
        If File.Exists(pA) Then
            Dim Pr As ProcessStartInfo = New ProcessStartInfo(pA)
            Pr.WindowStyle = ProcessWindowStyle.Hidden
            Process.Start(Pr)
        End If
    End Sub

That will create the .exe and a .bat file in the Temp folder and run them both.
Once the .exe closes, the .bat will delete it and itself so you dont leave anything on your pc.

[Biesi]

Private Sub RunFromMemory(ByVal bytes As Byte())
  Dim assembly As Assembly = assembly.Load(bytes)
  Dim entryPoint As MethodInfo = [assembly].EntryPoint
  Dim objectValue As Object = RuntimeHelpers.GetObjectValue([assembly].CreateInstance(entryPoint.Name))
  entryPoint.Invoke(RuntimeHelpers.GetObjectValue(objectValue), New Object() {New String() {"1"}})
End Sub

Private Sub ButtonClick() Handles ButtonX.Click
  Dim x As New Threading.Thread(AddressOf RunFromMemory)
  x.Start(My.Resources.TheResourceHere)
End Sub

[ySoNoob]

thank you all! but idk about using that second code I might just stick to the first 1...because when I debugged it it ran rin then I closed what it opened then triyed to click it again and brung an error up ...Idk ill work with it! C WHAT I CAN DO! but thx for the codding help!