EXÉCUTER DU CODE VB.NET À PARTIR D'UN PROGRAMME EN COURS D'EXÉCUTION

Public Class DynamicCode
    ''' <summary>
    ''' Compilation de code vb.net
    ''' </summary>
    ''' <param name="sCodeSource">code source</param>
    ''' <returns>assembly</returns>
    ''' <remarks>nécessite le chargement de l'assembly pour l'exécution</remarks>
    Public Shared Function compile(ByVal sCodeSource As String) As System.Reflection.Assembly
        Dim CP As CodeDom.Compiler.CompilerParameters = New CodeDom.Compiler.CompilerParameters()
        CP.ReferencedAssemblies.Add("System.dll")
        CP.GenerateExecutable = False
        Return compile(CP, sCodeSource)
    End Function

    ''' <summary>
    ''' Compilation de code vb.net
    ''' </summary>
    ''' <param name="CP">imports, génération d'exe ...etc</param>
    ''' <param name="sCodeSource">code source</param>
    ''' <returns>assembly</returns>
    ''' <remarks>nécessite le chargement de l'assembly pour l'exécution</remarks>
    Public Shared Function compile(ByVal CP As CodeDom.Compiler.CompilerParameters, ByVal sCodeSource As String) As System.Reflection.Assembly
        Dim CDP As CodeDom.Compiler.CodeDomProvider = New VBCodeProvider()
        Return compile(CDP, CP, sCodeSource)
    End Function

    ''' <summary>
    ''' compilation de code
    ''' </summary>
    ''' <param name="CDP">vb.net, c# ou autre</param>
    ''' <param name="CP">imports, génération d'exe ...etc</param>
    ''' <param name="sCodeSource">code source</param>
    ''' <returns>assembly</returns>
    ''' <remarks>nécessite le chargement de l'assembly pour l'exécution</remarks>
    Public Shared Function compile(ByVal CDP As CodeDom.Compiler.CodeDomProvider, ByVal CP As CodeDom.Compiler.CompilerParameters, _
            ByVal sCodeSource As String) As System.Reflection.Assembly
        Dim CR As CodeDom.Compiler.CompilerResults = CDP.CompileAssemblyFromSource(CP, sCodeSource)
        Return CR.CompiledAssembly
    End Function
End Class

'----------------------------------------
'Code à mettre dans le formulaire
Private Sub cmdExec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExec.Click
            execCode()
        End Sub

        Private Sub execCode()
            Me.cmdExec.Enabled = False
            Dim TH As New Threading.Thread(AddressOf execCodeTH)
            TH.Start()
        End Sub

        Private Sub execCodeTH()
            Try
                Threading.Thread.Sleep(1)
                Dim S As String = "Imports System" & vbCrLf & "Class TestClass" & vbCrLf & "Public Shared Sub testSub()" & vbCrLf
                S &= RTB.Text
                S &= vbCrLf & "End Sub" & vbCrLf & "End Class"
                Dim A As System.Reflection.Assembly = DynamicCode.compile(S)
                If Not A Is Nothing Then
                    Dim T As Type = A.GetType("TestClass")
                    Dim M As System.Reflection.MethodInfo = T.GetMethod("testSub")
                    M.Invoke(Nothing, Nothing)
                End If
            Catch ex As Exception
                'Gestion d'erreur à faire en fonction de votre programme
                msgbox(ex.Message)
            End Try
            Me.cmdExec.Enabled = True
        End Sub
'----------------------------------------