elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21
131  Programación / Programación Visual Basic / Re: [Source] Programa Trial Version en: 7 Mayo 2007, 21:45
perdon, ya lo subi bien....

http://www.sorucreations.gratishost.com/des_trialer.htm
132  Programación / Programación Visual Basic / Re: [Source] Programa Trial Version en: 29 Abril 2007, 18:11
Otro fallo que le veo es que si creamos el archivo licencia.txt  sin tener que meter nada dentro lo da como bueno.

ya, eso lo tengo que arreglar

edit: ya lo arregle

en el formulario splash cambia el form load por este

Citar
Private Sub Form_Load()
On Error Resume Next

If Dir("./licencia.txt") <> "" Then
Dim n_File As Integer
Dim Contenido As String
    n_File = FreeFile
    Open "./licencia.txt" For Input As n_File
    Contenido = Input$(LOF(n_File), #n_File)
    Close n_File
    Text4 = Contenido
    End If
If Text4.Text = "VGV4dDE" Then Me.Hide
If Text4.Text = "VGV4dDE" Then programaTrial.Show

End Sub
133  Programación / Programación Visual Basic / Re: [Source] Programa Trial Version en: 29 Abril 2007, 10:38
el serial no se ve porque esta en el codigo fuente del programa
134  Programación / Programación Visual Basic / Re: [Source] Programa Trial Version en: 29 Abril 2007, 09:38
ya hombre, pero yo lo que haria si lo usara es cambiar la ruta de los archivos del cronometro y el que te hace cuando metes el serial a por ejemplo C:/Windows/system/miprograma

y asi es muy dificil que te lo encuentren
135  Programación / Programación Visual Basic / [Source] Programa Trial Version en: 28 Abril 2007, 22:57
hola, ya acabe el codigo para poder poner a tus programas un tiempo de prueba y luego activarlo con el serial, dejo aqui el enlace, espero comentarios

http://sorucreations.gratishost.com/
136  Programación / Programación Visual Basic / Re: Aplicacion Expira en 30 dias en: 28 Abril 2007, 15:34
es lo que he hecho, bueno ya he acabado el programa y funciona perfectamente, el serial se modifica desde el codigo fuente y se puede poner varios, aqui os dejo el source

http://sorucreations.gratishost.com/

http://sorucreations.gratishost.com/

http://sorucreations.gratishost.com/

http://sorucreations.gratishost.com/
137  Programación / Programación Visual Basic / Re: Aplicacion Expira en 30 dias en: 28 Abril 2007, 11:05
ya lo arregle, puse el textbox en multiline y ya sta:

ya e acabado el cronometro, guarda bien el tiempo, luego lo carga y lo reanuda por donde iva, ahora lo tengo que acoplar a la aplicacion
138  Programación / Programación Visual Basic / Re: Aplicacion Expira en 30 dias en: 28 Abril 2007, 01:14
tengo un pekeńo problema con el code, cuando ago que carge el tiempo guardado del archivo de texto a un text box me carga el numero y luego 2 rallas y por esas 2 rallas no me carga bien el numero , aver si alguien me puede decir porque sale, dejo aqui todo el codigo k tengo echo y la imagen



Citar
Private Sub savetext1()
 Dim canalLibre As Integer
canalLibre = FreeFile
Open "./tiempo.txt" For Output As #canalLibre
Print #canalLibre, Text1
Close #canalLibre
End Sub

Private Sub savetext2()
 Dim canalLibre As Integer
canalLibre = FreeFile
Open "./tiempo2.txt" For Output As #canalLibre
Print #canalLibre, Text2
Close #canalLibre
End Sub

Private Sub savetext3()
 Dim canalLibre As Integer
canalLibre = FreeFile
Open "./tiempo3.txt" For Output As #canalLibre
Print #canalLibre, Text3
Close #canalLibre
End Sub

Private Sub Form_Load()
Label1.Caption = Text4.Text
Label2.Caption = Text5.Text
Label3.Caption = Text6.Text
cargartxt1
cargartxt2
cargartxt3
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub cargartxt1()
On Error Resume Next
Dim n_File As Integer
Dim Contenido As String
    n_File = FreeFile
    Open "./tiempo.txt" For Input As n_File
    Contenido = Input$(LOF(n_File), #n_File)
    Close n_File
    Text4 = Contenido
End Sub

Private Sub cargartxt2()
On Error Resume Next
Dim n_File As Integer
Dim Contenido As String
    n_File = FreeFile
    Open "./tiempo2.txt" For Input As n_File
    Contenido = Input$(LOF(n_File), #n_File)
    Close n_File
    Text5 = Contenido
End Sub

Private Sub cargartxt3()
On Error Resume Next
Dim n_File As Integer
Dim Contenido As String
    n_File = FreeFile
    Open "./tiempo3.txt" For Input As n_File
    Contenido = Input$(LOF(n_File), #n_File)
    Close n_File
    Text6 = Contenido
End Sub

Private Sub Timer1_Timer()
Label6.Caption = "0"
Label3.Caption = Val(Label3.Caption) + 1
If Val(Label3.Caption) < 10 Then
    Label3.Caption = "0" & Label3.Caption
End If
    If Val(Label3.Caption) > 59 Then
        Label3.Caption = "00"
        Label2.Caption = Val(Label2.Caption) + 1
            If Val(Label2.Caption) < 10 Then
                Label2.Caption = "0" & Label2.Caption
            End If
        If Val(Label2.Caption) > 59 Then
            Label2.Caption = "00"
            Label1.Caption = Val(Label1.Caption) + 1
           
            If Val(Label1.Caption) < 10 Then
                Label1.Caption = "0" & Label1.Caption
            End If
        End If
    End If
End Sub

Private Sub Timer2_Timer()
Label6.Caption = Val(Label6.Caption) + 1
End Sub

Private Sub Timer3_Timer()
savetext1
savetext2
savetext3
End Sub

Private Sub Timer4_Timer()
Text1.Text = Label1.Caption
Text2.Text = Label2.Caption
Text3.Text = Label3.Caption
End Sub

139  Programación / Programación Visual Basic / Re: Aplicacion Expira en 30 dias en: 27 Abril 2007, 17:57
estoy creando lo de k expire  pero con un cronometro de tiempo, es decir que por ejemplo a las 200 horas de uso pida serial, lo k e echo es meter un cronometro mientras se ejecuta el trial y cuando cierras el programa guarda el tiempo que lleva en diferentes archivos de texto. Ahora tengo que hacer que continue por donde iva... cuando lo acabe pondre el code
140  Programación / Programación Visual Basic / Re: Aplicacion Expira en 30 dias en: 26 Abril 2007, 21:16
y no se podria hacer que alcabo de X horas en ejecucion el programa este expirara???
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 [14] 15 16 17 18 19 20 21
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines