TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

'Programa descargado de la direccion:'http://www.rfidtoys.net/forum/forum_posts.asp?TID=4&PN=1'Modificado y Adaptado por Luis Mario Mercado.‘Modificado para el funcionamiento con el sistema lector RFIDOption Explicit'public vars which are updated via update formPublic strUpdateTagID As StringPublic strUpdateUsername As StringPublic strUpdatePassword As StringPublic strUpdateDomain As String'/////////////////////////////////////////////' //' Registry API //' //' ////////////////////////////////////////////Private Type SECURITY_ATTRIBUTESnLength As LonglpSecurityDescriptor As LongbInheritHandle As LongEnd Type' Reg Data TypesPrivate Const REG_SZ = 1 ' Unicode null terminated string' Reg OptionsPrivate Const REG_OPTION_RESERVED = 0Private Const REG_OPTION_NON_VOLATILE = 0' Reg Key SecurityPrivate Const KEY_ALL_ACCESS = &H3F' Reg Key ConstantsPrivate Const HKEY_CLASSES_ROOT = &H80000000Private Const HKEY_CURRENT_USER = &H80000001Private Const HKEY_LOCAL_MACHINE = &H80000002Private Const HKEY_USERS = &H80000003Private Const HKEY_PERFORMANCE_DATA = &H80000004Private Const HKEY_CURRENT_CONFIG = &H80000005Private Const HKEY_DYN_DATA = &H80000006' Reg API function callsPrivate Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long,ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByValsamDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long)As LongPrivate Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVallpSubKey As String) As LongPrivate Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByValdwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As LongPrivate Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVallpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As LongPrivate Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey AsLong, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbDataAs Long) As LongPrivate Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey AsLong, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String,lpcbData As Long) As LongPrivate Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long,ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByValcbData As Long) As LongPrivate Sub CheckRegistryKey()Dim hKey As Long 'registry key handle valueDim lRetVal As Long 'return value for API call result codes'try to open registry keylRetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\rfidPoll\" & Chr(0), 0, KEY_ALL_ACCESS, hKey)'check for errorsIf lRetVal 0 Then'error opening key- 165 -