 Autor
|
Tema: Como Crear un archivo demo (Leído 4,143 veces)
|
YEVIT
 Desconectado
Mensajes: 15
NUNCA TE DES VENCIDO AUN VENCIDO
|
hola a todos alguien me podria ayudar... tengo un pequeño programa hecho en vb 6.0 quiero hacer una parte como demostracion para poder enseñarles algunos compañeros. Alguien de este foro me podria dar ideas de como crear una version de demo, trial, que vensa en un determinado lapso de tiempo(1 semana, mes, etc). acepto cualquier sugerencia gracias 
|
|
|
|
« Última modificación: 5 Junio 2007, 23:12 pm por YEVIT »
|
En línea
|
|
|
|
3k1n0x
Desconectado
Mensajes: 324
|
pero como demo? trial? q se venza a la semana? o q sea el programa pero menos funcional, si es asi ps le quitas funciones y ya?  o q pida una contraseña de registro o serial 
|
|
|
|
|
En línea
|
T3fL0n -> 3k1n0x
|
|
|
|
|
3k1n0x
Desconectado
Mensajes: 324
|
Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
2text box un boton y otro form pero se debugea creo hasta con el bloc de notas
|
|
|
|
|
En línea
|
T3fL0n -> 3k1n0x
|
|
|
satan69
Desconectado
Mensajes: 341
|
Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
2text box un boton y otro form pero se debugea creo hasta con el bloc de notas idiay y si hay varios user y pass... aja
|
|
|
|
|
En línea
|
|
|
|
3k1n0x
Desconectado
Mensajes: 324
|
idiay y si hay varios user y pass... aja
che no se k kieres decir con idia  si te falto una t alli me lo dices o era otra palabra¿ :S para ponerle mas pass a lo mejor hay otras formas pero asi se puede If Text1 = "user" And Text2 = "contra" Or Text1 = "user2" And Text2 = "contra2" Then
|
|
|
|
|
En línea
|
T3fL0n -> 3k1n0x
|
|
|
|
~~
|
Pero eso es muy inseguro, debugeando se saka el pass en medio minuto... Seria mejor q se hiciera una peticion a una web, se crearan llaves en el registro o algo de ese estilo  |
|
|
|
|
En línea
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.
|
|
|
|
|
En línea
|
|
|
|
Zeroql
Desconectado
Mensajes: 957
Todo lo k sucede sucede por una razon
|
mira sivas ha hacer un demo.... kita funciones importantes del programa. que lo puedan manejar pero no guardar, exportar o cosas asi
si vas ha hacer una version trial que dura varios dias has un contador y guarda la configurarion en el regedit.
si vas ha hacer una version shareware. en el foro no hace mucho habia alguien que pidio esto... busca etan en este subforo de visual basic
|
|
|
|
|
En línea
|
Dime y lo olvido, enseñame y lo recuerdo, involucrame y lo aprendo. /.-ZEROQL.-\ ----- #937675# |
|
|
satan69
Desconectado
Mensajes: 341
|
Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.
mas o menos lo hice asi.. con un contador... subi un tiempo determinado.. y eso lo cargue en un label y hago la comparacion con el tiempo del sistema.. esa puede ser una opcion.. pero si cambian el tiempo de sistema.. cuando haga la comparacion tendran mas tiempo ..jejee
|
|
|
|
|
En línea
|
|
|
|
|
 |
