exe erstellen mit text

  • VB.NET

Es gibt 43 Antworten in diesem Thema. Der letzte Beitrag () ist von Hunter110.

    exe erstellen mit text

    Hey,

    Ich wollte in ein Programm bzw eine textbox zb eingeben: Hallo das wird dann in eine exe compilliert und wenn ich diese ausführe kommt ne msgbox mit Hallo. Hatt jemand ein plan wie ich eine exe compiliere?

    Thema übersteigt die Grundlagen
    * Thema verschoben *

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Kurt“ ()

    ja aber hab kp was ich daran änden soll kriege 3 errors rein:

    Fehler 1 Für den Parameter "code" von "Private Function CompileCode(code As String, tmpfile As String, outpath As String) As Boolean" wurde kein Argument angegeben. C:\Users\Max\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 4 9


    wo füg ich denn code überhaupt ein?

    machs so:

    VB.NET-Quellcode

    1. Private Function CompileCode(ByVal code As String, ByVal tmpfile As String, ByVal outpath As String) As Boolean
    2. IO.File.WriteAllText(tmpfile, code)
    3. If IO.File.Exists(outpath) Then IO.File.Delete(outpath)
    4. Dim p As New Process With {.StartInfo = New ProcessStartInfo With {.Arguments = " /t:exe """ & tmpfile & """", .WindowStyle = ProcessWindowStyle.Hidden, .FileName = IO.Path.Combine(New IO.FileInfo(Application.ExecutablePath).Directory.Root.FullName, "WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe")}}
    5. p.Start()
    6. p.WaitForExit()
    7. Return IO.File.Exists(outpath)
    8. End Function

    und dann rufst du es so auf:

    VB.NET-Quellcode

    1. CompileCode(richtextbox1.text, "C:\Users\deinname\Desktop\exe.vb", "C:\Users\deinname\Desktop\exe.exe")


    lg Gugi

    ich habe es jetzt so erweitert leider kommt kein fehler und es passiert nichts:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim code As String
    3. Dim pfad As String = Application.StartupPath + "\code.exe"
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    7. Private Function CompileCode(ByVal code As String, ByVal tmpfile As String, ByVal outpath As String) As Boolean
    8. IO.File.WriteAllText(tmpfile, code)
    9. If IO.File.Exists(outpath) Then IO.File.Delete(outpath)
    10. Dim p As New Process With {.StartInfo = New ProcessStartInfo With {.Arguments = " /t:exe """ & tmpfile & """", .WindowStyle = ProcessWindowStyle.Hidden, .FileName = IO.Path.Combine(New IO.FileInfo(Application.ExecutablePath).Directory.Root.FullName, "WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe")}}
    11. p.Start()
    12. p.WaitForExit()
    13. Return IO.File.Exists(outpath)
    14. End Function
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. code = textbox1.text
    18. CompileCode(code, pfad, pfad)
    19. End Sub
    20. End Class

    es passiert immer noch nichts....

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim code As String
    3. Dim pfad As String = Application.StartupPath + "\code.vb"
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    7. Private Function CompileCode(ByVal code As String, ByVal tmpfile As String, ByVal outpath As String) As Boolean
    8. IO.File.WriteAllText(tmpfile, code)
    9. If IO.File.Exists(outpath) Then IO.File.Delete(outpath)
    10. Dim p As New Process With {.StartInfo = New ProcessStartInfo With {.Arguments = " /t:exe """ & tmpfile & """", .WindowStyle = ProcessWindowStyle.Hidden, .FileName = IO.Path.Combine(New IO.FileInfo(Application.ExecutablePath).Directory.Root.FullName, "WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe")}}
    11. p.Start()
    12. p.WaitForExit()
    13. Return IO.File.Exists(outpath)
    14. End Function
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. code = TextBox1.Text
    18. CompileCode(code, pfad, pfad)
    19. End Sub
    20. End Class

    Es gibt noch eine andere Möglichkeit bei der du glaube ich nicht von VS abhängig bist:
    Bin mir nicht mehr ganz sicher wo der Code her ist, kommt aber glaube ich von vbarchiv.
    Hab nur ein paar Anpassungen gemacht, sollte aber funktionieren.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Kompilliert einen VB-Code
    3. ''' </summary>
    4. ''' <param name="CodeS">Enthält den zu kompilierenden Code</param>
    5. ''' <param name="NameS">Enthält den Namen des Programmes</param>
    6. ''' <returns>True: Erfolgreich; False: Fehlgeschlagen</returns>
    7. ''' <remarks></remarks>
    8. Function CodeCreator(ByVal CodeS As String, ByVal NameS As String) As Boolean
    10. Dim Results As CompilerResults
    11. Dim Fehlermeldung As String = ""
    12. Dim Parameters As CompilerParameters
    13. Dim Provider As Microsoft.VisualBasic.VBCodeProvider
    14. Dim Errors As CodeDom.Compiler.CompilerErrorCollection
    16. Parameters = New CompilerParameters
    17. With Parameters
    19. .OutputAssembly = NameS
    20. .GenerateExecutable = True
    21. .MainClass = "Main"
    23. End With
    25. Provider = New Microsoft.VisualBasic.VBCodeProvider
    26. Results = Provider.CompileAssemblyFromSource(parameters, CodeS)
    27. Errors = Results.Errors
    29. For Each Er In Errors
    30. If Er.ToString IsNot Nothing Then
    32. Fehlermeldung &= Er.ToString & Environment.NewLine & "-------" & Environment.NewLine
    34. End If
    35. Next
    37. If Fehlermeldung = "" Then
    39. Return True
    41. Else
    43. MsgBox(Fehlermeldung)
    44. Return False
    46. End If
    48. End Function


    Mfg
    Firestorm

    @Jackbauer
    du musst es so machen:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim code As String
    3. Dim pfad As String = Application.StartupPath & "\"
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. End Sub
    7. Private Function CompileCode(ByVal code As String, ByVal tmpfile As String, ByVal outpath As String) As Boolean
    8. IO.File.WriteAllText(tmpfile, code)
    9. If IO.File.Exists(outpath) Then IO.File.Delete(outpath)
    10. Dim p As New Process With {.StartInfo = New ProcessStartInfo With {.Arguments = " /t:exe """ & tmpfile & """", .WindowStyle = ProcessWindowStyle.Hidden, .FileName = IO.Path.Combine(New IO.FileInfo(Application.ExecutablePath).Directory.Root.FullName, "WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe")}}
    11. p.Start()
    12. p.WaitForExit()
    13. Return IO.File.Exists(outpath)
    14. End Function
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    17. code = textbox1.text
    18. CompileCode(code, pfad & "code.vb", pfad & "code.exe")
    19. End Sub
    20. End Class


    lg Gugi

Facebook
Telefonspende