modconstants.bas

VB 加密----------能够加密解密控件

Attribute VB_Name = "modConstants"
'    CopyRight (c) 2004 Kelly Ethridge
'
'    This file is part of VBCorLib.
'
'    VBCorLib is free software; you can redistribute it and/or modify
'    it under the terms of the GNU Library General Public License as published by
'    the Free Software Foundation; either version 2.1 of the License, or
'    (at your option) any later version.
'
'    VBCorLib is distributed in the hope that it will be useful,
'    but WITHOUT ANY WARRANTY; without even the implied warranty of
'    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'    GNU Library General Public License for more details.
'
'    You should have received a copy of the GNU Library General Public License
'    along with Foobar; if not, write to the Free Software
'    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'
'    Module: modConstants
'
Option Explicit


Public Const PICTYPE_ICON   As Long = 3
Public Const PICTYPE_BITMAP As Long = 1


' Ascii constants
Public Const vbUpperA           As Long = &H41
Public Const vbLowerA           As Long = &H61
Public Const vbLowerD           As Long = &H64
Public Const vbUpperD           As Long = &H44
Public Const vbLowerF           As Long = &H66
Public Const vbUpperF           As Long = &H46
Public Const vbLowerG           As Long = &H67
Public Const vbUpperG           As Long = &H47
Public Const vbLowerH           As Long = &H68
Public Const vbUpperH           As Long = &H48
Public Const vbLowerM           As Long = &H6D
Public Const vbUpperM           As Long = &H4D
Public Const vbLowerR           As Long = &H72
Public Const vbUpperR           As Long = &H52
Public Const vbLowerS           As Long = &H73
Public Const vbLowerT           As Long = &H74
Public Const vbUpperT           As Long = &H54
Public Const vbLowerU           As Long = &H75
Public Const vbUpperU           As Long = &H55
Public Const vbLowerY           As Long = &H79
Public Const vbUpperY           As Long = &H59
Public Const vbUpperZ           As Long = &HFA
Public Const vbLowerZ           As Long = &H7A
Public Const vbZero             As Long = &H30
Public Const vbOne              As Long = &H31
Public Const vbFive             As Long = &H35
Public Const vbNine             As Long = &H39
Public Const vbPlus             As Long = &H2B
Public Const vbMinus            As Long = &H2D
Public Const vbBackSlash        As Long = &H5C
Public Const vbForwardSlash     As Long = &H2F
Public Const vbColon            As Long = &H3A
Public Const vbSemiColon        As Long = &H3B
Public Const vbEqual            As Long = &H3D
Public Const vbReturn           As Long = &HD
Public Const vbLineFeed         As Long = &HA
Public Const vbSpace            As Long = &H20
Public Const vbPound            As Long = &H23
Public Const vbDollar           As Long = &H24
Public Const vbPercent          As Long = &H25
Public Const vbDoubleQuote      As Long = &H22
Public Const vbSingleQuote      As Long = &H27
Public Const vbComma            As Long = &H2C
Public Const vbPeriod           As Long = &H2E
Public Const vbInvalidChar      As Long = &HFFFFFFFF

' Used for easy VarType comparison
Public Const vbIntegerArray     As Long = vbInteger Or vbArray
Public Const vbByteArray        As Long = vbByte Or vbArray
Public Const vbLongArray        As Long = vbLong Or vbArray
Public Const vbBooleanArray     As Long = vbBoolean Or vbArray
Public Const vbStringArray      As Long = vbString Or vbArray
Public Const vbVariantArray     As Long = vbVariant Or vbArray

' String versions
Public Const vbColonS           As String = ":"
Public Const vbSemiColonS       As String = ";"
Public Const vbBackSlashS       As String = "\"
Public Const vbForwardSlashS    As String = "/"
Public Const vbPeriodS          As String = "."


