[RESOLVED] [2008] Compile exe from user input problem

[cmmorris1]

Hey guys,

I have a big problem that I know I can not work out by myself so I have tried to simplify what I need so I can figure out the bigger picture by myself so here goes.

I borrowed kleinma's open default browser code from the codebank and I want to take the user input url from textbox1 and when button1 is clicked it will create an executable that will launch the domain input into the textbox.

That's the very simple version of it, if someone can help me figure out how to make it work I would REALLY appreciate it! Here is the code I have for this simple form. It has one textbox for user input and one button to generate the exe after user inputs the url into the textbox.

I noticed some code problems in the button1 that I found online, and I'm not sure how to make this work correctly but with kleinma's code you call it like this:

BrowserExec.LaunchNewBrowser(url here)

So I think this code goes into the button1 right? and then is this the correct code to be generating an exe from it? Can anyone give me my missing piece?

Imports Microsoft.Win32
Imports System
Imports System.CodeDom.Compiler
Imports System.ComponentModel
Imports System.Drawing
Imports System.IO
Imports System.Reflection
Imports System.Windows.Forms
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Public Shared Function Button1_Click((ByVal sourceName As String) As Boolean
 
        Dim sourceFile As FileInfo = New FileInfo(sourceName)
        Dim provider As CodeDomProvider = Nothing
        Dim compileOk As Boolean = False
 
        ' Select the code provider based on the input file extension.
        If sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".CS" Then
 
            provider = New Microsoft.CSharp.CSharpCodeProvider()
 
        ElseIf sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".VB" Then
 
            provider = New Microsoft.VisualBasic.VBCodeProvider()
 
        Else
            Console.WriteLine("Source file must have a .cs or .vb extension")
        End If
 
        If Not provider Is Nothing Then
 
            ' Format the executable file name.
            ' Build the output assembly path using the current directory
            ' and <source>_cs.exe or <source>_vb.exe.
 
            Dim exeName As String = String.Format("{0}\{1}.exe", _
                System.Environment.CurrentDirectory, _
                sourceFile.Name.Replace(".", "_"))
 
            Dim cp As CompilerParameters = New CompilerParameters()
 
            ' Generate an executable instead of 
            ' a class library.
            cp.GenerateExecutable = True
 
            ' Specify the assembly file name to generate.
            cp.OutputAssembly = exeName
 
            ' Save the assembly as a physical file.
            cp.GenerateInMemory = False
 
            ' Set whether to treat all warnings as errors.
            cp.TreatWarningsAsErrors = False
 
            ' Invoke compilation of the source file.
            Dim cr As CompilerResults = provider.CompileAssemblyFromFile(cp, _
                sourceName)
 
            If cr.Errors.Count > 0 Then
                ' Display compilation errors.
                Console.WriteLine("Errors building {0} into {1}", _
                    sourceName, cr.PathToAssembly)
 
                Dim ce As CompilerError
                For Each ce In cr.Errors
                    Console.WriteLine("  {0}", ce.ToString())
                    Console.WriteLine()
                Next ce
            Else
                ' Display a successful compilation message.
                Console.WriteLine("Source {0} built into {1} successfully.", _
                    sourceName, cr.PathToAssembly)
            End If
 
            ' Return the results of the compilation.
            If cr.Errors.Count > 0 Then
                compileOk = False
            Else
                compileOk = True
            End If
        End If
        Return compileOk
 
 
    End Function
 
End Class

Thanks for looking!

Chris