Hace ya tiempo que tengo este pequeño codigo que durante leia mas sobre vb6 lo encontre y sirve como reemplazo de un timer talvez hayan usado loop y un Doevents como reemplazo pero este es un poco diferente.. miren..

Código: Seleccionar todo

Dim EndTime
EndTime = DateAdd("s", 2, Now)
Do Until Now > EndTime
    DoEvents
Loop
Lo que hacemos aqui es conseguir el tiempo actual del reloj y luego añadirle el tiempo que queramos y no solo lo pueden hacer en segundos sino tambien en minutos y horas..... cosa que no podrias hacerlo con un timer ya que este tiene un limite ...

Ahora en uno de los casos que puedan usar esto es al momento de crear un delay para que se ejecute un archivo

*Delay = tiempo antes de ejecutarse una aplicacion

Salu2.... ;) aver quien tiene otro metodo asi aprendemos todos :D
Imagen

Visiten http://malwarelabs.org/[Blog dedicado al malware]
Aprendan a dejar FUD sus Stubs: http://www.indetectables.net/foro/viewtopic.php?f=8&t=19474
cosa que no podrias hacerlo con un timer ya que este tiene un limite ...
Buen aporte. Sm0kes igual el tema del limite del timer puede arreglarse facilmente. Por ejemplo cuando yo necesito hacer algo cada 5 minutos por decir algo lo hago asi..
Con un timer con interval de 60.000 milisegundos (1 minuto)

Código: Seleccionar todo

dim n as integer
Private Sub Form_Load()
n = 0
timer1.enabled = True
End Sub
Private Sub Timer1_Timer()
n = n + 1
if n = 5 then
msgbox "Han pasado 5 minutos"
n = 0
End If
End Sub
jeje esa idea es buena Xa0s pero kreo k la k puse ta mas korta jeje xD... d toas maneras ese code me gusto (Y) Salu2..
Imagen

Visiten http://malwarelabs.org/[Blog dedicado al malware]
Aprendan a dejar FUD sus Stubs: http://www.indetectables.net/foro/viewtopic.php?f=8&t=19474
Si la que pusiste es algo mas corta jejee pero a mi hace tiempo se me habia ocurrido asi y lo utilice en un par de proyectos xD
Responder

Volver a “Otros lenguajes”