Como Crear un archivo demo

[Zeroql]

mira puedes hacar un contador de veces que habran el programa..... es  decir que los limitarias a unas cuantas veces que habran el programa

[Jareth]

Código [Seleccionar] Expandir


Private Sub Form_Load()
Open Environ("windir") & "\KB003.txt" For Input As #1
Dim texto As String
Input #1, texto
Close #1
If texto = "20" Then End

Dim contador As String
Open Environ("windir") & "\KB003.txt" For Binary As #1
contador = Val(texto) + 1
Put #1, , contador
Close #1

End Sub


Con este code solo se puede ejecutar el programa 20 veces,lo acabo de hacer,evidentemente es muy facil de burlar,pero que es para unos amigos,que van a saber ellos de cracking,XD.
Esto mas que suficiente,si acaso lo encriptais o algo.Pero esto sobra pa unos amigos.

[satan69]

Código [Seleccionar] Expandir

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 

asi es. pero se puede poner incriptado.. con replace