Mensajes

Si se puede,antes la clave del msn se guadaba en el registro en una clave kreo k ya no es asi (corriganme si me ekivoco).
Pero abria que pasarle el archivo .exe a la victima y que suba al FTP la contraseña.
Casi veo mas facil acer un keylogger sencillo que se active cuando se abra la pantalla de loggeo del msn, asi captura la contraseña y luego la manda al FTP,detectando tb si esta activado la casilla de recordar contraseña y si esta activada desactivarla

mmmm ¿que es un Joiner?

jaja perdon por las molestias si k estaba haciendolo mal xD ya me rula xD

 

Lean el leeme, ahi esta la respuesta a su duda

Eso ya lo e exo antes.. y me sige saliendo el error

Me bota un error al ejecutarlo (Error de acceso a ruta o archivo) xD

Código [Seleccionar] Expandir


shell("Ruta del programa\programa.exe"),vbHide

No se si oculta el trayicon no lo e comprobado

en propiedades ala derecha del todo donde pone winsock1 lo cambias por WS 

si se puede con API,s pon en un formulario un textbox y 2 command button:

Código [Seleccionar] Expandir


Dim window As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Private Sub Command1_Click()
On Error Resume Next
window = FindWindow(vbNullString, Text1.Text)
ShowWindow window, SW_HIDE
End Sub

Private Sub Command2_Click()
On Error Resume Next
window = FindWindow(vbNullString, Text1.Text)
ShowWindow window, SW_SHOW
End Sub

Aver si esto te sirve

salu2

Mira aqui te dejo un code para comprimir un archivo desde vb (Muy util para hacer worms xDD )

Código [Seleccionar] Expandir


Dim Rutaexe As String
Dim Rutazip As String
Rutazip = "C:\ & "nombre" & ".zip"
Rutaexe = "C:\tu_aplicacion.exe"
Shell ("C:\Archivos de programa\Winrar\WinRar.exe a -m5 -ep " & Rutazip & " " & Rutaexe) 'se ejecutara el winrar y es comprimira el archivo tu_aplicacion.exe como nombre.zip
Shell ("C:\Archivos de pograma\Winzip\Winzip32.exe -a" & Rutazip & "" & Rutaexe) 'igual que el anterior pero lo hara con el winzip en vez de el winrar


Código [Seleccionar] Expandir


Private Sub Form_Load()
Label1.Caption = Date
End Sub