在 C# 中呼叫 VBScript / JScript：MSScriptControl 完整實作

背景：工作流引擎的腳本需求

專案中使用者需在流程定義撰寫腳本控制活動跳轉（條件判斷、多分支）。腳本存資料庫，引擎執行時動態解譯。自寫解譯器風險高、工期緊，最終採用 **Microsoft Script Control (MSScriptControl)** 解決。

元件安裝與 Interop

1. 下載 Windows Script Control 安裝（msscript.ocx）
2. VS 專案 → 參考 → 加入參考 → 浏覽選取 msscript.ocx
3. 自動產生 MSScriptControl 命名空間與 ScriptControlClass

ScriptControl 核心成員速查

封裝 ScriptEngine 類別

using System;
using MSScriptControl;
using System.Text;

namespace ZZ
{
    public enum ScriptLanguage { JScript, VBscript, javascript }

    public delegate void RunErrorHandler();
    public delegate void RunTimeoutHandler();

    public class ScriptEngine
    {
        private readonly ScriptControlClass _sc;
        public event RunErrorHandler RunError;
        public event RunTimeoutHandler RunTimeout;

        public ScriptEngine() : this(ScriptLanguage.VBscript) { }
        public ScriptEngine(ScriptLanguage lang)
        {
            _sc = new ScriptControlClass();
            _sc.UseSafeSubset = true;
            _sc.Language = lang.ToString();
            ((DScriptControlSource_Event)_sc).Error += OnScriptError;
            ((DScriptControlSource_Event)_sc).Timeout += OnScriptTimeout;
        }

        private void OnScriptError() => RunError?.Invoke();
        private void OnScriptTimeout() => RunTimeout?.Invoke();

        public object Eval(string expr) => _sc.Eval(expr);
        public void ExecuteStatement(string stmt) => _sc.ExecuteStatement(stmt);
        public void AddCode(string code) => _sc.AddCode(code);
        public void AddObject(string name, object obj) => _sc.AddObject(name, obj);
        public object Run(string procName, params object[] args) => _sc.Run(procName, args);
        public void Reset() => _sc.Reset();
    }
}

實戰範例：動態條件判斷

var engine = new ScriptEngine(ScriptLanguage.VBscript);
engine.AddCode(@"
    Function CheckTransition(userRole, amount)
        If userRole = ""Manager"" And amount > 10000 Then
            CheckTransition = True
        Else
            CheckTransition = False
        End If
    End Function
");

bool canTransition = (bool)engine.Run("CheckTransition", "Manager", 15000); // true

進階技巧

• 暴露宿主物件：engine.AddObject("App", this); 腳本即可呼叫 App.Log("msg")
• 安全性：UseSafeSubset = true 限制腳本存取檔案系統、Registry 等高風險操作
• 逾時控制：engine.Timeout = 5000; 防止惡意/失控腳本佔用資源
• 多語言支援：同一引擎實例可切換 Language 屬性（會清空已載入代碼）

結語

MSScriptControl 讓 C# 應用在幾分鐘內擁有完整 VBScript/JScript 執行能力，極適合規則引擎、工作流、使用者自訂邏輯等場景。記得：永遠啟用 UseSafeSubset 與 Timeout，守住安全底線。