Ayuda con melt o timer para archivo que creo.

[Yeshua]

Hola, aun sigo con mi proyecto (un crypter) pero me he vuelto a atrancar, ahora le quiero poner una opción de melt, para que elimine el cifrado en su ejecución o al pasar un tiempo.
Para ello e usado un modulo que vi por aquí y e echo esta yamada en el form

Código (vb) [Seleccionar] Expandir

If Check2.Value = 1 Then
Call meltfile (Stubpath)
    End If

Pero lo que pasa es que con esto lo que hace es melt del programa y no del archivo que crea 

Tambien he probado con

Código (vb) [Seleccionar] Expandir

If Check2.Value = 1 Then
kill stubpath
end if

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000
y meto este codigo:

Código (vb) [Seleccionar] Expandir

If Check2.Value = 1 Then
Kill Stubpath = Timer1
    End If

Pero entonces me lo elimina igual, ni me aparece XD.


Gracias espero su ayuda.

Saludos.

[Dessa]

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000

Hola, interval 1000 es solo un segundo

saludos

[Yeshua]

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000

Hola, interval 1000 es solo un segundo

saludos

Ya ya, pero de todas formas no anda....

[vivachapas]

deberia funcionar con el timer!..

ahi publicaste 2 veces el mismo code.. o utilizaste el mismo con el timer q sin este??

Tambien he probado con

Código
If Check2.Value = 1 Then
kill stubpath
end if

Esto si me funciona pero lo elimina al momento, y lo que me gustaria hace es por ejemplo que me lo eliminara al paso de 10 segundos, por lo que creo un timer con interval de 1000
y meto este codigo:

Código
If Check2.Value = 1 Then
Kill Stubpath = Timer1
    End If

Pero entonces me lo elimina igual, ni me aparece XD.

si es el mismo code..  es obvio q no usas el timer...
entonces postea el code correcto asi vemos el error 

[Yeshua]

En el primero en el que solo aparece

kill stubpath no aplico el timer es solo para ver que anda.

El code correcto es el segundo:

Código (vb) [Seleccionar] Expandir

If Check2.Value = 1 Then
Kill Stubpath = Timer1
    End If

Gracias por la ayuda. Si necesitan mas code o lo que sea diganlo xD

Saludos

[Dessa]

Hola tal vez así ???

If Check2.Value = 1 Then
    Timer1.Enabled = True
    Timer1.Interval = 10000
End If

Private Sub Form_Load()
  Timer1.Enabled =False
End Sub

Private Sub Timer1_Timer()
  Kill Stubpath
End Sub

[Yeshua]

Hola tal vez así ???

If Check2.Value = 1 Then
    Timer1.Enabled = True
    Timer1.Interval = 10000
End If

Private Sub Form_Load()
  Timer1.Enabled =False
End Sub

Private Sub Timer1_Timer()
  Kill Stubpath
End Sub

Hola gracias por tu interes. Verás esto lo intente anoche y lo que ocurre es lo siguiente. Stubpath (el archivo nuevo que se crea) funciona con un Dim stubpath en el cmd de encryptar  "junto a otros Dim".
Por lo que si pongo

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
  Kill Stubpath
End Sub

Cuando cifro y pasan 10 segundos me da un error en Kill Stubpath, Error 13 en tiempo de ejecución.

Si pongo esto:

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
dim stubpath
  Kill Stubpath
End Sub

Me sale un error 53 en tiempo de ejecución.

Se que ya estoy cerca jeje

Gracias, Saludos.

[cobein]

Si estas haciendo un crypter en scan time vas a tener que esperar que termine el proceso.

[Yeshua]

Si estas haciendo un crypter en scan time vas a tener que esperar que termine el proceso.

Si, esa parte la tengo puesta ultima en el boton de encryptar.