程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> .NET網頁編程 >> C# >> C#入門知識 >> 在C#中調用VBScript等腳本的實現

在C#中調用VBScript等腳本的實現

編輯:C#入門知識

以前在做工作流(workflow)項目的時候,裡面有一項就是在用戶制定流程定義時可以編寫腳本來控制活動的跳轉,而這些腳本定義後存在數據庫中,當流程啟動的時候,工作流引擎會控制活動執行順序,串型的兩個活動比較簡單,但有的活動到下一個活動有條件判斷,或者存在多個分支,簡單的還好,只要在數據庫表中加個字段就可以實現,復雜一點的就需要通過腳本實現了。當時經驗不夠,幾天都沒找到快速的解決辦法,想自己寫一個自定義腳本引擎沒有把握,而且時間也不夠,還是在網上找找看吧,花了一些時間,還是找到了一個自認為比較好的解決辦法,寫出來同大家分享。
  下面通過兩部分來說明實現以及應用。

  一.使用MSScriptControl

  到微軟的網站上下載Windows Script Control,它是一個ActiveX(R) 控件,所以在.NET中使用我Interop了一下。下載安裝完成後,新建一個C#的Windows應用程序項目,在解決方案資源管理器中選中引用節點,右鍵點擊選擇添加引用菜單,彈出添加引用對話框,單擊浏覽找到安裝Windows Script Control的目錄,選取msscript.ocx文件確定。那麼在引用節點下會增加一個MSScriptControl組件,下面是他Interop後的所有對象。

  ScriptControl 對支持 ActiveX(TM) Script 的宿主 Script 引擎提供簡單接口。接下來我們對被轉化成ScriptControlClass類的ScriptControl的屬性和方法進行一些說明。

  屬性

  AllowUI 屬性:應用於 ScriptControl 本身或 Scirpt 引擎顯示的用戶界面元素,可讀寫。

  CodeObject 屬性:返回對象,該對象用於調用指定模塊的公用成員。只讀。

  Error 屬性:返回 Error 對象,其中包含所發生的最後一個錯誤的相關詳細信息。只讀。

  Language 屬性:設置或返回正在使用的 Script 語言名稱。可讀寫。

  Modules 屬性:為 ScriptControl 對象返回模塊集合。只讀。

  Procedures 屬性:返回在指定模塊中定義的過程集合。只讀。

  SitehWnd 屬性:設置或返回窗口的 hWnd,通過執行 Script 代碼,此窗口用於顯示對話框和其他用戶界面元素。可讀寫。

  State 屬性:設置或返回 ScriptControl 對象的模式。可讀寫。

  Timeout 屬性:設置或返回時間(毫秒),此時間後用戶可選擇中止 Script 代碼的執行或允許代碼繼續執行。可讀寫。

  UseSafeSubset 屬性:設置或返回 Boolean 值,指明宿主應用程序是否有保密性要求。如果宿主應用程序需要安全控制,則 UseSafeSubset 為 True,否則為 False。可讀寫。

  方法

  AddCode 方法:向模塊添加指定代碼。可多次調用 AddCode 方法。

  AddObject 方法:使主機對象模型對 Script 引擎可用。

  Eval 方法:計算表達式並返回結果。

  ExecuteStatement 方法:執行指定的語句。

  Reset 方法:放棄所有已經添加到 ScriptControl 中的 Script 代碼和對象。

  Run 方法:運行指定過程。

  事件

  Error 事件:出現運行時錯誤時,發生此事件。

  Timeout 事件:當超出了 Timeout 屬性指定的時間且用戶在結果對話框中選定了 End 時,發生此事件。

  補充幾點

  AllowUI 屬性如果設置為false,則顯示對話框之類的語句不起作用,如在 VBScript 中MsgBox 語句,javascript中的alert等,並且如果執行的腳本超出TimeOut設置的毫秒數,也不會跳出超出時間提醒的對話框,反之則相反;重新設置 Language 屬性會清空AddCode加載的代碼;對於TimeOut屬性,發生超時時,ScriptControl 檢查對象的 AllowUI 屬性,確定是否允許顯示用戶界面元素。

  如果讀者需要更詳細的了解,可以查看MSDN文檔。

  為了使控件更容易使用,我用一個ScriptEngine類包裝了一下,下面是完整代碼:
  using System;

  using MSScriptControl;

  using System.Text;

  namespace ZZ

  {

     /// <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 ScriptEngine

     {

         private ScriptControl msc;

         file://定義腳本運行錯誤事件

         public event RunErrorHandler RunError;

         file://定義腳本運行超時事件

         public event RunTimeoutHandler RunTimeout;

         /// <summary>

         ///構造函數

         /// </summary>

         public ScriptEngine():this(ScriptLanguage.VBscript)

         {

         }

         /// <summary>

         /// 構造函數

         /// </summary>

         /// <param name="language">腳本類型</param>

         public ScriptEngine(ScriptLanguage language)

         {

              this.msc = new ScriptControlClass();

              this.msc.UseSafeSubset = 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方法

     &nbs

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved