Aqui te muestro un "motor" básico para que tu "bomba lógica" detone en una fecha determinada.
Se puede mejorar muchisimo, añadiendole detonar por fecha+hora+segundos, si se cumplen determinadas condiciones, por numero de ejecuciones,por extension del archivo, por nombre del archivo/s, por tamaño,etc . El resto lo dejo de tu cuenta para que investigues 1 poco.
Esto es sólo el esqueleto para que te hagas 1 idea:
Public Function detonar(boom As Date)
fecha = Date
If fecha = boom Then
MsgBox "Bomba logica activada" ''' aqui pueden ir las instrucciones que quieras.
Else
MsgBox "No es dia de activacion" '' aqui tambien
End If
End Function
Para que funcione, llama a la funcion detonar asi:
detonar("16/3/2006") '' fecha de ejemplo.
Krnl64 & Demon Industries
Autor
En línea
