.NET Codedom - Make your own advanced builder

PHP Code



<?php 
Imports System.CodeDom.Compiler

Public Class compiler
    Public Shared Sub Compile(ByVal Output As String, ByVal cSource As String)
      Dim Compiler As ICodeCompiler = New VBCodeProvider().CreateCompiler 'Creating compiler
      Dim Parameters As New CompilerParameters 'A class, holding things like: path to save, imports and more
      Dim cResults As CompilerResults 'Used for checking if everything is fine
      Parameters.GenerateExecutable = True 'We want to make an EXE-File
      Parameters.OutputAssembly = Output 'Declare where to save the file

      Parameters.ReferencedAssemblies.Add("System.dll") 'We need that in order to use the basic .Net Framework. (e.g. Namespaces like System.IO)
      Parameters.ReferencedAssemblies.Add("System.Data.dll")
      Parameters.ReferencedAssemblies.Add("System.Core.dll") 

      Parameters.CompilerOptions = "/optimize+ /platform:X86 /debug- /target:winexe" 'Basic parameters: read more here: http://msdn.microsoft.com/en-us/library/w95cx9k1.aspx

      cResults = Compiler.CompileAssemblyFromSource(Parameters, cSource) 'Compile the code with the Parameters object and the source given in compiler.Compile(pathtofile,My.Resources.Stub)
      If cResults.Errors.Count > 0 Then 'Checking for errors
      For Each CompilerError In cResults.Errors 'Looping through all of them, use CompilerError.errorText to get the error
      Messagebox.Show(CompilerError.errorText)
      Next
      ElseIf cResults.Errors.Count = 0 Then 'No errors
      End If
    End Sub
End Class

PHP Code



<?php 
Imports System.Net
Imports System.IO
Imports System.Collections 'Basic imports (feel free to change them :) )
Module Stub

    Sub main()

    End Sub

End Module

PHP Code



<?php 
'Basic namepsace imports, also set by Visual Studio 2012
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Drawing
Imports System.Collections 
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.Windows.Forms

Module Stub

    Sub main()
      My.Computer.Network.DownloadFile([Dlink],[WhereToSave])
    End Sub

End Module

PHP Code



<?php 
Above the code: Imports ProjectName.compiler

PHP Code



<?php 
Dim src As String = My.Resources.documentname
src = src.Replace("[Dlink]", "You downloadlink")
src = src.Replace("[WhereToSave]","C:\Programs\Downloaded.whatever")

compiler.Compile(pathtosaveEXE, src)