Vbscript von einem anderen Skript ausführen, ohne eine Datei zu schreiben

Question

Ich führe gerade ein neues VBscript von meinem Hauptvbscript aus, indem ich das zweite Skript 'on the fly' aus einem Array von Strings schreibe und es in eine externe secondfile.vbs Datei schreibe, dann brauche ich WshShell.Run "C:\secondfile.vbs" es läuft weiter, während auch der erste läuft.

Das Problem, das ich habe, ist, da ich es oft wiederholen muss, das Schreiben der neuen Vbs-Datei mit FSO verlangsamt den Prozess ein wenig - ich versuche, das zu beseitigen. Gibt es eine Möglichkeit, ein VBScript aus dem Speicher auszuführen, ohne eine physische Datei zu erstellen? Auf der Suche nach einer Möglichkeit, mein Skript als Zeichenfolgen zu erhalten und direkt als unabhängiges vbscript auszuführen. Vielen Dank im Voraus für Anregungen.

Hier ist ein vereinfachte Code, wie es funktioniert zur Zeit:

Option Explicit 

'this is the main RhinoScript file 
Call MainRhinoScript() 
Sub MainRhinoScript() 

    'create Wscript.Shell object 
    Dim WshShell : Set WshShell = CreateObject("WScript.Shell") 
    Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject"): 
    'get or create user settings plugin folder and vbs file path string 
    Dim strVBSEventWatcherFile : strVBSEventWatcherFile = "C:\eventwatcher.vbs" 

    Do 
     'create auto-generated vbs file here and run it 
     Call WriteVBS_EventWatcher_File(strVBSEventWatcherFile, 
     Call WshShell.Run(strVBSEventWatcherFile) 

     'The main code goes here, looped until done. 
     'VBS eventwatcher script file is running simultaneously. 
    Loop 

End Sub 

'this is simplified VBS writing subroutine to demonstrate how the code works, the actual one is much longer: 
Private Sub WriteVBS_EventWatcher_File(strFilePath) 

    Dim i,fso : Set fso = CreateObject("Scripting.FileSystemObject") 
    Dim file : Set file = fso.CreateTextFile(strFilePath, True) 

    file.WriteLine("Option Explicit") 
    file.WriteLine("") 
    file.WriteLine("Call Main()") 
    file.WriteLine("Sub Main()") 
    file.WriteLine(" Dim WshShell : Set WshShell = CreateObject(""WScript.Shell"")'create shell script object") 
    file.WriteLine("WScript.Sleep 10") 
    file.WriteLine("WshShell.SendKeys ""Rhino_Preselect "" ") 
    file.WriteLine("End Sub") 
    file.Close() 

End Sub 

Answer 1

Der einfachste Weg, einen Code withing läuft WSH VB-Skript zu übergeben, den Code zu ExecuteGlobal Funktion (oder Execute mit lokalem Bereich) auszuführen:

arrCode = Array(_ 
    "For x = 1 To 10", _ 
    "MsgBox x", _ 
    "Next"_ 
    ) 

strCode = Join(arrCode, vbCrLf) 

ExecuteGlobal strCode 

können Sie finden VBScript "Multi-Prozess" Implementierung by the link. Der Code funktioniert nur für die WSH-Skript-Engine. In der RhinoScript-Umgebung muss dieser Code überarbeitet und angepasst werden, da folgende Unterschiede bestehen: RhinoScript verfügt über kein WScript-Objekt, daher kann der Pfad zur gestarteten RhinoScript-Datei nicht abgerufen werden. Die einzige Möglichkeit besteht darin, den Pfad im Code fest zu codieren. Auch WSH VBS-Dateierweiterung ist .vbs, und für RhinoScript ist es .rvb.

Einige Sachen sind aus den Kommentaren klarer geworden. Sie haben geschrieben, dass Sie versuchen, den Code schneller auszuführen, aber beachten Sie, dass die Methode WshShell.SendKeys viel länger dauert als das Speichern und Ausführen der Datei, und sie ist unzuverlässig. Mein Hinweis ist zu vermeiden, .SendKeys zu verwenden und zu versuchen, Automatisierung unter Verwendung RhinoScript object model Anwendung Methoden zu implementieren. Vielleicht brauchen Sie keine Code-Erstellung. Es hängt davon ab, was Sie ursprünglich automatisieren wollten.

Auch Sie wies darauf hin, dass die VBScript-Code-Schnipsel nacheinander erstellt, modifiziert und mehrfach von einer RhinoScript-Hauptlaufzeitumgebung ausgeführt werden. Es ist also nicht einmal klar, warum es notwendig ist, ein "Multiprozess" -Modell zu erstellen. Warum nicht jedes Snippet erstellen und an ExecuteGlobal übergeben, wie in meinem obigen Beispiel?