C#(winform)调用VbScript脚本

解决方案

1.工程引用 Interop.MSScriptControl.dll

2.创建一个类，代码如下：

using System;
using System.Collections.Generic;
using System.Text;
using MSScriptControl;

namespace myClass
{
    /// <summary>
    /// 脚本类型
    /// </summary>
    public enum ScriptLanguage
    {
        /// <summary>
        /// JScript脚本语言
        /// </summary>
        JScript,

        /// <summary>
        /// VBscript脚本语言
        /// </summary>
        VBScript,

        /// <summary>
        /// JavaScript脚本语言
        /// </summary>
        JavaScript
    }

    /// <summary>
    /// 脚本运行错误代理
    /// </summary>
    public delegate void RunErrorHandler();

    /// <summary>
    /// 脚本运行超时代理
    /// </summary>
    public delegate void RunTimeoutHandler();

    /// <summary>
    /// ScriptEngine类
    /// </summary>
    public class clsScriptEngine
    {
        private ScriptControl msc;
        //定义脚本运行错误事件
        public event RunErrorHandler RunError;
        //定义脚本运行超时事件
        public event RunTimeoutHandler RunTimeout;

        /// <summary>
        ///构造函数
        /// </summary>
        public clsScriptEngine()
            : this(ScriptLanguage.VBScript)
        {
        }

        /// <summary>
        /// 构造函数
        /// </summary>
        /// <param name="language">脚本类型</param>
        public clsScriptEngine(ScriptLanguage language)
        {
            this.msc =new ScriptControlClass();
            //this.msc.UseSafeSubset = true; //使用安全的子集,如果等于true则无法连接数据库
            this.msc.Language = language.ToString();
            ((DScriptControlSource_Event)this.msc).Error += new DScriptControlSource_ErrorEventHandler(ScriptEngine_Error);
            ((DScriptControlSource_Event)this.msc).Timeout += new DScriptControlSource_TimeoutEventHandler(ScriptEngine_Timeout);
        }

        /// <summary>
        /// 运行Eval方法
        /// </summary>
        /// <param name="expression">表达式</param>
        /// <param name="codeBody">函数体</param>
        /// <returns>返回值object</returns>
        public object Eval(string expression, string codeBody)
        {
            msc.AddCode(codeBody);
            return msc.Eval(expression);
        }

        /// <summary>
        /// 运行Eval方法
        /// </summary>
        /// <param name="language">脚本语言</param>
        /// <param name="expression">表达式</param>
        /// <param name="codeBody">函数体</param>
        /// <returns>返回值object</returns>
        public object Eval(ScriptLanguage language, string expression, string codeBody)
        {
            if (this.Language != language)
                this.Language = language;
            return Eval(expression, codeBody);
        }

        /// <summary>
        /// 运行Run方法
        /// </summary>
        /// <param name="mainFunctionName">入口函数名称</param>
        /// <param name="parameters">参数</param>
        /// <param name="codeBody">函数体</param>
        /// <returns>返回值object</returns>
        public object Run(string mainFunctionName, object[] parameters, string codeBody)
        {
            this.msc.AddCode(codeBody);
            return msc.Run(mainFunctionName, ref parameters);
        }

        /// <summary>
        /// 运行Run方法
        /// </summary>
        /// <param name="language">脚本语言</param>
        /// <param name="mainFunctionName">入口函数名称</param>
        /// <param name="parameters">参数</param>
        /// <param name="codeBody">函数体</param>
        /// <returns>返回值object</returns>
        public object Run(ScriptLanguage language, string mainFunctionName, object[] parameters, string codeBody)
        {
            if (this.Language != language)
                this.Language = language;
            return Run(mainFunctionName, parameters, codeBody);
        }

        /// <summary>
        /// 放弃所有已经添加到 ScriptControl 中的 Script 代码和对象
        /// </summary>
        public void Reset()
        {
            this.msc.Reset();
        }

        /// <summary>
        /// 获取或设置脚本语言
        /// </summary>
        public ScriptLanguage Language
        {
            get { return (ScriptLanguage)Enum.Parse(typeof(ScriptLanguage), this.msc.Language, false); }
            set { this.msc.Language = value.ToString(); }
        }

