[VB6] Skriptengine

Heyho,
hier mal ein kleiner Source von mir, wie ihr selber ne kleine Skriptengine machen könnt.

Code:

---

Public Sub RunSkript(ByVal skript As String)
Dim t As Variant
Dim i As Integer
t = Split(skript, vbCrLf) 'Skript zeilenweise splitten

For i = 0 To UBound(t) 'Alle Zeichen durchgehen
    RunCommand t(i) 'Zeile ausführen
Next i
End Sub

Public Sub RunCommand(ByVal command As String)
Dim t As Variant
t = Split(command, ",") 'Befehl splitten
Select Case LCase(t(0)) 'LCase = kleingeschrieben
    Case "msgbox"
        MsgBox t(1) 't(1) = Parameter 1, t(2) = zweiter,...
    Case "ausführen"
        Shell t(1)
    Case "exit"
        End
       
End Select
End Sub

---

Befehle sollten natürlich angepasst werden ^^
denke für crawler oder ähnliche projekte kann dies ganz nützlich sein

beispiel skript für diesen Source:

Zitat:

---

ausführen,notepad.exe
msgbox,hallo welt :)

---

führt notepad.exe aus und zeigt hallo welt an.

Wenn ihr es verwendet bitte Credits hinterlassen danke ;)

Grüße