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:
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 ![Wink](images/smilies/wink.png)
Grüße