Programación General > Power Builder

 Como generar una version Trial

(1/1)

marpresi:
Holas!!!

Queria preguntar, alguien tiene idea de como hacer un trial de una a plicacion en powerbuilder?

tengo aqui un ejemplo que despues lo voy a subir, pero no es muy convincente..

muchas gracias!
Tincho.-

marpresi:
Aqui les paso un post que encontre en otra pagina "Todoexpertos.com"
Saludos!!


--- Código: Text ---kukya, experto respondiendo en Power BuilderExperto    Las versiones de pruebas realmente lo que hacen es comprobar algún tipo de dato ( como la fecha del sistema, el número de serie, etc..) y al hacer el open de la aplicación comprobar ese valor.Puedes hacer algo sencillo como comprobar la fecha del sistema y dejar solo 30 dias.en el evento open del objeto aplicación pon lo siguiente: Boolean lb_retorno // Comprobamos si está en periodo de pruebalb_Retorno = of_trial()// abrimos la aplicaciónif lb_retorno thenopen(w_ventana_inicial)elsehalt closeend if ahora nos generamos una función en el objeto aplicación que retorna un boolean y se llama of_trial() boolean lb_RetornoDate ldt_hoy, ldt_fecha_instinteger li_registrostring ls_serie, ls_fecha, ls_fecha_a_probar ldt_hoy = Today()ls_fecha = String(ldt_hoy,'yyyymmdd') li_registro = RegistryGet ( 'HKEY_LOCAL_MACHINESoftwaremiaplicacion', 'numserie', RegString!, ls_serie)if li_registro = -1 then// No hemos guardado el número de seriels_serie = '98667' + ls_fecha + '6673KJU'// Nota: lo de 98667 y 6673KJU son para despistar, porque realmente lo que vamos a evaluar es la fechaRegistrySet ( 'HKEY_LOCAL_MACHINESoftwaremiaplicacion', 'numserie', RegString!, ls_serie)lb_retorno = trueelse// Cogemos la fecha que habiamos ocultado en el número de seriels_fecha_a_probar = Mid(ls_serie,6,8)ldt_fecha_inst = date(Integer(Mid(ls_fecha_a_probar,1,4),Integer(Mid(ls_fecha_a_probar,5,2),Integer(Mid(ls_fecha_a_probar,7,2))if DaysAfter(ldt_fecha_inst, ldt_fecha_hoy) > 30 thenMessageBox("Aviso","Ha pasado el periodo de evaluación de 30 dias.")lb_retorno = falseend ifend if Return lb_retorno Es simple pero mas o menos efectivo, si cambiamos la fecha del sistema nos saltamos lo de la evaluación, pero para empezar no está mal.  

Navegación

[0] Índice de Mensajes