Win32API调用错误号与信息(8000-8999)

来源:互联网 发布:o2o源码下载 编辑:程序博客网 时间:2024/06/10 18:12

Author:水如烟 

 

Namespace LzmTW.uSystem.uWindows.Win32API
    
Friend Class ErrCollection08
        
Private Collection As New Dictionary(Of IntegerString)

        
Private Shared Loader As ErrCollection08
        
Private Shared gInternalSyncObject As Object

        
Private Sub New()
            
With Collection
                .Add(
8001"文件复制服务 API 被错误调用")
                .Add(
8002"无法启动文件复制服务")
                .Add(
8003"无法停止文件复制服务")
                .Add(
8004"文件复制服务 API 终止了请求。 事件日志可能有详细信息")
                .Add(
8005"该文件复制服务中断了该请求。 事件日志可能有详细信息")
                .Add(
8006"无法联系文件复制服务。 事件日志可能有详细信息")
                .Add(
8007"由于该用户没有足够特权,文件复制服务不能满足该请求。 事件日志可能有详细信息")
                .Add(
8008"由于验证的 RPC 无效,文件复制服务不能满足该请求。 事件日志可能有详细信息")
                .Add(
8009"由于该用户在域控制器上没有足够特权,文件复制服务不能满足该请求。 事件日志可能有详细信息")
                .Add(
8010"由于在域控制器上的验证的 RPC 无效,文件复制服务不能满足该请求。 事件日志可能有详细信息")
                .Add(
8011"该文件复制服务无法与在域控制器上的文件复制服务通讯。 事件日志可能有详细信息")
                .Add(
8012"在域控制器上的文件复制服务无法与这台计算机上的文件复制服务通讯。 事件日志可能有详细信息")
                .Add(
8013"由于内部错误,该文件复制服务不能进入该系统卷中。 事件日志可能有详细信息")
                .Add(
8014"由于内部超时,该文件复制服务不能进入该系统卷中。 事件日志可能有详细信息")
                .Add(
8015"该文件复制服务无法处理此请求。该系统卷仍在忙于前一个请求")
                .Add(
8016"由于内部错误,该文件复制服务无法停止复制该系统卷。 事件日志可能有详细信息")
                .Add(
8017"该文件复制服务检测到一个无效参数")
                .Add(
8200"在安装目录服务时出现一个错误。有关详细信息,请查看事件日志")
                .Add(
8201"目录服务在本地评估组成员身份")
                .Add(
8202"指定的目录服务属性或值不存在")
                .Add(
8203"指定给目录服务的属性语法无效")
                .Add(
8204"指定给目录服务的属性类型未定义")
                .Add(
8205"指定的目录服务属性或值已经存在")
                .Add(
8206"目录服务忙")
                .Add(
8207"该目录服务无效")
                .Add(
8208"目录服务无法分配相对标识号")
                .Add(
8209"目录服务已经用完了相对标识号池")
                .Add(
8210"由于目录服务不是该类操作的主控,未能执行操作")
                .Add(
8211"目录服务无法初始化分配相对标识号的子系统")
                .Add(
8212"该请求的操作没有满足一个或多个与该对象的类别相关的约束")
                .Add(
8213"目录服务只可以在一个页状对象上运行要求的操作")
                .Add(
8214"目录服务不能在一个对象的 RDN 属性上执行该请求的操作")
                .Add(
8215"目录服务检测出修改对象类别的尝试")
                .Add(
8216"不能执行请求的通过域的移动操作")
                .Add(
8217"无法联系全局编录服务器")
                .Add(
8218"策略对象是共享的并只可在根目录上修改")
                .Add(
8219"策略对象不存在")
                .Add(
8220"请求的策略信息只在目录服务中")
                .Add(
8221"域控制器升级目前正在使用中")
                .Add(
8222"域控制器升级目前不在使用中")
                .Add(
8224"出现一个操作错误")
                .Add(
8225"出现一个协议错误")
                .Add(
8226"已经超过这个请求的时间限制")
                .Add(
8227"已经超过这个请求的大小限制")
                .Add(
8228"已经超过这个请求的管理限制")
                .Add(
8229"比较的响应为假")
                .Add(
8230"比较的响应为真")
                .Add(
8231"这个服务器不支持请求的身份验证方式")
                .Add(
8232"这台服务器需要一个更安全的身份验证方式")
                .Add(
8233"不适当的身份验证")
                .Add(
8234"未知的身份验证机制")
                .Add(
8235"从服务器返回了一个建议")
                .Add(
8236"该服务器不支持该请求的关键扩展")
                .Add(
8237"这个请求需要一个安全的连接")
                .Add(
8238"不恰当的匹配")
                .Add(
8239"出现一个约束冲突")
                .Add(
8240"在服务器上没有这样一个对象")
                .Add(
8241"有一个别名问题")
                .Add(
8242"指定了一个无效的 dn 语法")
                .Add(
8243"该对象为叶对象")
                .Add(
8244"有一个别名废弃问题")
                .Add(
8245"该服务器不愿意处理该请求")
                .Add(
8246"检查到一个循环")
                .Add(
8247"有一个命名冲突")
                .Add(
8248"结果设置太大")
                .Add(
8249"该操作会影响到多个 DSA")
                .Add(
8250"该服务器不可操作")
                .Add(
8251"出现一个本地错误")
                .Add(
8252"出现一个编码错误")
                .Add(
8253"出现一个解码错误")
                .Add(
8254"无法识别寻找筛选器")
                .Add(
8255"一个或多个参数非法")
                .Add(
8256"不支持指定的方式")
                .Add(
8257"没有返回结果")
                .Add(
8258"该服务器不支持该指定的控制")
                .Add(
8259"客户检测到一个参考循环")
                .Add(
8260"超过当前的参考限制")
                .Add(
8301"根目录对象必须是一个命名上下文的头。该根目录对象不能有实例父类")
                .Add(
8302"不能执行添加副本操作。名称上下文必须可写才能创建副本")
                .Add(
8303"出现一个对架构中未定义的一个属性的参考")
                .Add(
8304"超过了一个对象的最大尺寸")
                .Add(
8305"尝试向目录中添加一个已在使用中的名称的对象")
                .Add(
8306"尝试添加一个对象,该对象属于那类在架构中没有一个 RDN 定义的类别")
                .Add(
8307"尝试添加一个使用 RDN 的对象,但该 RDN 不是一个在架构中定义的 RDN")
                .Add(
8308"在对象中找不到任何请求的属性")
                .Add(
8309"用户缓冲区太小")
                .Add(
8310"在操作中指定的属性不出现在对象上")
                .Add(
8311"修改操作非法。不允许该修改的某个方面")
                .Add(
8312"指定的对象太大")
                .Add(
8313"指定的实例类别无效")
                .Add(
8314"操作必须在主控 DSA 执行")
                .Add(
8315"必须指定对象类别属性")
                .Add(
8316"一个所需的属性丢失")
                .Add(
8317"尝试修改一个对象,将一个对该类别来讲是非法的属性包括进来")
                .Add(
8318"在对象上指定的属性已经存在")
                .Add(
8320"指定的属性不存在或没有值")
                .Add(
8321"为只有一个值的属性指定了多个值")
                .Add(
8322"属性值不在接受范围内")
                .Add(
8323"指定的值已存在")
                .Add(
8324"由于不存在于对象上,不能删除该属性")
                .Add(
8325"由于不存在于对象上,不能删除该属性值")
                .Add(
8326"指定的根对象不能是子参考")
                .Add(
8327"不允许链接")
                .Add(
8328"不允许链接的评估")
                .Add(
8329"由于对象的父类不是未实例化就是被删除了,所以不能执行操作")
                .Add(
8330"不允许有一个用别名的父类。别名是叶对象")
                .Add(
8331"对象和父类必须是同一种类,不是都是原件就是 都是副本")
                .Add(
8332"由于子对象存在,操作不能执行。这个操作只能在叶对象上执行")
                .Add(
8333"没有找到目录对象")
                .Add(
8334"别名对象丢失")
                .Add(
8335"对象名语法不对")
                .Add(
8336"不允许一个别名参考另一个别名")
                .Add(
8337"别名不能解除参考")
                .Add(
8338"操作超出范围")
                .Add(
8340"不能删除 DSA 对象")
                .Add(
8341"出现一个目录服务错误")
                .Add(
8342"操作只能在内部主控 DSA 对象上执行")
                .Add(
8343"对象必须为 DSA 类别")
                .Add(
8344"访问权不够不能执行该操作")
                .Add(
8345"由于父类不在可能的上级列表上,不能添加该对象")
                .Add(
8346"由于该属性处于 [安全帐户管理器] (SAM),不允许访问该属性")
                .Add(
8347"名称有太多部分")
                .Add(
8348"名称太长")
                .Add(
8349"名称值太长")
                .Add(
8350"目录服务遇到了一个错误分列名称")
                .Add(
8351"目录服务找不到一个名称的属性种类")
                .Add(
8352"该名称不能识别一个对象; 该名称识别一个幻象")
                .Add(
8353"安全描述符太短")
                .Add(
8354"安全描述符无效")
                .Add(
8355"为删除的对象创建名称失败")
                .Add(
8356"一个新子参考的父类必须存在")
                .Add(
8357"该对象必须是一个命名上下文")
                .Add(
8358"不允许添加一个不属于系统的属性")
                .Add(
8359"对象的类别必须是有结构的; 您不能实例化一个抽象的类别")
                .Add(
8360"找不到架构的对象")
                .Add(
8361"有这个 GUID (非活动的的或活动的)的本地对象已经存在")
                .Add(
8362"操作不能在一个后部链接上执行")
                .Add(
8363"找不到指定的命名上下文的互交参考")
                .Add(
8364"由于目录服务关闭,操作不能执行")
                .Add(
8365"目录服务请求无效")
                .Add(
8366"无法读取角色所有者属性")
                .Add(
8367"请求的 FSMO 操作失败。不能连接当前的 FSMO 盒")
                .Add(
8368"不允许跨过一个命名上下文修改 DN")
                .Add(
8369"由于属于系统,不能修改该属性")
                .Add(
8370"只有复制器可以执行这个功能")
                .Add(
8371"指定的类别没有定义")
                .Add(
8372"指定的类别不是一个子类别")
                .Add(
8373"名称参考无效")
                .Add(
8374"交叉参考已经存在")
                .Add(
8375"不允许删除一个主控交叉参考")
                .Add(
8376"只在 NC 头上支持子目录树通知")
                .Add(
8377"通知筛选器太复杂")
                .Add(
8378"架构更新失败: 重复的 RDN")
                .Add(
8379"架构更新失败: 重复的 OID")
                .Add(
8380"架构更新失败: 重复的 MAPI 识别符")
                .Add(
8381"架构更新失败: 复制架构 id GUID")
                .Add(
8382"架构更新失败: 重复的 LDAP 显示名称")
                .Add(
8383"架构更新失败: 范围下部少于范围上部")
                .Add(
8384"架构更新失败: 语法不匹配")
                .Add(
8385"架构更新失败: 属性在必须包含中使用")
                .Add(
8386"架构更新失败: 属性在可能包含中使用")
                .Add(
8387"架构更新失败: 可能包含中的属性不存在")
                .Add(
8388"架构更新失败:必须包含中的属性不存在")
                .Add(
8389"架构更新失败: 在辅助类别列表中的类别不存在或不是一个辅助类别")
                .Add(
8390"架构更新失败: poss-superior 中的类别不存在")
                .Add(
8391"架构更新失败: 在 subclassof 列表中的类别不存在或不能满足等级规则")
                .Add(
8392"架构更新失败: Rdn-Att-Id 语法不对")
                .Add(
8393"架构更新失败: 类别作为辅助类别使用")
                .Add(
8394"架构更新失败: 类别作为子类别使用")
                .Add(
8395"架构更新失败: 类别作为 poss superior 使用")
                .Add(
8396"架构更新在重新计算验证缓存时失败")
                .Add(
8397"目录树删除没有完成。要继续删除目录树,必须再次发出请求")
                .Add(
8398"不能执行请求的删除操作")
                .Add(
8399"不能读取架构记录管理类别识别符")
                .Add(
8400"属性架构语法不对")
                .Add(
8401"不能缓存属性")
                .Add(
8402"不能缓存类别")
                .Add(
8403"不能从缓存删除属性")
                .Add(
8404"无法从缓存中删除类别")
                .Add(
8405"无法读取特殊名称的属性")
                .Add(
8406"丢失一个所需的子参考")
                .Add(
8407"不能检索范例种类属性")
                .Add(
8408"出现一个内部错误")
                .Add(
8409"出现一个数据错误")
                .Add(
8410"丢失一个属性 GOVERNSID")
                .Add(
8411"丢失一个所需要的属性")
                .Add(
8412"指定的命名上下文丢失了一个交叉参考")
                .Add(
8413"出现一个安全检查错误")
                .Add(
8414"没有加载架构")
                .Add(
8415"架构分配失败。请检查机器内存是否不足")
                .Add(
8416"为属性架构获得所需语法失败")
                .Add(
8417"全局编录验证失败。全局编录无效或不支持操作。目录的某些部分目前无效")
                .Add(
8418"由于有关服务器之间的架构不匹配,复制操作失败")
                .Add(
8419"找不到 DSA 对象")
                .Add(
8420"找不到命名上下文")
                .Add(
8421"在缓存中找不到命名上下文")
                .Add(
8422"无法检索子对象")
                .Add(
8423"由于安全原因不允许修改")
                .Add(
8424"操作不能替换该隐藏的记录")
                .Add(
8425"等级无效")
                .Add(
8426"尝试建立等级表失败")
                .Add(
8427"目录配置参数在注册中丢失")
                .Add(
8428"尝试计算地址簿索引失败")
                .Add(
8429"等级表的分配失败")
                .Add(
8430"目录服务遇到一个内部失败")
                .Add(
8431"目录服务遇到一个未知失败")
                .Add(
8432"根对象需要一个 top 类别")
                .Add(
8433"这个目录服务器已关闭,并且不能接受新上浮单一主机操作角色的所有权")
                .Add(
8434"目录服务没有必需的配置信息,并且不能决定新上浮单一主机操作角色的所有权")
                .Add(
8435"该目录服务无法将一个或多个上浮单一主机操作角色传送给其它服务器")
                .Add(
8436"复制操作失败")
                .Add(
8437"为这个复制操作指定了一个无效的参数")
                .Add(
8438"目录服务太忙,现在无法完成这个复制操作")
                .Add(
8439"为这个复制操作指定的单一名称无效")
                .Add(
8440"为这一个复制操作所指定的命名上下文无效")
                .Add(
8441"为这个复制操作指定的单一名称已经存在")
                .Add(
8442"复制系统遇到一个内部错误")
                .Add(
8443"复制操作遇到数据库不一致问题")
                .Add(
8444"不能连接到为这个复制操作指定的服务器上")
                .Add(
8445"复制操作遇到一个有无效范例类型的对象")
                .Add(
8446"复制操作无法分配内存")
                .Add(
8447"复制操作遇到一个邮件系统错误")
                .Add(
8448"目标服务器的复制参考信息已经存在")
                .Add(
8449"目标服务器的复制参考信息不存在")
                .Add(
8450"由于是由另一台服务器上复制的,因此不能删除命名上下文")
                .Add(
8451"复制操作遇到一个数据库错误")
                .Add(
8452"命名上下文要被删除或没有从指定的服务器上复制")
                .Add(
8453"复制访问被拒绝")
                .Add(
8454"这个版本的目录服务不支持请求的操作")
                .Add(
8455"取消复制远程过程呼叫")
                .Add(
8456"源服务器目前拒绝复制请求")
                .Add(
8457"目标服务器当前拒绝复制请求")
                .Add(
8458"由于对象名称冲突,复制操作失败")
                .Add(
8459"复制源已被重新安装")
                .Add(
8460"由于一个所需父对象丢失,复制操作失败")
                .Add(
8461"复制操作被抢先")
                .Add(
8462"由于缺乏更新,放弃复制同步尝试")
                .Add(
8463"由于系统正在关闭,复制操作被中断了")
                .Add(
8464"由于目标部分属性设置不是一个源部分属性设置的子设置,复制同步尝试失败")
                .Add(
8465"由于主复制尝试从部分复制同步,复制同步尝试失败")
                .Add(
8466"已经与为这个复制操作的指定的服务器联系,但是该服务器无法与完成这个操作所需的另外一个服务器联系")
                .Add(
8467"在副本安装时,检测到一个使用的源和内部版本之间的架构不匹配,不能安装该副本")
                .Add(
8468"架构更新失败: 有同一连接标识符的属性已经存在")
                .Add(
8469"名称翻译: 常见处理错误")
                .Add(
8470"名称翻译: 不能找到该名称或权限不够,不能看到名称")
                .Add(
8471"名称翻译: 输入名称映射到多个输出名称")
                .Add(
8472"名称翻译: 找到输出名称,但是找不到相应的输出格式")
                .Add(
8473"名称翻译: 不能完全解析,只找到了域")
                .Add(
8474"名称翻译: 不接到线上,无法在客户机上执行纯粹的语法映射")
                .Add(
8475"不允许一个构造 att 修改")
                .Add(
8476"指定的 OM-Object 类别对指定语法的一个属性是不正确的")
                .Add(
8477"复制请求已暂停; 等待回答")
                .Add(
8478"要求的操作需要一个目录服务,但没有可用的")
                .Add(
8479"类别或属性的 LDAP 显示名称含有非 ASCII 字符")
                .Add(
8480"请求的查找操作只支持基本查找")
                .Add(
8481"查找未能从数据库检索属性")
                .Add(
8482"架构更新操作试图添加一个反向链接,但该反向链接没有相应的正向链接")
                .Add(
8483"跨域移动的来源和目标在对象日期上不一致。或者是来源,或者是目标没有对象的最后一个版本")
                .Add(
8484"跨域移动的来源和目标在对象当前的名称上不一致。或者是来源,或者是目标没有对象的最后一个版本")
                .Add(
8485"域间移动的来源和目标是一样的。调用程序应该使用本地移动操作,而不是域间移动操作")
                .Add(
8486"域间移动的来源和目标与目录林中的命名上下文不一致。来源或目标没有分区容器的最近版本")
                .Add(
8487"跨域移动的目标不是目标命名上下文的权威")
                .Add(
8488"跨域移动的来源和目标提供的来源对象的身份不一样。 来源或目标没有来源对象的最近版本")
                .Add(
8489"跨域移动的对象应该已经被目标服务器删除。来源服务器没有来源对象的最近版本")
                .Add(
8490"要求对 PDC FSMO 的专门访问权的另一个操作正在进行中")
                .Add(
8491"跨域移动没有成功,导致被移动对象有两个版本 - 一个在来源域,一个在目标域。需要删除目标对象,将系统还原到一致状态")
                .Add(
8492"因为不允许这个类别的跨域移动,或者对象有一些特点,如: 信任帐户或防止移动的受限制的 RID;所以不能将该对象跨域移动")
                .Add(
8493"一旦移动,不能将带有成员身份的对象跨域移动,这会侵犯帐户组的成员身份条件。从帐户组成员身份删除对象,再试一次")
                .Add(
8494"命名上下文标题必须是另一个命名上下文标题的直接子标题,而不是一个内节点的子标题")
                .Add(
8495"因为目录没有提议的命名上下文上面的命名上下文的副本,所以无法验证所提议的命名上下文的名称。请保证充当域命名主机的服务器已配置成全局编录服务器,并且服务器及其复制伙伴是最新的")
                .Add(
8496"目标域必须在本机模式中")
                .Add(
8497"因为服务器在指定域中没有基础结构容器,所以无法执行操作")
                .Add(
8498"不允许跨域移动帐户组")
                .Add(
8499"不允许跨域移动资源组")
                .Add(
8500"属性的搜索标志无效。ANR 位只在 Unicode 或 Teletex 字符串的属性上有效")
                .Add(
8501"不允许在将 NC 头作为子体的对象开始删除目录树")
                .Add(
8502"因为目录树在使用中,目录服务未能为删除目录树而将其锁定")
                .Add(
8503"删除目录树时,目录服务未能识别要删除的对象列表")
                .Add(
8505"只有管理员才能修改管理组的成员列表")
                .Add(
8506"不能改变域控制器帐户的主要组 ID")
                .Add(
8507"试图修改基础架构")
                .Add(
8508"不允许进行下列操作: 为现有类别添加新的强制属性;从现有类别删除强制属性;为没有向回链接属性的特殊类别 [Top] 添加可选属性,向回链接属性指的是直接或通过继承。例如: 添加或删除附属类别")
                .Add(
8509"该域控制器上不允许架构更新。没有设置注册表项,或者 DC 不是架构 FSMO 角色所有者")
                .Add(
8510"无法在架构容器下创建这个类别的对象。在架构容器下,您只能创建属性架构和类别架构对象")
                .Add(
8511"副本/子项安装未能获取源 DC 上的架构容器的 objectVersion 属性。架构容器上的属性不存在,或者提供的凭据没有读取属性的权限")
                .Add(
8512"副本/子项安装未能读取 system32 目录中的文件 schema.ini 的 SCHEMA 段中的 objectVersion 属性")
                .Add(
8513"指定的组类型无效")
                .Add(
8514"如果域是安全启用的,在混合型域中不能嵌套全局组")
                .Add(
8515"如果域是安全启用的,在混合型域中不能嵌套本地组")
                .Add(
8516"全局组不能将本地组作为成员")
                .Add(
8517"全局组不能将通用组作为成员")
                .Add(
8518"通用组不能将本地组作为成员")
                .Add(
8519"全局组不能有跨域成员")
                .Add(
8520"本地组不能将另一个跨域本地组作为成员")
                .Add(
8521"包含主要成员的组不能改变为安全停用的组")
                .Add(
8522"架构缓冲加载未能转换类架构对象上的字符串默认值 SD")
                .Add(
8523"只有配置成全局编录服务器的 DSAs 才能充当域命名主机 FSMO 的角色")
                .Add(
8524"由于 DNS 查找故障,DSA 操作无法进行")
                .Add(
8525"处理一个对象的 DNS 主机名改动时,服务主要名称数值无法保持同步")
                .Add(
8526"未能读取安全描述符属性")
                .Add(
8527"没有找到请求的对象,但找到了具有那个密钥的对象")
                .Add(
8528"正在添加的链接属性的语法不正确。正向链接只能有语法 2.5.5.1、2.5.5.7 和 2.5.5.14,而反向链接只能有语法 2.5.5.1")
                .Add(
8529"安全帐户管理员需要获得启动密码")
                .Add(
8530"安全帐户管理员需要从软盘获得启动密钥")
                .Add(
8531"目录服务无法启动")
                .Add(
8532"未能启动目录服务")
                .Add(
8533"客户和服务器之间的连接要求数据包保密性")
                .Add(
8534"来源域跟目标域不在同一个目录林中")
                .Add(
8535"目标域必须在目录林中")
                .Add(
8536"该操作要求启用目标域审核")
                .Add(
8537"该操作无法为来源域找到 DC")
                .Add(
8538"来源对象必须是一个组或用户")
                .Add(
8539"来源对象的 SID 已经在目标目录林中")
                .Add(
8540"来源对象和目标对象必须属于同一类型")
                .Add(
8542"在复制请求中不能包括架构信息")
                .Add(
8543"由于架构不兼容性,无法完成 复制操作")
                .Add(
8544"由于前一个架构的不兼容性,无法完成复制操作")
                .Add(
8545"因为源和目标都没有收到有关最近跨域启动操作的信息,所以无法应用复制更新")
                .Add(
8546"因为还有主控这个域的域控制器,所以无法删除请求的域")
                .Add(
8547"只能在全局编录服务器上执行请求的操作")
                .Add(
8548"本地组只能是同一个域中其他本地组的成员")
                .Add(
8549"外部安全主要成员不能是通用组的成员")
                .Add(
8550"出于安全,无法将属性复制到 GC")
                .Add(
8551"由于目前正在处理的修改太多,无法采取 PDC 的检查点")
                .Add(
8552"操作需要启用那个源域审核")
                .Add(
8553"安全主要对象仅能在域命名环境菜单中创建")
                .Add(
8554"服务主要名称(SPN) 无法建造,因为提供的主机名格式不适合")
                .Add(
8555"筛选器已传递建造的属性")
                .Add(
8556"unicodePwd 属性值必须括在双引号中")
                .Add(
8557"您的计算机无法加入域。已超出此域上允许创建的计算机帐户的最大值。请同系统管理员联系,复位或增加此限定值")
                .Add(
8558"由于安全原因,操作必须在目标 DC 上运行")
                .Add(
8559"由于安全原因,源 DC 必须是 Service Pack 4 或更新版本")
                .Add(
8560"在树目录删除的操作中不能删除 [关键目录服务系统] 对象。数目录删除操作可能只进行了一部分")

            
End With
        
End Sub

        
Private Shared Function GetLoader() As ErrCollection08
            
If Loader Is Nothing Then
                
SyncLock InternalSyncObject
                    
If Loader Is Nothing Then
                        Loader 
= New ErrCollection08
                    
End If
                
End SyncLock
            
End If
            
Return Loader
        
End Function

        
Private Shared ReadOnly Property InternalSyncObject() As Object
            
Get
                
If gInternalSyncObject Is Nothing Then
                    System.Threading.Interlocked.CompareExchange(gInternalSyncObject, 
New ObjectNothing)
                
End If
                
Return gInternalSyncObject
            
End Get
        
End Property


        
Public Shared Function GetString(ByVal errNum As IntegerAs String
            
With GetLoader.Collection
                
If .ContainsKey(errNum) Then
                    
Return .Item(errNum)
                
Else
                    
Return "预留或未知"
                
End If
            
End With
        
End Function

    
End Class
End Namespace

 

原创粉丝点击