TRABAJO DE GRADUACIÓN - DSpace Universidad Don Bosco

'get size and type of registry valuelRetVal = RegQueryValueExNULL(hKey, "Username", 0&, lValueType, 0&, lValueLength)'check for errorsIf lRetVal 0 ThenMsgBox "Ocurrio un error al leer los valores de registro."Exit SubEnd IfstrUsername = String(lValueLength, 0) 'prep variable space for API return with nullslRetVal = RegQueryValueExString(hKey, "Username", 0, REG_SZ, strUsername, 255) 'get valuestrUsername = Replace(Left$(strUsername, lValueLength), Chr(0), "") 'clean return value'get size and type of registry valuelRetVal = RegQueryValueExNULL(hKey, "Password", 0&, lValueType, 0&, lValueLength)'check for errorsIf lRetVal 0 ThenMsgBox "Ocurrio un error al leer los valores de registro."Exit SubEnd IfstrPassword = String(lValueLength, 0) 'prep variable space for API return with nullslRetVal = RegQueryValueExString(hKey, "Password", 0, REG_SZ, strPassword, 255) 'get valuestrPassword = Replace(Left$(strPassword, lValueLength), Chr(0), "") 'clean return value'get size and type of registry valuelRetVal = RegQueryValueExNULL(hKey, "Domain", 0&, lValueType, 0&, lValueLength)'check for errorsIf lRetVal 0 ThenMsgBox "Ocurrio un error al leer los valores de registro."Exit SubEnd IfstrDomain = String(lValueLength, 0) 'prep variable space for API return with nullslRetVal = RegQueryValueExString(hKey, "Domain", 0, REG_SZ, strDomain, 255) 'get valuestrDomain = Replace(Left$(strDomain, lValueLength), Chr(0), "") 'clean return value'clear public varsstrUpdateTagID = ""strUpdateUsername = ""strUpdatePassword = ""strUpdateDomain = ""'load update formLoad frmUpdateTag'copy values to formfrmUpdateTag.txtTagID.Text = lstRFIDTags.List(lstRFIDTags.ListIndex)frmUpdateTag.txtTagID.Enabled = FalsefrmUpdateTag.txtUsername.Text = strUsernamefrmUpdateTag.txtPassword.Text = strPasswordfrmUpdateTag.txtDomain.Text = strDomain'show form as modalfrmUpdateTag.Show vbModal'form has returned, check public varsIf strUpdateTagID "" Then 'OK was clicked'update tag in registrylRetVal = 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))End If'close registry keyCall RegCloseKey(hKey)End Sub- 169 -