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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 [4]
31  Programación / Programación Visual Basic / Re: PROTEGER APLICACION en: 27 Junio 2005, 20:09 pm
Hola de nuevo! bueno quisiera aclarar que lo mio es mas la imaginacion, y no la puesta en practica de la misma (tristemente) ;D No creo que de la solucion definitiba para el problema, simplemente porque no soy un programador avanzado pero espero ayudar a acercarte a la solucion. Se me ocurren las siguientes ideas:

1-Podrias implementar un relog en tu aplicacion, para que empezara a contar desde su ejecucion, y con la aportacion de reydelmundo11, se añada al registro. E visto el siguiente codigo que puede valer. Autor:  J.I. Moratiel

Modulo:
Código:
Option Explicit
Dim segun As Byte
Dim minu As Byte
Dim hor As Byte
Dim resumen As String
Dim pitido As Variant
Dim Pitido1 As Variant

Form:
Código:
Private Sub Reloj_Timer()
    Etiqueta.Caption = Format(Now, "hh:mm:s")
   
   'sonido
    pitido = Minute(Now)
    Pitido1 = Second(Now)
    If pitido = 0 And Pitido1 = 0 Then
        Beep
    End If
    
    
    'Reloj desde arranque
    segun = segun + 1
    If segun = 60 Then
        minu = minu + 1
        segun = 0
    End If
    If minu = 60 Then
        hor = hor + 1
        minu = 0
    End If
    resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
    Etiqueta1.Caption = resumen
End Sub
Pero, eso, enlazarlo con la aplicacion, pues no lo se. La idea del reydelmundo11 me parece genial al respecto

Por otro lado, podrias incrustar una cuenta atras. Despues de 15 dias, para que mostrara un MsgBox, o lo que quieras. El siguiente codigo es un programa que cuenta hacia atras segundo por segundo. Seria cuestion de coger la calculadora  ;) Autor; el mismo de antes J.I. Moratiel
Modulo:
Código:
Option Explicit

Form:
Código:
Private Sub Form_Load()
    Text1.Text = 500
End Sub

Private Sub Timer1_Timer()
    Text1.Text = Text1.Text - 1
End Sub

Bueno, haber si con la ayuda de todos, encuentras la solucion ;)
Un saludo

PD: Da gusto ayudar a alguien tan agradecido :D
32  Programación / Programación Visual Basic / Re: copiar archivo a carpeta con nombre con espacios en: 27 Junio 2005, 18:33 pm
Hola, si pones esto en programacion VB, es porque lo necesitas en alguna aplicacion VB, asique seria mejor otro codigo, pero para hacerlo desde shell, si lo que quieres es copiar un archivo, añade una ">"

.....1 c:\Archivos de programa\>2.exe por ejemplo... pero sigo pensando que FileCopy seria mejor

saludos

PD:Mejor asi que con tu anterior post
33  Programación / Programación Visual Basic / Re: PROTEGER APLICACION en: 27 Junio 2005, 15:38 pm
Hola, Deep_Purple, quizas no es lo que estes buscando, pero tenia hace tiempo un codigo para proteger una aplicacion de 15 dias, segun un .txt, su autor es Eduardo Garcia Valsi - Analista de Sistemas


Primero, en un modulo, las siguientes declaraciones:
Código:
Dim Ban As Integer    'para la bandera
Public valoracion As String    'para el PWD que tu le des al
usuario

y en el form, "KeyPress" el siguiente codigo:
Código:
Private Sub laclavetext_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        FechaForm.valoracion = laclavetext.Text
        Unload Me
    End If

No soy un experto del lenguaje basic, pero podrias añadir un form con el codigo que describo, con la propiedad "Visible = False" y tambien podrias añadirle App.Taskvisible = False para ocultarlo un poco del Ctrl+Alt+Supr

Bueno, espero que te sirva o que se te ocurra otra idea ;D

un saludo

PD: se me olvidaba, para regular eso del tiempo, podrias añadir otra miniaplicacion para que desde que se ejecuta, mantenga el tiempo independientemente del tiempo del sistema. Asi, la aplicacion de 15 dias tendria que recurrir a la miniaplicacion y no a la fecha del sistema. haber si encuentro algo y te lo pongo ;)  Para pillar la fecha, propiad Visible = False
Código:
Label1.Caption = Date
Páginas: 1 2 3 [4]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines