想做一个简单的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 SubPrivate 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 WMRMKeysDim Obj_Header As New WMRMHeaderDim Obj_Protect As New WMRMProtectInt_KeyID = Obj_Key.GenerateKeyID()Obj_Key.Seed = Str_FSeedObj_Key.KeyID = Int_KeyIDInt_Key = Obj_Key.GenerateKey()Obj_Header.KeyID = Int_KeyIDObj_Header.LicenseAcqURL = Str_FLicenseURLObj_Header.ContentID = Int_KeyIDCall Obj_Header.SetCheckSum(Int_Key)Call Obj_Header.Sign(Str_FPriKey)Str_Header = Obj_Header.HeaderIf (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 IfSet Obj_Key = NothingSet Obj_Header = NothingSet Obj_Protect = NothingEnd Sub