Win32API调用错误号与信息(4000-4999)

Author:水如烟 

 

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

        Private Shared Loader As ErrCollection04
        Private Shared gInternalSyncObject As Object

        Private Sub New()
            With Collection
                .Add(4000, "WINS 在处理命令时遇到错误")
                .Add(4001, "本地的 WINS 不能删除")
                .Add(4002, "文件导入操作失败")
                .Add(4003, "备份操作失败。是否先前已作过完整备份?")
                .Add(4004, "备份操作失败。请检查您备份数据库的目录")
                .Add(4005, "WINS 数据库中没有这个名称")
                .Add(4006, "不允许复制一个尚未配置的伙伴")
                .Add(4100, "DHCP 客户获得一个在网上已被使用的 IP 地址。 直到 DHCP 客户可以获得新的地址前，本地接口将被禁用")
                .Add(4200, "无法识别传来的 GUID 是否为有效的 WMI 数据提供程序")
                .Add(4201, "无法识别传来的实例名是否为有效的 WMI 数据提供程序")
                .Add(4202, "无法识别传来的数据项目标识符是否为有效的 WMI 数据提供程序")
                .Add(4203, "无法完成 WMI 请求，应该重试一次")
                .Add(4204, "找不到 WMI 数据提供程序")
                .Add(4205, "WMI 数据提供程序引用到一个未注册的实例组")
                .Add(4206, "WMI 数据块或事件通知已启用")
                .Add(4207, "WMI 数据块不再可用")
                .Add(4208, "WMI 数据服务无法使用")
                .Add(4209, "WMI 数据提供程序无法完成要求")
                .Add(4210, "WMI MOF 信息无效")
                .Add(4211, "WMI 注册信息无效")
                .Add(4212, "WMI 数据块或事件通知已禁用")
                .Add(4213, "WMI 数据项目或数据块为只读")
                .Add(4214, "WMI 数据项目或数据块不能更改")
                .Add(4300, "媒体标识符没有表示一个有效的媒体")
                .Add(4301, "库标识符没有表示一个有效的库")
                .Add(4302, "媒体缓冲池标识符没有表示一个有效的媒体缓冲池")
                .Add(4303, "驱动器和媒体不兼容或位于不同的库中")
                .Add(4304, "媒体目前在脱机库中，您必须联机才能运行这个操作")
                .Add(4305, "操作无法在脱机库中运行")
                .Add(4306, "库、驱动器或媒体缓冲池是空的")
                .Add(4307, "库、磁盘或媒体缓冲池必须是空的，才能运行这个操作")
                .Add(4308, "在这个媒体缓冲池或库中目前没有可用的媒体")
                .Add(4309, "这个操作所需的资源已禁用")
                .Add(4310, "媒体标识符没有表示一个有效的清洗器")
                .Add(4311, "无法清洗驱动器或不支持清洗")
                .Add(4312, "对象标识符没有表示一个有效的对象")
                .Add(4313, "无法读取或写入数据库")
                .Add(4314, "数据库已满")
                .Add(4315, "媒体与设备或媒体缓冲池不兼容")
                .Add(4316, "这个操作所需的资源不存在")
                .Add(4317, "操作标识符不正确")
                .Add(4318, "媒体未被安装，或未就绪")
                .Add(4319, "设备未就绪")
                .Add(4320, "操作员或系统管理员拒绝了请求")
                .Add(4321, "驱动器标识符不代表一个有效的驱动器")
                .Add(4322, "程序库已满。没有可使用的插槽")
                .Add(4323, "传输程序不能访问媒体")
                .Add(4324, "无法将媒体加载到驱动器中")
                .Add(4325, "无法检索有关驱动器的状态")
                .Add(4326, "无法检索有关插槽的状态")
                .Add(4327, "无法检索传输的状态")
                .Add(4328, "因为传输已在使用中，所以无法使用")
                .Add(4329, "无法打开或关闭弹入/弹出端口")
                .Add(4330, "因为媒体在驱动器中，无法将其弹出")
                .Add(4331, "清洗器插槽已被保留")
                .Add(4332, "没有保留清洗器插槽")
                .Add(4333, "清洗器墨盒已进行了最大次数的驱动器清洗")
                .Add(4334, "意外媒体标识号")
                .Add(4335, "在这个组或源中最后剩下的项目不能被删除")
                .Add(4336, "提供的消息超过了这个参数所允许的最大尺寸")
                .Add(4337, "该卷含有系统和页面文件")
                .Add(4338, "由于库中至少有一个驱动器可以支持该媒体类型，不能从库中删除媒体类型")
                .Add(4339, "由于没有可以使用的已被启动的驱动器，无法将该脱机媒体装入这个系统")
                .Add(4340, "(Y/N) [Y]")
                .Add(4341, "(Y/N) [N]")
                .Add(4342, "错误")
                .Add(4343, "OK")
                .Add(4344, "Y")
                .Add(4345, "N")
                .Add(4346, "任何")
                .Add(4347, "A")
                .Add(4348, "P")
                .Add(4349, "(找不到)")
                .Add(4350, "远程存储服务无法撤回文件")
                .Add(4351, "远程存储服务此时不可操作")
                .Add(4352, "远程存储服务遇到一个媒体错误")
                .Add(4354, "请键入密码:")
                .Add(4358, "请键入用户的密码:")
                .Add(4359, "请键入共享资源的密码:")
                .Add(4360, "请键入您的密码:")
                .Add(4361, "请再键入一次密码以便确认:")
                .Add(4362, "请键入用户的旧密码:")
                .Add(4363, "请键入用户的新密码:")
                .Add(4364, "请键入您的新密码:")
                .Add(4365, "请键入复制器服务密码:")
                .Add(4368, "请键入您的用户名:")
                .Add(4372, "打印作业详细信息")
                .Add(4378, "控制下列正在运行的服务:")
                .Add(4379, "统计数据可用于正在运行的下列服务:")
                .Add(4381, "此命令的语法是:")
                .Add(4382, "此命令的选项是:")
                .Add(4383, "请键入主域控制器的名称:")
                .Add(4385, "Sunday")
                .Add(4386, "Monday")
                .Add(4387, "Tuesday")
                .Add(4388, "Wednesday")
                .Add(4389, "Thursday")
                .Add(4390, "此文件或目录不是一个重解析点")
                .Add(4391, "重解析点的属性不能被设置，因为它与已有的属性冲突")
                .Add(4392, "在重解析点缓冲区中的数据无效")
                .Add(4393, "在重解析点缓冲区中的标签无效")
                .Add(4394, "请求中指定的标签和重解析点中的不匹配")
                .Add(4395, "W")
                .Add(4396, "Th")
                .Add(4397, "F")
                .Add(4398, "S")
                .Add(4399, "Sa")
                .Add(4401, "组名")
                .Add(4402, "注释")
                .Add(4403, "成员")
                .Add(4406, "别名")
                .Add(4407, "注释")
                .Add(4408, "成员")
                .Add(4411, "用户名")
                .Add(4412, "全名")
                .Add(4413, "注释")
                .Add(4414, "用户的注释")
                .Add(4415, "参数")
                .Add(4416, "国家(地区)代码")
                .Add(4417, "权限等级")
                .Add(4418, "操作员权限")
                .Add(4419, "帐户启用")
                .Add(4420, "帐户到期")
                .Add(4421, "上次设置密码")
                .Add(4422, "密码到期")
                .Add(4423, "密码可更改")
                .Add(4424, "允许的工作站")
                .Add(4425, "磁盘空间上限")
                .Add(4426, "无限制")
                .Add(4427, "本地组会员")
                .Add(4428, "域控制器")
                .Add(4429, "登录脚本")
                .Add(4430, "上次登录")
                .Add(4431, "全局组成员")
                .Add(4432, "可允许的登录小时数")
                .Add(4433, "全部")
                .Add(4434, "无")
                .Add(4436, "主目录")
                .Add(4437, "需要密码")
                .Add(4438, "用户可以更改密码")
                .Add(4439, "用户配置文件")
                .Add(4440, "已锁定")
                .Add(4450, "计算机名")
                .Add(4451, "用户名")
                .Add(4452, "软件版本")
                .Add(4453, "工作站活动在")
                .Add(4454, "Windows NT 根目录")
                .Add(4455, "工作站域")
                .Add(4456, "登录域")
                .Add(4457, "其它域")
                .Add(4458, "COM 打开超时 (秒)")
                .Add(4459, "COM 发送计数 (字节)")
                .Add(4460, "COM 发送超时 (毫秒)")
                .Add(4461, "DOS 会话打印超时 (秒)")
                .Add(4462, "错误日志文件大小上限 (K)")
                .Add(4463, "高速缓存上限 (K)")
                .Add(4464, "网络缓冲区数")
                .Add(4465, "字符缓冲区数")
                .Add(4466, "域缓冲区大小")
                .Add(4467, "字符缓冲区大小")
                .Add(4468, "计算机全名")
                .Add(4469, "工作站域 DNS 名称")
                .Add(4470, "Windows 2000")
                .Add(4481, "服务器名称")
                .Add(4482, "服务器注释")
                .Add(4483, "发送管理警报到")
                .Add(4484, "软件版本")
                .Add(4485, "对等服务器")
                .Add(4486, "Windows NT")
                .Add(4487, "服务器等级")
                .Add(4488, "Windows NT Server")
                .Add(4489, "服务器正运行于")
                .Add(4492, "服务器已隐藏")
                .Add(4500, "零备份存储在这个卷上不可用")
                .Add(4506, "登录的用户数量上限")
                .Add(4507, "同时可并存的管理员数量上限")
                .Add(4508, "资源共享数量上限")
                .Add(4509, "资源连接数量上限")
                .Add(4510, "服务器打开的文件数量上限")
                .Add(4511, "每个会话打开的文件数量上限")
                .Add(4512, "文件锁定数量上限")
                .Add(4520, "空闲的会话时间 (分)")
                .Add(4526, "共享等级")
                .Add(4527, "用户等级")
                .Add(4530, "未限制的服务器")
                .Add(4570, "强制用户在时间到期之后多久必须注销?:")
                .Add(4571, "多少次密码不正确后锁住帐户?:")
                .Add(4572, "密码最短使用期限 (天):")
                .Add(4573, "密码最长使用期限 (天):")
                .Add(4574, "密码长度下限:")
                .Add(4575, "保持的密码历史记录长度:")
                .Add(4576, "计算机角色:")
                .Add(4577, "工作站域的主域控制器:")
                .Add(4578, "锁定阈值:")
                .Add(4579, "锁定持续时间(分):")
                .Add(4580, "锁定观测窗口(分):")
                .Add(4600, "统计开始于")
                .Add(4601, "接受的会话")
                .Add(4602, "会话超时")
                .Add(4603, "会话出错")
                .Add(4604, "发送的 KB")
                .Add(4605, "接收的 KB")
                .Add(4606, "平均响应时间 (毫秒)")
                .Add(4607, "网络错误")
                .Add(4608, "访问的文件")
                .Add(4609, "后台处理的打印作业")
                .Add(4610, "系统出错")
                .Add(4611, "密码违规")
                .Add(4612, "权限违规")
                .Add(4613, "访问的通讯设备")
                .Add(4614, "会话已启动")
                .Add(4615, "重新连接的会话")
                .Add(4616, "会话启动失败")
                .Add(4617, "断开的会话")
                .Add(4618, "网络 I/O 执行")
                .Add(4619, "文件及管道被访问")
                .Add(4620, "时间缓冲区耗尽")
                .Add(4621, "大缓冲区")
                .Add(4622, "请求缓冲区")
                .Add(4626, "已做连接")
                .Add(4627, "连接失败")
                .Add(4630, "接收的字节数")
                .Add(4631, "接收的服务器消息块 (SMB)")
                .Add(4632, "传输的字节数")
                .Add(4633, "传输的服务器消息块 (SMB)")
                .Add(4634, "读取操作")
                .Add(4635, "写入操作")
                .Add(4636, "拒绝原始读取")
                .Add(4637, "拒绝原始写入")
                .Add(4638, "网络错误")
                .Add(4639, "已做连接")
                .Add(4640, "重新连接")
                .Add(4641, "服务器断开")
                .Add(4642, "会话已启动")
                .Add(4643, "会话挂起")
                .Add(4644, "失败的会话")
                .Add(4645, "操作失败")
                .Add(4646, "使用计数")
                .Add(4647, "使用计数失败")
                .Add(4655, "消息名称转发已经取消")
                .Add(4661, "密码已经更改成功")
                .Add(4664, "消息已经发给网络上所有的用户")
                .Add(4666, "消息已经送到此服务器上的所有用户")
                .Add(4696, "Windows NT Server")
                .Add(4697, "Windows NT Workstation")
                .Add(4698, "MS-DOS 增强型工作站")
                .Add(4700, "服务器名称 注释")
                .Add(4701, "资源共享名 类型 用途 注释")
                .Add(4702, "(UNC)")
                .Add(4703, "...")
                .Add(4704, "Domain")
                .Add(4706, "其它可用的网络:")
                .Add(4710, "Disk")
                .Add(4711, "Print")
                .Add(4712, "Comm")
                .Add(4713, "IPC")
                .Add(4714, "状态 本地 远程 网络")
                .Add(4715, "OK")
                .Add(4716, "休止")
                .Add(4717, "已暂停")
                .Add(4718, "断开")
                .Add(4719, "错误")
                .Add(4720, "正在连接")
                .Add(4721, "正在重新连接")
                .Add(4722, "状态")
                .Add(4723, "本地名称")
                .Add(4724, "远程名称")
                .Add(4725, "资源类型")
                .Add(4726, "# 打开")
                .Add(4727, "# 连接")
                .Add(4728, "不可用")
                .Add(4730, "共享名 资源 注释")
                .Add(4731, "共享名")
                .Add(4732, "资源")
                .Add(4733, "后台处理")
                .Add(4734, "权限")
                .Add(4735, "最多用户")
                .Add(4736, "无限制")
                .Add(4737, "用户")
                .Add(4740, "识别码 路径 用户名 # 锁定")
                .Add(4741, "文件识别码")
                .Add(4742, "锁定")
                .Add(4743, "权限")
                .Add(4750, "计算机 用户名 客户类型 打开空闲时间")
                .Add(4751, "计算机")
                .Add(4752, "会话时间")
                .Add(4753, "空闲时间")
                .Add(4754, "资源共享名 类型 # 打开")
                .Add(4755, "客户类型")
                .Add(4756, "来宾登录")
                .Add(4770, "脱机缓存被启用:手动恢复")
                .Add(4771, "脱机缓存被启用:自动恢复")
                .Add(4772, "脱机缓存被启用:用户之间没有共享")
                .Add(4773, "脱机缓存被停用")
                .Add(4774, "自动")
                .Add(4775, "手动")
                .Add(4800, "名称")
                .Add(4801, "转发到")
                .Add(4802, "已经从下列位置转发给您")
                .Add(4803, "这台服务器的用户")
                .Add(4804, "用户已经按 Ctrl+Break 中断网络发送")
                .Add(4810, "名称 作业编号 大小 状态")
                .Add(4811, "作业")
                .Add(4812, "打印")
                .Add(4813, "名称")
                .Add(4814, "作业 #")
                .Add(4815, "大小")
                .Add(4816, "状态")
                .Add(4817, "分隔文件")
                .Add(4818, "注释")
                .Add(4819, "优先级")
                .Add(4820, "打印后于")
                .Add(4821, "打印直到")
                .Add(4822, "打印处理程序")
                .Add(4823, "附加信息")
                .Add(4824, "参数")
                .Add(4825, "打印设备")
                .Add(4826, "打印机活动中")
                .Add(4827, "打印机搁置")
                .Add(4828, "打印机出错")
                .Add(4829, "正在删除打印机")
                .Add(4830, "打印机状态未知")
                .Add(4841, "作业 #")
                .Add(4842, "正在提交用户")
                .Add(4843, "通知")
                .Add(4844, "作业数据类型")
                .Add(4845, "作业参数")
                .Add(4846, "正在等候")
                .Add(4847, "搁置于队列")
                .Add(4848, "正在后台处理")
                .Add(4849, "已暂停")
                .Add(4850, "脱机")
                .Add(4851, "错误")
                .Add(4852, "缺纸")
                .Add(4853, "需要干预")
                .Add(4854, "正在打印")
                .Add(4855, "on")
                .Add(4862, "驱动程序")
                .Add(4930, "用户名 类型 日期")
                .Add(4931, "锁定")
                .Add(4932, "服务")
                .Add(4933, "服务器")
                .Add(4934, "服务器已启动")
                .Add(4935, "服务器已暂停")
                .Add(4936, "服务器已继续操作")
                .Add(4937, "服务器已停止")
                .Add(4938, "会话")
                .Add(4939, "登录来宾")
                .Add(4940, "登录用户")
                .Add(4941, "登录管理员")
                .Add(4942, "正常注销")
                .Add(4943, "登录")
                .Add(4944, "注销错误")
                .Add(4945, "注销自动断开")
                .Add(4946, "注销管理员断开")
                .Add(4947, "注销受登录限制")
                .Add(4948, "服务")
                .Add(4957, "帐户")
                .Add(4964, "已修改帐户系统设置")
                .Add(4965, "登录限制")
                .Add(4966, "超过限制: 未知")
                .Add(4967, "超过限制: 登录时间")
                .Add(4968, "超过限制: 帐户过期")
                .Add(4969, "超过限制: 工作站识别码无效")
                .Add(4970, "超过限制: 帐户停用")
                .Add(4971, "超过限制: 帐户已删除")
                .Add(4972, "资源")
                .Add(4978, "密码不正确")
                .Add(4979, "需要管理员特权")
                .Add(4980, "访问")
                .Add(4984, "拒绝访问")
                .Add(4985, "未知")
                .Add(4986, "其它")
                .Add(4987, "持续时间:")
                .Add(4988, "持续时间: 无效")
                .Add(4989, "持续时间: 1 秒以下")
                .Add(4990, "(无)")
                .Add(4994, "访问结束")
                .Add(4995, "登录到网络")
                .Add(4996, "拒绝登录")
                .Add(4997, "程序 消息 时间")
                .Add(4999, "管理员已解除帐户的锁定状态")
            End With
        End Sub

        Private Shared Function GetLoader() As ErrCollection04
            If Loader Is Nothing Then
                SyncLock InternalSyncObject
                    If Loader Is Nothing Then
                        Loader = New ErrCollection04
                    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