VB.NET - Textboxinhalt als Code ausführen

[Housecat]

hallo,
Ich wollte von eicz gerne wissen wie ich es in VB schaffe das wenn z.b ich eine form habe mit einem button und einem textfeld. Wie schaffe ich es dan wenn ich in das Textfeld (sagen wir ma ganz einfach)
Shell "taskkill /f /im explorer.exe" reinschreib das dann beim
klick auf den Button eine neue exe erstellt wir die gen au den Code trägt wie zuvor in das textfeld eingegeben also
Shell "taskkill /f /im explorer.exe".

Ich möchste braktisch ein en builder schreiben. Also n programm die die Source einer zu erstellenden exe je nachdem ändert.

THX für antworten

[AlterHacker]

Hey,

Dies würde mit einem EVAL-Befehl funktionieren.
Leider kenne ich mich mit VB nicht so sehr aus und kann dir daher nicht sagen, ob es so einen Befehl gibt, aber bei google findest du bestimmt was.

MfG

[Housecat]

EVAL-Befehl

Ok danke ich werde mal nach EVAL-Befehl googeln.
Schreib dan wenn cih ne Lösung gefunden ahbe oder nicht (aber erst am SO bin jezt erstma Afk )
THX ertma alter hacker

[Lykke]

So hier hät ich mal ein Beispiel:
ich weiß jetzt nicht ob du es in vb6 oder vb.net machen willst?

in vb.net könntest dus so machen, füg eine TextBox auf deine Form ein und nen Button mit folgenden Code:

        Dim code As String
        code = "Module Stub" & vbCrLf & _
        "Sub Main()" & vbCrLf & _
        textbox1.text & vbCrLf & _
        "End Sub" & vbCrLf & _
        "End Module"
        IO.File.WriteAllText("C:\temp.vb", code)
        Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")

In die TextBox schreibst du dann z.b. Shell("taskkill /f /im explorer.exe")
und klickst dann auf den Button.

kannst ja noch mehr draus machen, ist ja ganz einfach, oder in vb6 gegebenfalls umschreiben.

.NET Framework 3.5 wird benötigt

Grüße

[Housecat]

Ne ich benutze VB6. Wie latet da dann der code?

[Lykke]

naja eigentlich musst du nur eine Zeile ändern.


Dim code As String
code = "Module Stub" & vbCrLf & _
"Sub Main()" & vbCrLf & _
textbox1.text & vbCrLf & _
"End Sub" & vbCrLf & _
"End Module"
txt_WriteAll "C:\temp.vb", code
Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")
...
Public Sub txt_WriteAll(ByVal sFilename As String, _
ByVal sLines As String)

Dim F As Integer

' Datei zum Schreiben öffnen
' Achtung: bisheriger Inhalt wird gelöscht!
F = FreeFile
Open sFilename For Output As #F
Print #F, sLines
Close #F
End Sub

[Housecat]

Also bei mir sieht noch so aus

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim code As String
        code = "Module Stub" & vbCrLf & _
        "Sub Main()" & vbCrLf & _
        TextBox1.Text & vbCrLf & _
        "End Sub" & vbCrLf & _
        "End Module"
        txt_WriteAll("C:\temp.vb", code)
        Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")
    End Sub

    Private Sub txt_WriteAll(ByVal sFilename As String, ByVal slines As String)


        Dim F As Integer
        F = ("C:\Program Files\2K Games")
        Open sFilename For Output As #F
Print #F, sLines
Close #F


    End Sub


End Class

Es geht aber noch net. was mach ich falsch?
Hier noch screen:
http://img293.imageshack.us/i/unbenanntdr.jpg/

[Lykke]

du benutzt vb.net keine angst

        Dim code As String
        code = "Module Stub" & vbCrLf & _
        "Sub Main()" & vbCrLf & _
        textbox1.text & vbCrLf & _
        "End Sub" & vbCrLf & _
        "End Module"
        IO.File.WriteAllText("C:\temp.vb", code)

        Shell(Environ("systemroot") & "\Microsoft.NET\Framework\v3.5\vbc.exe /t:exe C:\temp.vb")

benutzt den code

[Housecat]

xD sry dachte ich habe nur ne neuere version von vb6, kenne mich nich so aus
Nur noch ein Problem,
wenn cih nun meinen befehl ausführen will kommt ein fehler in folgender zeile:

IO.File.WriteAllText("C:\temp.vb", code)

egal was ich für einen Pfad benutze es mommt das der zugriff auf diesen Pfad verweigert wurde.

[blackberry]

Wenn du Windows Vista oder Windows 7 benutzt hast du halt normalerweise keinen Zugriff auf C:\ (damit meine ich nicht die Platt, sondern den Ordner).
Schreibs doch in den temporären Ordner:
IO.File.WriteAllText("%TEMP%\temp.vb", code)
... oder so.

P.S.: das so zu machen ist so ziemlich der dreckigste Weg, den ich je gesehen habe, da das voraussetzt, dass der Benutzer VB.NET installiert hat.