        /// <summary>
        /// 获取或设置脚本执行时间，单位为毫秒
        /// </summary>
  

        /// <summary>
        /// 设置是否显示用户界面元素
        /// </summary>
        public bool AllowUI
        {
            get { return this.msc.AllowUI; }
            set { this.msc.AllowUI = value; }
        }

        /// <summary>
        /// 宿主应用程序是否有保密性要求
        /// </summary>
        public bool UseSafeSubset
        {
            get { return this.msc.UseSafeSubset; }
            set { this.msc.UseSafeSubset = true; }
        }

        /// <summary>
        /// RunError事件激发
        /// </summary>
        private void OnError()
        {
            if (RunError != null)
                RunError();
        }

        /// <summary>
        /// OnTimeout事件激发
        /// </summary>
        private void OnTimeout()
        {
            if (RunTimeout != null)
                RunTimeout();
        }

        private void ScriptEngine_Error()
        {
            OnError();
        }

        private void ScriptEngine_Timeout()
        {
            OnTimeout();
        }
    }
}

3.创建一个名为vbs_Record.vbs 的VbScrpt，代码如下：

Function vbs_Record (strChId,strDate,strStartTime,strStopTime,strTimeLen,strTimeLenS,strCallType,strCallResult,strCallerId,strDtmf,strRecordFile,strSessionId) 

    msgbox strChId & " , " & strDate & " , " & strStartTime & " , " & strStopTime & " , " & strTimeLen & " , " & strTimeLenS & " , " & strCallType & " , " & strCallResult & " , " & strCallerId & " , " & strDtmf & " , " & strRecordFile & " , " & strSessionId  

     Set cn = CreateObject("ADODB.Connection")
             strCn = "provider=SQLOLEDB.1;" & _
                           "Persist Security Info=False;" & _
                            "User ID=sa;"& _
                            "password=*******;" & _
                            "Initial Catalog=DataBase;" & _
                           "data source=(local)"

      cn.Open strCn

      if strCallerId<>"" then
          strPhoneNumber=strCallerId
      else
    strPhoneNumber=strDtmf
      end if    

      str = "insert into cti_Record(SessionId,StartDate,StartTime,StopTime,TimeLen,PhoneNumber,CallType,RecordFile) values('"+strSessionId+"','"+strDate+"','"+strStartTime+"','"+strStopTime+"','"+strTimeLenS+"','"+strPhoneNumber+"','"+strCallType+"','"+strRecordFile+"')"

      cn.Execute str

      msgbox "OK"


End function

4.C#调用此VB脚本，代码如下：

string strScript="";
System.IO.StreamReader myReader;            
strScriptFile="d:\\vbs_Record.vbs";               
myReader=System.IO.File.OpenText(strScriptFile);

strScript=myReader.ReadLine();
while(myReader.EndOfStream==false)
{
     strScript=strScript +@"  
               " + myReader.ReadLine();
}
clsScriptEngine scriptEngine = new clsScriptEngine();
scriptEngine.Language = (ScriptLanguage)Enum.Parse(typeof(ScriptLanguage), "VBScript");
    
string[] strParameter=this._strParameter.Split(',');
                
                Object[] objParameter=new Object[12];
                objParameter.SetValue(strParameter[0],0);
                objParameter.SetValue(strParameter[1],1);
                objParameter.SetValue(strParameter[2],2);
                objParameter.SetValue(strParameter[3],3);
                objParameter.SetValue(strParameter[4],4);
                objParameter.SetValue(strParameter[5],5);
                objParameter.SetValue(strParameter[6],6);
                objParameter.SetValue(strParameter[7],7);
                objParameter.SetValue(strParameter[8],8);
                objParameter.SetValue(strParameter[9],9);
                objParameter.SetValue(strParameter[10],10);
                objParameter.SetValue(strParameter[11],11);

                scriptEngine.Reset();
                scriptEngine.Run("vbs_Record", objParameter, strScript);
                scriptEngine = null;