Windows® 腳本部件可以包括為創(chuàng)建該腳本部件所需的外部部件的引用，這些部件可以是：

• 附加的 COM 對(duì)象
• 類型庫(kù)
• 資源，諸如不想硬編碼到腳本部件的腳本中的數(shù)字和文本。

引用附加 COM 部件

在腳本部件中，可能需要?jiǎng)?chuàng)建其他必要的 COM 部件的實(shí)例。有兩種方式來(lái)實(shí)現(xiàn)這一點(diǎn)：

• 用腳本   可以直接在腳本中創(chuàng)建其他對(duì)象的實(shí)例。例如，可以使用 Microsoft® Visual Basic® Scripting Edition (VBScript) 的 CreateObject 函數(shù)或 JScript 中新的 ActiveXObject 對(duì)象。
• 使用 OBJECT 元素   使用 <object> 元素和在 HTML 頁(yè)面中使用 <OBJECT> 標(biāo)記相似。使用 <object> 元素將使對(duì)象在全局范圍內(nèi)對(duì)任何腳本都可用，并允許腳本工具提供語(yǔ)句完善。它還提供了一個(gè)方便途徑來(lái)總結(jié)和記錄在腳本部件中所使用的對(duì)象。

  注意   盡管腳本部件中的 <object> 元素與 HTML 頁(yè)面中的 <OBJECT> 標(biāo)記相似，但腳本部件中的 <object> 元素的屬性列表要少得多，因?yàn)槟_本部件并不提供用戶界面。

要?jiǎng)?chuàng)建一個(gè) OBJECT 元素

• 創(chuàng)建一個(gè) <object> 元素。該元素應(yīng)位于 <component> 元素內(nèi)，但應(yīng)在任何其他元素（如 <script> 元素）之外。

下面的示例演示了腳本部件中的對(duì)象聲明。

<object id="cnn" progid="ADODB.Connection"/>

引用外部類型庫(kù)

很多要使用的部件都支持類型庫(kù)，類型庫(kù)提供了該部件的類及其成員的一個(gè)完整列表。通過(guò)引用部件的類型庫(kù)，就可以使用在類型庫(kù)中定義的常數(shù)。

要包含一個(gè)類型庫(kù)引用

• 在腳本部件中包括一個(gè) <reference> 元素，在其中指定要包括的類型庫(kù)的位置和名稱。例如：

  <reference object="ADODB.Connection.2.0"/>

引用資源

資源元素可以包括會(huì)在各個(gè)版本間更改的信息、可能要翻譯的字符串以及其他值。

要引用資源

1. 在腳本部件的 <public> 和 <script> 元素 (以及 <implements> 元素，如果有的話)之外，為每個(gè)要定義的資源創(chuàng)建一個(gè) <resource> 元素，并給每個(gè)元素一個(gè)唯一的 ID。下面的示例演示了兩個(gè) <resource> 元素：

   注意   CDATA項(xiàng)是必須的，以便使 <resource> 元素的內(nèi)容在分析程序中是不透明的。詳細(xì)內(nèi)容請(qǐng)參閱腳本部件文件和XML一致性.

   <component id="MyScriptlet">
   <public>
      <method name="random" internalName="getRandomNumber"/>
   </public>
   <resource id="errNonNumeric"><![CDATA[Non-numeric value passed]]>
   </resource>
   <resource id="errOutOfRange"><![CDATA[Passed value is out of range ]]>
   </resource> 

2. 在腳本中，可以通過(guò)調(diào)用 getResource 函數(shù)來(lái)包括這些資源文本或數(shù)字，如下例所示。

   注意   CDATA 項(xiàng)是必需的，以使 <script> 元素中的腳本在分析程序中是不透明的。詳細(xì)信息請(qǐng)參閱腳本部件文件和 XML 一致性。

   <script language="VBScript">
   <![CDATA[
   Function getRandomNumber(upperBound)
      If IsNumeric(upperBound) Then
         getRandomNumber = Cint(upperBound * Rnd + 1)
      Else
         getRandomNumber=getResource("errNonNumeric")
      End If
   End Function
   ]]>
   </script>

請(qǐng)參閱

腳本部件文件的內(nèi)容 | 引用同一個(gè)程序包中的其他腳本部件