' SafeArray Constants
Public Const SIZEOF_SAFEARRAY               As Long = 16
Public Const SIZEOF_SAFEARRAYBOUND          As Long = 8
Public Const SIZEOF_SAFEARRAY1D             As Long = SIZEOF_SAFEARRAY + SIZEOF_SAFEARRAYBOUND
Public Const SIZEOF_GUID                    As Long = 16
Public Const SIZEOF_GUIDSAFEARRAY1D         As Long = SIZEOF_SAFEARRAY1D + SIZEOF_GUID

' Byte offsets into the SafeArray structure.
Public Const FFEATURES_OFFSET               As Long = 2
Public Const CBELEMENTS_OFFSET              As Long = 4
Public Const PVDATA_OFFSET                  As Long = 12
Public Const LBOUND_OFFSET                  As Long = 20
Public Const CLOCKS_OFFSET                  As Long = 8
Public Const CELEMENTS_OFFSET               As Long = 16

' Variant descriptions and offsets into the layout.
Public Const VARIANTDATA_OFFSET             As Long = 8
Public Const VT_BYREF                       As Long = &H4000

Public Const MAX_PATH                   As Long = 260
Public Const MAX_DIRECTORY_PATH         As Long = 260
Public Const NO_ERROR                   As Long = 0


Public Const FILE_FLAG_OVERLAPPED       As Long = &H40000000
Public Const FILE_ATTRIBUTE_NORMAL      As Long = &H80
Public Const INVALID_HANDLE_VALUE       As Long = -1
Public Const FILE_TYPE_DISK             As Long = &H1
Public Const FILE_ATTRIBUTE_DIRECTORY   As Long = &H10
Public Const INVALID_FILE_ATTRIBUTES    As Long = -1

' File manipulation function attributes
Public Const GENERIC_READ               As Long = &H80000000
Public Const GENERIC_WRITE              As Long = &H40000000
Public Const OPEN_EXISTING              As Long = 3
Public Const PAGE_READONLY              As Long = &H2
Public Const PAGE_READWRITE             As Long = &H4
Public Const PAGE_WRITECOPY             As Long = &H8
Public Const INVALID_HANDLE             As Long = -1
Public Const FILE_SHARE_READ            As Long = 1
Public Const FILE_SHARE_WRITE           As Long = 2
Public Const STANDARD_RIGHTS_REQUIRED   As Long = &HF0000
Public Const SECTION_QUERY              As Long = &H1
Public Const SECTION_MAP_WRITE          As Long = &H2
Public Const SECTION_MAP_READ           As Long = &H4
Public Const SECTION_MAP_EXECUTE        As Long = &H8
Public Const SECTION_EXTEND_SIZE        As Long = &H10
Public Const SECTION_ALL_ACCESS         As Long = STANDARD_RIGHTS_REQUIRED Or SECTION_QUERY Or SECTION_MAP_WRITE Or SECTION_MAP_READ Or SECTION_MAP_EXECUTE Or SECTION_EXTEND_SIZE
Public Const FILE_MAP_READ              As Long = SECTION_MAP_READ
Public Const FILE_MAP_ALL_ACCESS        As Long = SECTION_ALL_ACCESS
Public Const NULL_HANDLE                As Long = 0

Public Const ERROR_PATH_NOT_FOUND       As Long = 3
Public Const ERROR_ACCESS_DENIED        As Long = 5
Public Const ERROR_FILE_NOT_FOUND       As Long = 2
Public Const ERROR_FILE_EXISTS          As Long = 80
Public Const ERROR_INSUFFICIENT_BUFFER  As Long = 122

' Registry Constants
Public Const REG_NONE                      As Long = 0
Public Const REG_UNKNOWN                   As Long = 0
Public Const REG_SZ                        As Long = 1
Public Const REG_DWORD                     As Long = 4
Public Const REG_BINARY                    As Long = 3
Public Const REG_MULTI_SZ                  As Long = 7
Public Const REG_EXPAND_SZ                 As Long = 2
Public Const REG_QWORD                     As Long = 11

