Win32API调用错误号与信息(7000-7999)

Author:水如烟  

 

Namespace  LzmTW.uSystem.uWindows.Win32API
     Friend   Class  ErrCollection07
         Private  Collection  As   New  Dictionary( Of   Integer ,  String )

         Private   Shared  Loader  As  ErrCollection07
         Private   Shared  gInternalSyncObject  As   Object

         Private   Sub   New ()
             With  Collection
                .Add( 7001 ,  " 指定的会话名称无效 " )
                .Add( 7002 ,  " 指定的协议驱动程序无效 " )
                .Add( 7003 ,  " 在系统路径上找不到指定的协议驱动程序 " )
                .Add( 7004 ,  " 在系统路径上找不到指定的终端连接 " )
                .Add( 7005 ,  " 不能为这个会话创建一个事件日志的注册键 " )
                .Add( 7006 ,  " 同名的一个服务已经在系统中存在 " )
                .Add( 7007 ,  " 在会话上一个关闭操作挂起 " )
                .Add( 7008 ,  " 没有可用的输出缓冲器 " )
                .Add( 7009 ,  " 找不到 MODEM.INF 文件 " )
                .Add( 7010 ,  " 在 MODEM.INF 中没有找到调制解调器名称 " )
                .Add( 7011 ,  " 调制解调器没有接受发送给它的指令。验证配置的调制解调器与连接的调制解调器是否匹配 " )
                .Add( 7012 ,  " 调制解调器没有接受发送给它的指令。验证该调制解调器是否接线正确并且打开了电源开关 " )
                .Add( 7013 ,  " 运载工具检测失败或者由于断开连接，运载工具已被丢弃 " )
                .Add( 7014 ,  " 在要求的时间内没有发现拨号音。 确定电话线连接正确并可使用 " )
                .Add( 7015 ,  " 在远程站点回叫时检测到了占线信号 " )
                .Add( 7016 ,  " 在回叫时远程站点上检测到了声音 " )
                .Add( 7017 ,  " 传输驱动程序错误 " )
                .Add( 7022 ,  " 找不到指定的会话 " )
                .Add( 7023 ,  " 指定的会话名称已处于使用中 " )
                .Add( 7024 ,  " 由于终端连接目前正在忙于处理一个连接、断开连接、复位或删除操作，无法完成该请求的操作 " )
                .Add( 7025 ,  " 试图连接到其视频模式不受当前客户支持的会话 " )
                .Add( 7035 ,  " 应用程序尝试启动 DOS 图形模式。 不支持 DOS 图形模式 " )
                .Add( 7037 ,  " 您的交互式登录权限已被禁用。 请与您的管理员联系 " )
                .Add( 7038 ,  " 该请求的操作只能在系统控制台上执行。 这通常是一个驱动程序或系统 DLL 要求直接控制台访问的结果 " )
                .Add( 7040 ,  " 客户未能对服务器连接消息作出响应 " )
                .Add( 7041 ,  " 不支持断开控制台会话 " )
                .Add( 7042 ,  " 不支持重新将一个断开的会话连接到控制台 " )
                .Add( 7044 ,  " 远程控制另一个会话的请求被拒绝 " )
                .Add( 7045 ,  " 拒绝请求的会话访问 " )
                .Add( 7049 ,  " 指定的终端连接驱动程序无效 " )
                .Add( 7050 ,  " 不能远程控制该请求的会话。 这也许是由于该会话被中断或目前没有一个用户登录。而且，您不能从该系统控制台远程控制一个会话或远程控制系统控制台。并且，您不能远程控制您自己的当前会话 " )
                .Add( 7051 ,  " 该请求的会话没有配置成允许远程控制 " )
                .Add( 7052 ,  " 拒绝连接到这个终端服务器。终端服务器客户许可证目前正在被另一个用户使用。 请与系统管理员联系，获取一份新的终端服务器客户，其许可证号码必须是有效的、唯一的 " )
                .Add( 7053 ,  " 拒绝连接到这个终端服务器。还没有为这份终端服务器客户输入您的终端服务器客户许可证号码。 请与系统管理员联系，为该终端服务器客户输入一个有效的、唯一的许可证号码 " )
                .Add( 7054 ,  " 系统已达到其授权的登录限制。 请以后再试一次 " )
                .Add( 7055 ,  " 您正在使用的客户没有使用该系统的授权。您的登录请求被拒绝 " )
                .Add( 7056 ,  " 系统许可证已过期。您的登录请求被拒绝 " )
             End   With
         End Sub

         Private   Shared   Function  GetLoader()  As  ErrCollection07
             If  Loader  Is   Nothing   Then
                 SyncLock  InternalSyncObject
                     If  Loader  Is   Nothing   Then
                        Loader  =   New  ErrCollection07
                     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   Object ,  Nothing )
                 End   If
                 Return  gInternalSyncObject
             End   Get
         End Property


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

     End Class
End Namespace