想做一个简单的DRM视频加密软件,可是调用组件出了问题,大家给看看啊.谢谢

加密代码是找的别人的,我只是想测试一下,可是不成功,老说我"用户定义类型未定义" 
我是不是少设置了什么东西?? 下边是软件的运行要求...   1．运行要求         运行本系统需安装Windows媒体版权管理7.0程序开发包，其目的是注册enrollobj.dll、licenseserver.dll和wmrmobjs.dll三个组件，同时为了运行WindowsMediaLicenseService，还需到http://licenseserver.windowsmedia.com/站点获取证书。此外还要安装IIS4.0或更高版本的Internet服务管理器。 客户端可用带有Windows媒体版权管理器的WindowsMediaPlay7.0或更高版本播放器播放加密文件。 
Private   Sub   Command1_Click() 
        Call   EncoerFile("D:\work\test\kajin\test.wmv",   "D:\work\test\test.wmv",   "http://www.5ikeke.com/creat/login.asp",   "asdfLKHIH3242",   "afsdfasdfdf234=") 
End   Sub Private   Sub   EncoerFile(Str_FInputFile   As   String,   Str_FOutPutFile   As   String,   Str_FLicenseURL   As   String,   Str_FSeed   As   String,   Str_FPriKey   As   String) Dim   Obj_Key   As   New   WMRMKeys Dim   Obj_Header   As   New   WMRMHeader Dim   Obj_Protect   As   New   WMRMProtect Int_KeyID   =   Obj_Key.GenerateKeyID() Obj_Key.Seed   =   Str_FSeed Obj_Key.KeyID   =   Int_KeyID Int_Key   =   Obj_Key.GenerateKey() Obj_Header.KeyID   =   Int_KeyID Obj_Header.LicenseAcqURL   =   Str_FLicenseURL Obj_Header.ContentID   =   Int_KeyID Call   Obj_Header.SetCheckSum(Int_Key) Call   Obj_Header.Sign(Str_FPriKey) Str_Header   =   Obj_Header.Header If   (Str_FInputFile   <>   "")   Then   Obj_Protect.InputFile   =   Str_FInputFile   Obj_Protect.Key   =   Int_Key   Obj_Protect.Header   =   Str_Header   Obj_Protect.V1KeyID   =   Int_KeyID   Call   Obj_Protect.ProtectFile(Str_FOutPutFile) End   If Set   Obj_Key   =   Nothing Set   Obj_Header   =   Nothing Set   Obj_Protect   =   Nothing End   Sub 我安装了包,有   enrollobj.dll、wmrmobjs.dll这两个文件,但是没有这个文件licenseserver.dll,而且运行的时候new不了对象,估计是wmrmobjs.dll组建没有引用进来,但是我从部件里引用错误提示我说     不能加载...... 到底怎么回事啊???