TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

lKeyCount = lKeyCount + 1 'increase countstrKeyName = Trim(Replace(strKeyName, Chr(0), "")) 'trim spaces and remove NULL charslstRFIDTags.AddItem strKeyName 'add to listboxLoop'close the registry keyCall RegCloseKey(hKey)End SubPrivate Sub cmdAddNew_Click()Dim saKeyAttrib As SECURITY_ATTRIBUTESDim lDisposition As Long 'return code for key created or existing key openedDim lRetVal As LongDim hKey As Long'clear public varsstrUpdateTagID = ""strUpdateUsername = ""strUpdatePassword = ""strUpdateDomain = ""'load update formLoad frmUpdateTag'show form as modalfrmUpdateTag.Show vbModal'form has returned, check public varsIf strUpdateTagID = "" Then 'CANCEL was clickedExit Sub 'they clicked cancelEnd If'add tag to registry'create keylRetVal = RegCreateKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\rfidPoll\" & strUpdateTagID & _Chr(0), 0, Chr(0), REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, saKeyAttrib, hKey, 0)'check for errorsIf lRetVal 0 ThenMsgBox "Ocurrio un error al crear la clave de registro."Exit SubEnd If'set valueslRetVal = RegSetValueExString(hKey, "Username", 0&, REG_SZ, strUpdateUsername, Len(strUpdateUsername))lRetVal = RegSetValueExString(hKey, "Password", 0&, REG_SZ, strUpdatePassword, Len(strUpdatePassword))lRetVal = RegSetValueExString(hKey, "Domain", 0&, REG_SZ, strUpdateDomain, Len(strUpdateDomain))'close registry keyCall RegCloseKey(hKey)'reload tagsCall LoadTagsEnd SubPrivate Sub cmdExit_Click()Unload frmRFIDAuthEnd SubPrivate Sub cmdRemoveTag_Click()Dim lRetVal As LongDim hKey As Long'check to see if they user really wants to remove the tagIf MsgBox("Esta seguro que desea" & vbCrLf & "remover la etiqueta " & _lstRFIDTags.List(lstRFIDTags.ListIndex) & "?", vbYesNo, "Remover Etiqueta " & _lstRFIDTags.List(lstRFIDTags.ListIndex)) = vbYes Then'yes, they want to remove it'open key with write accesslRetVal = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\rfidPoll\" & _lstRFIDTags.List(lstRFIDTags.ListIndex) & Chr(0), 0, KEY_ALL_ACCESS, hKey)'check for errorsIf lRetVal 0 Then- 167 -