.NET Framework 4.7.1多线程中使用ClearScript(VBScriptEngine)的问题

从你给出的代码片段来看，你大概率会遇到线程安全问题或者系统资源耗尽的情况——直接创建4000个线程+共享单个VBScriptEngine实例，正好踩中了ClearScript和.NET线程模型的两个坑。

核心问题拆解 #

1. VBScriptEngine不支持多线程共享：ClearScript的所有脚本引擎实例都不是线程安全的，全局共享一个引擎会引发各种未定义行为，比如程序崩溃、脚本结果错乱、COM资源泄漏。
2. 手动创建4000个线程太浪费资源：每个.NET线程默认栈大小是1MB，4000个线程直接占用4GB左右的内存，不仅会拖垮系统内存，还会让线程调度效率急剧下降。

基础修正方案：线程池+独立引擎实例 #

最稳妥的处理方式是用线程池复用线程，同时为每个任务创建独立的引擎实例（用完及时释放），代码示例如下：

static void Main(string[] args)
{
    // 用Task.Run基于线程池管理任务，避免手动创建大量线程
    var taskList = new List<Task>();
    for (int i = 0; i < 4000; i++)
    {
        int taskId = i; // 捕获当前循环变量，避免闭包陷阱
        taskList.Add(Task.Run(() => ExecuteScriptWithIsolatedEngine(taskId)));
    }
    Task.WaitAll(taskList.ToArray());
}

static void ExecuteScriptWithIsolatedEngine(int taskId)
{
    // 每个任务用独立引擎，using语句自动释放IDisposable资源
    using (var vbEngine = new VBScriptEngine())
    {
        // 注册用户自定义脚本函数
        vbEngine.Execute($@"
            Function UserTask()
                UserTask = ""任务 {taskId} 执行完成："" & Now()
            End Function
        ");
        // 执行并获取结果
        var result = vbEngine.Evaluate("UserTask()");
        Console.WriteLine(result);
    }
}

进阶优化：引擎对象池 #

如果创建VBScriptEngine的开销较大（比如每次都要注册大量通用脚本），可以用对象池复用引擎实例，减少创建销毁的成本。这里用.NET官方的Microsoft.Extensions.ObjectPool实现：

// 初始化引擎对象池
private static readonly ObjectPool<VBScriptEngine> _enginePool = 
    new DefaultObjectPool<VBScriptEngine>(new VbEnginePoolPolicy());

// 自定义池策略，负责创建和重置引擎
private class VbEnginePoolPolicy : IPooledPolicy<VBScriptEngine>
{
    public VBScriptEngine Create()
    {
        var engine = new VBScriptEngine();
        // 预先注册通用脚本/函数，避免每个任务重复注册
        engine.Execute(@"
            Function CommonUtility()
                CommonUtility = ""通用工具函数执行结果""
            End Function
        ");
        return engine;
    }

    public bool Return(VBScriptEngine engine)
    {
        // 归还前必须清理引擎状态，避免任务间状态污染
        engine.Execute("Set globalObj = Nothing"); // 释放脚本对象
        engine.Script.Clear(); // 清空Script对象的自定义属性
        return true;
    }
}

static void Main(string[] args)
{
    var taskList = new List<Task>();
    for (int i = 0; i < 4000; i++)
    {
        int taskId = i;
        taskList.Add(Task.Run(() => ExecuteScriptWithPooledEngine(taskId)));
    }
    Task.WaitAll(taskList.ToArray());
}

static void ExecuteScriptWithPooledEngine(int taskId)
{
    var engine = _enginePool.Get();
    try
    {
        // 注册当前任务专属的脚本逻辑
        engine.Execute($@"
            Function UserTask()
                UserTask = ""任务 {taskId} 执行："" & CommonUtility()
            End Function
        ");
        var result = engine.Evaluate("UserTask()");
        Console.WriteLine(result);
    }
    finally
    {
        // 用完必须归还到池子里
        _enginePool.Return(engine);
    }
}

关键注意事项 #

• 永远不要跨线程共享同一个VBScriptEngine实例，哪怕加锁也不行——ClearScript依赖COM组件，加锁会导致严重性能瓶颈，仍可能出现资源泄漏。
• 必须用using语句或手动调用Dispose()释放引擎资源，否则会引发COM对象泄漏，长时间运行会耗尽系统句柄。
• 对象池中的引擎必须严格重置状态，否则前一个任务的脚本变量会污染后续任务的执行结果。

内容的提问来源于stack exchange，提问作者nullvalue