Public Const ERROR_SUCCESS                 As Long = 0
Public Const ERROR_INVALID_HANDLE          As Long = 6
Public Const ERROR_INVALID_PARAMETER       As Long = 87
Public Const ERROR_CALL_NOT_IMPLEMENTED    As Long = 120
Public Const ERROR_MORE_DATA               As Long = 234
Public Const ERROR_NO_MORE_ITEMS           As Long = 259
Public Const ERROR_CANTOPEN                As Long = 1011
Public Const ERROR_CANTREAD                As Long = 1012
Public Const ERROR_CANTWRITE               As Long = 1013
Public Const ERROR_REGISTRY_RECOVERED      As Long = 1014
Public Const ERROR_REGISTRY_CORRUPT        As Long = 1015
Public Const ERROR_REGISTRY_IO_FAILED      As Long = 1016
Public Const ERROR_NOT_REGISTRY_FILE       As Long = 1017
Public Const ERROR_KEY_DELETED             As Long = 1018

' Locale Specifier
Public Const LOCALE_USER_DEFAULT = &H400

' GetCalendarInfo Constants
Public Const CAL_ITWODIGITYEARMAX   As Long = &H30
Public Const CAL_GREGORIAN          As Long = 1
Public Const CAL_HEBREW             As Long = 8
Public Const CAL_HIJRI              As Long = 6
Public Const CAL_JAPAN              As Long = 3
Public Const CAL_KOREA              As Long = 5
Public Const CAL_THAI               As Long = 7
Public Const CAL_TAIWAN             As Long = 4
Public Const CAL_RETURN_NUMBER      As Long = &H20000000


' Registry Root Keys
Public Const HKEY_CLASSES_ROOT      As Long = &H80000000
Public Const HKEY_CURRENT_CONFIG    As Long = &H80000005
Public Const HKEY_CURRENT_USER      As Long = &H80000001
Public Const HKEY_DYN_DATA          As Long = &H80000006
Public Const HKEY_LOCAL_MACHINE     As Long = &H80000002
Public Const HKEY_USERS             As Long = &H80000003
Public Const HKEY_PERFORMANCE_DATA  As Long = &H80000004

' Registry Flags
Public Const READ_CONTROL           As Long = &H20000
Public Const STANDARD_RIGHTS_ALL    As Long = &H1F0000
Public Const STANDARD_RIGHTS_READ   As Long = READ_CONTROL
Public Const KEY_QUERY_VALUE        As Long = &H1
Public Const KEY_SET_VALUE          As Long = &H2
Public Const KEY_CREATE_SUB_KEY     As Long = &H4
Public Const KEY_ENUMERATE_SUB_KEYS As Long = &H8
Public Const KEY_CREATE_LINK        As Long = &H20
Public Const KEY_NOTIFY             As Long = &H10
Public Const SYNCHRONIZE            As Long = &H100000
Public Const KEY_READ               As Long = ((STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY) And (Not SYNCHRONIZE))
Public Const KEY_ALL_ACCESS         As Long = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))



' Exception HResults
Public Const E_POINTER                  As Long = &H5B
Public Const COR_E_EXCEPTION            As Long = &H80131500
Public Const COR_E_SYSTEM               As Long = &H80131501
Public Const COR_E_RANK                 As Long = &H9
Public Const COR_E_INVALIDOPERATION     As Long = &H5
Public Const COR_E_INVALIDCAST          As Long = &HD
Public Const COR_E_INDEXOUTOFRANGE      As Long = &H9
Public Const COR_E_ARGUMENT             As Long = &H5
Public Const COR_E_ARGUMENTOUTOFRANGE   As Long = &H5
Public Const COR_E_OUTOFMEMORY          As Long = &H7
Public Const COR_E_FORMAT               As Long = &H80131537
Public Const COR_E_NOTSUPPORTED         As Long = &H1B6
Public Const COR_E_SERIALIZATION        As Long = &H14A
Public Const COR_E_ARRAYTYPEMISMATCH    As Long = &HD
Public Const COR_E_IO                   As Long = &H39
Public Const COR_E_FILENOTFOUND         As Long = &H35
Public Const COR_E_PLATFORMNOTSUPPORTED As Long = &H80131539
Public Const COR_E_PATHTOOLONG          As Long = &H800700CE
Public Const COR_E_DIRECTORYNOTFOUND    As Long = &H35
Public Const COR_E_ENDOFSTREAM          As Long = &H80070026
Public Const COR_E_ARITHMETIC           As Long = &H80070216
Public Const COR_E_OVERFLOW             As Long = &H6
Public Const COR_E_APPLICATION          As Long = &H80131600
Public Const COR_E_UNAUTHORIZEDACCESS   As Long = &H46
Public Const CORSEC_E_CRYPTO            As Long = &H80131430





