modexplain.bas

基于U盘的软件授权组件

Attribute VB_Name = "ModExplain"
'*************************************************************************
'**模 块 名：ModExplain
'**说    明：版权所有2008 - 2009(C)
'**创 建 人：
'**日    期：
'**描    述：解释USBPass2.00组件的各函数及相关属性
'**版    本：V1.0.0
'*************************************************************************
'   USBPass2.0组件与USBPass1.1组件不兼容，所以直接升级到2.0版本，请注意
'
'
'   USBPass2.0组件为方便开发者分发软件，附加了一个"不带密码"读Pass的动态库文件：USBPassR.dll
'
'   USBPassR.DLL的属性同USBPass.DLL
'
'   方法只有一个，如下：
'   PassRead
'           参数：
'           返回值：True表示成功，False表示失败
'                   相关授权信息可从 TBack_PassInfo 中获取
'                   相关状态信息可从TBack_MsgInfo 中获取
'
'       说明：读USBPass授权信息
'
'*************************************************************************
'
'USBPass.DLL组件说明
'属性：
'
'1   ?
'      TBack_DiskName        As String               '驱动器FriendlyName
'      TBack_DrvKeyNumber    As String               '授权编号
'      TBack_RegDate         As Date                 '授权写入时间(格式:YYYY-MM-DD)
'      TBack_SoftCode        As String               '软件代码
'      TBack_UnitName        As String               '使用单位名称
'      TBack_IsTime          As Boolean              '是否使用次数限制
'      TBack_UseTime         As Double               '剩余使用次数
'      TBack_IsFate          As Boolean              '是否使用天数限制
'      TBack_UseFate         As Double               '剩余使用天数
'      TBack_LastDate        As Date                 '最后使用时间(格式:YYYY-MM-DD)(写授权时写入1900-1-1)
'      TBack_IsAll           As Boolean              '是否任意条件触发
'      TBack_AnnexInfo       As String               '附加内容
'
'说明:      这些属性是返回读取USBPass的授权属性
'
'-------------------------------------------------------------------------
'   2、
'      TBack_MsgNo           As Integer              '信息编号
'      TBack_MsgStr          As String               '信息内容
'
'           MsgNo       MsgStr
'           0          USBPass 不存在或损坏'
'           1           取消写入UPass
'           2           取消读取UPass
'           3           取消清除UPass
'           4           取消修改密码UPass'
'           5           密码过长或过短
'           6           写UPass成功
'           7           写UPass失败'
'           8           读UPass成功
'           9           读UPass失败
'           10           UPass到期
'           11          清除UPass成功
'           12           清除UPass失败
'           13           修改UPass用户密码成功
'           14           修改UPass用户密码失败
'           15           用户密码不正确

'
'     说明：该属性是返回当前读/写USBPass的相关状态信息
'
'*************************************************************************

'*************************************************************************
'方法：
'
'   1、PassAbout
'          参数：
'          返回值：True表示成功，False表示失败
'
'     说明：打开USBPass组件的About窗口
'
'-------------------------------------------------------------------------
'   2、PassCreate
'           参数：R_PassWD    (用户读UPass授权信息的密码，长度：最长16个字母、数字或8个汉字)
'           返回值：True表示成功，False 表示失败
'                   相关授权信息可从 属性1 中获取
'                   相关状态信息可从 属性2 中获取
'
'      说明：写USBPass授权信息
'
'-------------------------------------------------------------------------
'   3、PassRead
'           参数：R_PassWD    (用户读UPass授权信息的密码，长度：最长16个字母、数字或8个汉字)
'                              当传递进来的R_PassWD为空字符串时，系统将对该授权的限制次数或限制天数或两者全有
'                              作自动减1处理，只到其为0,如果有效限制条件为0 则返回False
'           返回值：True表示成功，False表示失败
'                   相关授权信息可从 属性1 中获取
'                   相关状态信息可从 属性2 中获取
'
'       说明：读USBPass授权信息
'
'-------------------------------------------------------------------------
'   4、PassClear
'           参数：无
'           返回值：True表示成功，False表示失败
'                   相关状态信息可从 属性2 中获取
'
'           说明： 清除授权信息
'
'-------------------------------------------------------------------------
'   5、ChangePassWD
'           参数：OLD_PassWD   原来读授权信息的密码  长度：最长16个字母、数字或8个汉字)
'                 NEW_PassWD   新密码                长度：最长16个字母、数字或8个汉字)
'           返回值：True表示成功，False表示失败
'                   相关状态信息可从 属性2 中获取
'
'           说明：修改用户密码
'

'
'
'
'