如何在QTP中使用IntelliSense（智能敏感）访问自定义的VBS函数和对象？

如何在 QTP 中使用 IntelliSense （智能敏感）访问自定义的 VBS 函数和对象？

 

由于 QTP 采用 VBS 作为脚本开发语言，具有天生的 OO 缺陷，在 IntelliSense 方面也由于 QTP 的 IDE 缺陷而造成脚本编写效率的降低。

 

下面介绍一种方法，通过 WSC 封装 VBS 脚本，注册成 COM 对象，然后添加到 QTP 保留对象注册表中，从而实现在 QTP 中 IntelliSense 访问。

 

（ 1 ）创建 WSC 文件

<?xml version="1.0"?>

<component>

 

<?component error="true" debug="true"?>

<reference object="Scripting.Dictionary" />

<registration description="Functions" progid="QTP.Functions" version="1.00" classid="{d 7c 40957-00d4 -41a 5-a87b-89d1db311423}">

</registration>

 

<public>

<method name="SetID" internalName="SetID" dispid="0">

       <parameter name="sValue"/>

</method>

<method name="GetID">

</method>

<method name="PrintMessage">

       <parameter name="strMessage"/>

</method>

</public>

 

<script language = "VBScript">

<![CDATA[

       Dim pID

       Function GetID()

              GetID = pID

       End Function

       Function SetID(sValue)

              pID = sValue

       End Function

       Function PrintMessage(strMessage)

              Msgbox strMessage

       End Function

       ]]>

</script>

 

</component>

（ 2 ）注册 WSC 文件

选中 WSC 文件，单击鼠标右键，选择“注册”

或者运行“ regsvr32  "D:/QTP/MyWork/IntelliSenseTest1/test.wsc" ”命令进行注册

 

（ 3 ）注册到 QTP 。

打开注册表，添加“ Functions ”项，以及 ProgID 、 UIName 。

 

（ 4 ）在 QTP 中使用 IntelliSense

重新启动 QTP 后就可以使用 WSC 文件中定义的函数。在专家视图中就可以使用“ Functions ”的 IntelliSense 功能，输入“ Functions ”加点号后，就会自动弹出其所有可用的属性和方法。

 

 

参考：

http://www.advancedqtp.com/knowledge-base/articles/qtp-tricks4/qtp-hacks/intellisense-and-com/