' Resource Strings
' Exception Constants
Public Const Exception_WasThrown                        As Long = 1


' ArrayTypeMismatch
Public Const ArrayTypeMismatch_Conversion               As Long = 101
Public Const ArrayTypeMismatch_Incompatible             As Long = 102
Public Const ArrayTypeMismatch_Exception                As Long = 103
Public Const ArrayTypeMismatch_Compare                  As Long = 104

' Rank
Public Const Rank_MultiDimension                        As Long = 200

' IndexOutOfRange
Public Const IndexOutOfRange_Dimension                  As Long = 300

' IOException
Public Const IOException_Exception                      As Long = 400
Public Const IOException_DirectoryExists                As Long = 401

' FileNotFound
Public Const FileNotFound_Exception                     As Long = 500

' Format
Public Const Format_InvalidBase64Character              As Long = 600
Public Const Format_InvalidNumberOfCharacters           As Long = 601

' ArgumentOutOfRange
Public Const ArgumentOutOfRange_MustBeNonNegNum         As Long = 1000
Public Const ArgumentOutOfRange_SmallCapacity           As Long = 1001
Public Const ArgumentOutOfRange_NeedNonNegNum           As Long = 1002
Public Const ArgumentOutOfRange_ArrayListInsert         As Long = 1003
Public Const ArgumentOutOfRange_Index                   As Long = 1004
Public Const ArgumentOutOfRange_LargerThanCollection    As Long = 1005
Public Const ArgumentOutOfRange_LBound                  As Long = 1006
Public Const ArgumentOutOfRange_Exception               As Long = 1007
Public Const ArgumentOutOfRange_Range                   As Long = 1008
Public Const ArgumentOutOfRange_UBound                  As Long = 1009
Public Const ArgumentOutOfRange_MinMax                  As Long = 1010
Public Const ArgumentOutOfRange_VersionFieldCount       As Long = 1011
Public Const ArgumentOutOfRange_ValidValues             As Long = 1012
Public Const ArgumentOutOfRange_NeedPosNum              As Long = 1013
Public Const ArgumentOutOfRange_OutsideConsoleBoundry   As Long = 1014
Public Const ArgumentOutOfRange_Enum                    As Long = 1015

' Argument
Public Const Argument_InvalidCountOffset                As Long = 2000
Public Const Argument_ArrayPlusOffTooSmall              As Long = 2001
Public Const Argument_Exception                         As Long = 2002
Public Const Argument_ArrayRequired                     As Long = 2003
Public Const Argument_MatchingBounds                    As Long = 2004
Public Const Argument_IndexPlusTypeSize                 As Long = 2005
Public Const Argument_VersionRequired                   As Long = 2006
Public Const Argument_TimeSpanRequired                  As Long = 2007
Public Const Argument_DateRequired                      As Long = 2008
Public Const Argument_InvalidHandle                     As Long = 2009
Public Const Argument_EmptyPath                         As Long = 2010
Public Const Argument_SmallConversionBuffer             As Long = 2011
Public Const Argument_EmptyFileName                     As Long = 2012
Public Const Argument_ReadableStreamRequired            As Long = 2013