LanciaFileMemoria

Imports System.IO
Imports System.Reflection

Private Shared Sub Main()
    RunInternalExe("ApplicazioneInterna.exe")
End Sub

Private Shared Sub RunInternalExe(exeName As String)
    'Ottieni l'assembly
    Dim assembly__1 As Assembly = Assembly.GetExecutingAssembly()

    'Ottieni il nome della cartella dov'è contenuto l'exe
    Dim rootName As String = assembly__1.GetName().Name

    'Ottieni la Resource Stream
    Dim resourceStream As Stream = assembly__1.GetManifestResourceStream(rootName + "." + exeName)

    'Verifica se il file interno esiste
    If resourceStream Is Nothing Then
        Return
    End If

    'Leggi i bytes piani del file
    Dim resourcesBuffer As Byte() = New Byte(resourceStream.Length - 1) {}

    resourceStream.Read(resourcesBuffer, 0, resourcesBuffer.Length)
    resourceStream.Close()

    'Carica i bytes come un'assembly
    Dim exeAssembly As Assembly = Assembly.Load(resourcesBuffer)

    'Esegui l'assembly
    exeAssembly.EntryPoint.Invoke(Nothing, Nothing)
End Sub