注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

gmd20的个人空间

// 编程和生活

 
 
 

日志

 
 

原来VBscript也可以用来建立COM接口  

2010-04-16 23:27:04|  分类: 程序设计 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

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

讲的是如何用VBscript写一个COM接口,然后然QTP的智能识别可以认出接口的方法来。

其实这个规范叫做“Windows Script Components” http://msdn.microsoft.com/en-us/library/asxw6z3c(v=VS.85).aspx

我前几天都看了一下脚本的参考,没注意到这个功能。感兴趣的可以详细看一下吧。

其实就是写一个这样的xml文档(例子来自原始网页),然后另存为*.wsc文件,再右键文件就可以“注册”COM组件了,其实就是用regsvr32 命令来注册,像注册其他COM组件命令一样,regsvr32 -u 卸载组件。

------------------------------------------------------------

<?xml version="1.0"?>   

<component id="MyQTPClass">  

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

<registration description="AdvancedQTP Custom Class Example" progid="AdvancedQTP.CustomClass" version="1" classid="{7cf11854-dcf4-40cc-9a11-b365f0a734ef}"/>

   <public>       

              <property name="ID" get="ReturnID" put="SetID"/>

                       <method name="PrintMessage">

                           <parameter name="Message"/>

                       </method>

   </public>  

<script language="VBScript">

    

            <![CDATA[

               Dim pID

                Function ReturnID()

                             ReturnID = pID

                End Function

                Function SetID (sValue)

                            pID = sValue

                End Function

                Function PrintMessage(Message)

                            Msgbox Message

              End Function

             ]]>

      

</script>

</component>

--------------------------------------------

  评论这张
 
阅读(527)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017