Indetectables

Uso:

Public Sub SleepFor(ByVal Seconds As Double) 
  ' "Sleep" for the specified number of seconds. 
  Dim EndTime As Date 
  EndTime = DateAdd("s", Seconds, Now) 
  Do 
    DoEvents 
  Loop Until Now >= EndTime 
End Sub

Uso:

Código: Seleccionar todo

SleepFor 15 ' Pause for 15 seconds.

Mi ejemplo:

[Enlace externo eliminado para invitados]

Fuente:

Mostrar/Ocultar

Gracias, siempre sirve estas cosas :p en 2 ocaciones los use, principalmente para mostrar una imagen antes de seguir con el crypter :)

Indetectables

Delay

Delay

Re: Delay