Author:水如烟
Namespace
LzmTW.uSystem.uWindows.Win32API
Friend Class ErrCollection06
Private Collection As New Dictionary( Of Integer , String )
Private Shared Loader As ErrCollection06
Private Shared gInternalSyncObject As Object
Private Sub New ()
With Collection
.Add( 6000 , " 无法加密指定的文件 " )
.Add( 6001 , " 指定的文件无法解密 " )
.Add( 6002 , " 指定的文件已加密,而且用户没有能力解密 " )
.Add( 6003 , " 这个系统没有有效的加密恢复策略配置 " )
.Add( 6004 , " 所需的加密驱动程序并未加载到系统中 " )
.Add( 6005 , " 文件加密所使用的加密驱动程序与目前加载的加密驱动程序不同 " )
.Add( 6006 , " 没有为用户定义的 EFS 关键字 " )
.Add( 6007 , " 指定的文件并未加密 " )
.Add( 6008 , " 指定的文件不是定义的 EFS 导出格式 " )
.Add( 6009 , " 指定的文件是只读文件 " )
.Add( 6010 , " 已为加密而停用目录 " )
.Add( 6011 , " 不信任服务器来进行远程加密操作 " )
.Add( 6118 , " 此工作组的服务器列表当前无法使用 " )
.Add( 6200 , " 要正常运行,任务计划程序服务的配置必须在系统帐户中运行。单独的任务可以被配置成在其他帐户中运行 " )
End With
End Sub
Private Shared Function GetLoader() As ErrCollection06
If Loader Is Nothing Then
SyncLock InternalSyncObject
If Loader Is Nothing Then
Loader = New ErrCollection06
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
Friend Class ErrCollection06
Private Collection As New Dictionary( Of Integer , String )
Private Shared Loader As ErrCollection06
Private Shared gInternalSyncObject As Object
Private Sub New ()
With Collection
.Add( 6000 , " 无法加密指定的文件 " )
.Add( 6001 , " 指定的文件无法解密 " )
.Add( 6002 , " 指定的文件已加密,而且用户没有能力解密 " )
.Add( 6003 , " 这个系统没有有效的加密恢复策略配置 " )
.Add( 6004 , " 所需的加密驱动程序并未加载到系统中 " )
.Add( 6005 , " 文件加密所使用的加密驱动程序与目前加载的加密驱动程序不同 " )
.Add( 6006 , " 没有为用户定义的 EFS 关键字 " )
.Add( 6007 , " 指定的文件并未加密 " )
.Add( 6008 , " 指定的文件不是定义的 EFS 导出格式 " )
.Add( 6009 , " 指定的文件是只读文件 " )
.Add( 6010 , " 已为加密而停用目录 " )
.Add( 6011 , " 不信任服务器来进行远程加密操作 " )
.Add( 6118 , " 此工作组的服务器列表当前无法使用 " )
.Add( 6200 , " 要正常运行,任务计划程序服务的配置必须在系统帐户中运行。单独的任务可以被配置成在其他帐户中运行 " )
End With
End Sub
Private Shared Function GetLoader() As ErrCollection06
If Loader Is Nothing Then
SyncLock InternalSyncObject
If Loader Is Nothing Then
Loader = New ErrCollection06
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