[原创] 支持 VBS / JS 的终端控制、彩色显示类库 - TerminalController.vbs

 ___ __, __, _, _ _ _, _  _, _,     _,  _, _, _ ___ __,  _, _,  _,  __, __,
  |  |_  |_) |\/| | |\ | /_\ |     / ` / \ |\ |  |  |_) / \ |   |   |_  |_)
  |  |   | \ |  | | | \| | | | ,   \ , \ / | \|  |  | \ \ / | , | , |   | \
  ~  ~~~ ~ ~ ~  ~ ~ ~  ~ ~ ~ ~~~    ~   ~  ~  ~  ~  ~ ~  ~  ~~~ ~~~ ~~~ ~ ~
复制代码

git clone https://github.com/OldLiu001/TerminalController.vbs.git
cd TerminalController.vbs
regsvr32 TerminalController.wsc
复制代码

Set objTerminalController = CreateObject("Terminal.Controller")
复制代码

var objTerminalController = new ActiveXObject("Terminal.Controller");
复制代码

<job id="MyScript">
    <script language="VBScript" src="TerminalController.vbs"/>
    <script language="VBScript" src="MyScript.vbs"/>
</job>
复制代码

<job id="MyScript">
    <script language="VBScript">
        ' 此处写 "TerminalController.vbs" 文件的内容
    </script>
    <script language="VBScript">
        ' 此处写 "MyScript.vbs" 文件的内容
    </script>
</job>
复制代码

Set objTerminalController = New TerminalController
复制代码

Sub Import(strFileName)
    With CreateObject("Scripting.FileSystemObject")
        ExecuteGlobal .OpenTextFile( _
            .GetParentFolderName( _
            .GetFile(WScript.ScriptFullName)) & _
            "\" & strFileName).ReadAll
    End With
End Sub
复制代码

Import "TerminalController.vbs"
复制代码

Set objTerminalController = New TerminalController
复制代码

Set objTerminalController = New TerminalController
复制代码

<job id="MyScript">
    <script language="VBScript" src="TerminalController.vbs"/>
    <script language="VBScript">
        Function GenerateObject(ByVal strClassName)
            Set GenerateObject = EVal("New " & strClassName)
        End Function
    </script>
    <script language="JScript" src="MyScript.js" />
</job>
复制代码

<job id="MyScript">
    <script language="VBScript">
        ' 此处写 "TerminalController.vbs" 文件的内容
    </script>
    <script language="VBScript">
        Function GenerateObject(ByVal strClassName)
            Set GenerateObject = EVal("New " & strClassName)
        End Function
    </script>
    <script language="JScript">
        // 此处写 "MyScript.js" 文件的内容
    </script>
</job>
复制代码

var objTerminalController = GenerateObject("TerminalController");
复制代码

Function Printer(ByVal strControlSequence)
    WScript.StdOut.Write strControlSequence
End Function
objTerminalController.SetPrinter GetRef("Printer")
复制代码

objTerminalController.SetPrinter(function (strControlSequence) {
    WScript.StdOut.Write(strControlSequence);
});
复制代码