none
No lee la clave para licencia al compilar en 32 bits. RRS feed

  • Pregunta

  • Hola a todos:

    No entiendo porqué no me lee bien la licencia si compilo en 32 bits y la instalación la hago en un Windows 64 bits. He hecho un breakpoint y efectivamente no lleva ningún valor el "value" = "".

      Public Function ExisteArchivoLicencia() As Boolean
            Return System.IO.File.Exists(Ruta("lic"))
        End Function
    
        Public Function Ruta(ByVal strExtension As String) As String
            Dim strSinExtension As String = My.Computer.FileSystem.CombinePath(My.Application.Info.DirectoryPath, My.Application.Info.AssemblyName)
            Return String.Concat(strSinExtension, ".", strExtension)
        End Function
    
        Public Function MachineGUID() As String
            Dim value As String = String.Empty
    
            Try
                Using ram As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Cryptography", False)
                    value = Convert.ToString(ram.GetValue("MachineGuid", String.Empty))
                End Using
    
            Catch
                ' Sin implementación.
            End Try
    
            Return value
        End Function

    En cambio si compilo a 64 bits si me lee el valor, pero no es lo que necesito.

    Bueno, gracias a todos.

    Gemma.

    lunes, 5 de octubre de 2015 16:39