I find a example at:
http://www.c-sharpcorner.com/1/ExeOnFlyKunal.asp
But this example write in C#
I have rewrite example in VB.net, But get a error. My code is below:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Main()
End Sub
Public Shared Sub Main()
Dim AppD As AppDomain
AppD = AppDomain.CurrentDomain
Dim AssemblyN As New AssemblyName
AssemblyN.Name = "TestAsm"
Dim AssemblyB As AssemblyBuilder
AssemblyB = AppD.DefineDynamicAssembly(AssemblyN, AssemblyBuilderAccess.Save)
Dim ModuleB As ModuleBuilder
ModuleB = AssemblyB.DefineDynamicModule("testmod", "TestAsm.exe")
Dim TypeB As TypeBuilder
TypeB = ModuleB.DefineType("mytype", TypeAttributes.Public)
Dim MethodB As MethodBuilder
MethodB = TypeB.DefineMethod("hi", MethodAttributes.Public Or MethodAttributes.Static, GetType(String), New Type() {GetType(String)})
AssemblyB.SetEntryPoint(MethodB)
Dim ILG As ILGenerator
ILG = MethodB.GetILGenerator()
ILG.EmitWriteLine("Hello World")
ILG.Emit(OpCodes.Ret)
TypeB.CreateType()
AssemblyB.Save("TestAsm.exe")
End Sub
End Class
How to I can fix my code?