none
Impedir que se cambie la fecha y hora del sistema RRS feed

  • Pregunta

  • Hola, estoy desarrollando una aplicación con fecha de vencimiento y es con la fecha y hora del sistema el problema es que si el usuario detecta esto, y cambia la fecha del sistema anularía por completo mi seguridad ya que lo que hago es...

    'Si la fecha actual es mayor a la fecha establecida, que abra el formulario donde colocaría la licencia para poder continuar usando el programa. Ejemplo:

    if DateTime.Now >  txtFecha.text then 

    Activador.show

    End if 

    Entonces... me gustaría saber si hay una forma de evitar que el usuario cambie la fecha y hora del sistema o si existe un método mas profesional para lograr esto. Gracias.


    Renzo Rivera

    martes, 14 de febrero de 2017 2:33

Respuestas

  • Renzo19,

    Intenta obtener la fecha y tiempo desde internet:

    Public Function GetCurrentDate() As DateTime
    
    	Using R As WebResponse = WebRequest.Create("http://www.microsoft.com").GetResponse()
    		Return DateTime.ParseExact(R.Headers("date"), 
    					"ddd, dd MMM yyyy HH:mm:ss 'GMT'",
    					CultureInfo.InvariantCulture.DateTimeFormat,
    					DateTimeStyles.AssumeUniversal)
    	End Using
    
    End Function

    if GetCurrentDate() >  Convert.ToDateTime(txtFecha.text) Then 
              Activador.show
    End If



    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Renzo19 martes, 14 de febrero de 2017 4:14
    martes, 14 de febrero de 2017 3:29
  • Renzo19,

    ¿Sabes usar la ayuda de 'Acciones rápidas'?

    Debes indicar el espacio de nombres: Imports System.Net


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Renzo19 martes, 14 de febrero de 2017 4:14
    martes, 14 de febrero de 2017 3:50

Todas las respuestas

  • Renzo19,

    Intenta obtener la fecha y tiempo desde internet:

    Public Function GetCurrentDate() As DateTime
    
    	Using R As WebResponse = WebRequest.Create("http://www.microsoft.com").GetResponse()
    		Return DateTime.ParseExact(R.Headers("date"), 
    					"ddd, dd MMM yyyy HH:mm:ss 'GMT'",
    					CultureInfo.InvariantCulture.DateTimeFormat,
    					DateTimeStyles.AssumeUniversal)
    	End Using
    
    End Function

    if GetCurrentDate() >  Convert.ToDateTime(txtFecha.text) Then 
              Activador.show
    End If



    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Renzo19 martes, 14 de febrero de 2017 4:14
    martes, 14 de febrero de 2017 3:29
  • Hola, Buena idea, pero me marca error donde dice WebResponse

    Renzo Rivera

    martes, 14 de febrero de 2017 3:44
  • Renzo19,

    ¿Sabes usar la ayuda de 'Acciones rápidas'?

    Debes indicar el espacio de nombres: Imports System.Net


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Renzo19 martes, 14 de febrero de 2017 4:14
    martes, 14 de febrero de 2017 3:50
  • Ok gracias brb, es solo que no lo había tomado en cuenta.

    Renzo Rivera

    martes, 14 de febrero de 2017 4:13