Mensajes

Si nos pegas la linea donde te da el error o algo...

Si, lo unico es q el msn no te deja embiar un exe, asi q mejor q lo mandes comprimido. Lo puedes comprimir con el zip usando comandos por consola (para hacerlo de forma oculta  )

Pues lo puedes hacer muy facilmente con senkeys... me explico, con senkeys mandas un texto del tipo mira q fotos, uego copias el rar en el postapapeles (busca ifo en google de como meter un archivo al portapapeles) y luego envias con senkeys de nuevo "^V" q es pegar, y se enviará el archivo, por lo menos con las versiones anteriores del msn funcionaba
Si te da problemas con las versiones nuevas, busca info sobre la api del msn 

Yo veo un fallo aki:

Código (vb) [Seleccionar] Expandir


Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    yo = Space(LOF(1))
Close #1


Asi solamente defines el tamaño q tendra yo, pero no lo extraes.. tienes q poner un get
El code completo seria asi:

Código (vb) [Seleccionar] Expandir

dim yo as string
dim cadenaparapegar as string
dim primera as string
dim partes as variant ' las variables las he declarado asi antes

primera = "jahagafadasa" 'cadena con la que estan los dos programas separados, comprobado

cadenaparapegar = cadenaparapegar & Text2.Text

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    yo = Space(LOF(1))
    get #1,,yo
Close #1

partes = Split(yo, primera)

Open App.Path & "\" & Text1.Text & ".exe" For Binary As #1
    Put #1, , partes(1) & cadenaparapegar
Close #1

Prueva asi y si te da algun otro error pregunta 
Posiblemente esto tb te falle:

Código (vb) [Seleccionar] Expandir

Open App.Path & "\" & Text1.Text & ".exe" For Binary As #1
    Put #1, , partes(1) & cadenaparapegar
Close #1

A mi (no se por q) si uso put así me añade un par de bytes al principio del archivo, y lo deja inutil... si te pasa lo mismo haz esto:

Código (vb) [Seleccionar] Expandir

Open App.Path & "\" & Text1.Text & ".exe" For Binary As #1
    dim poner as string
    poner = partes(1) & cadenaparapegar
    Put #1, , poner
Close #1

1S4ludo

O lo dejas invisible con showWindow...

por lo que veo vos no entendes el funcionamiento del code.. ya que no aportaste nada con ese post solamente un post mas a tu numero..triste

Q se lo digas a otro user, pase, pero a Mek xDD creo q sabe bastante mas q tu y q yo 

con este codigo si me aprece dicha ventana ya que es un msgbox de una aplicacion aparte

Y si pones el nombre exacto del msgbox no te sale? entonces vas a tener q hacer un listado de ventanas hijas de la aplicacion deseada...

Por cierto no creo que sea el primero al que se le ocurra eso de copiarse delante de algun programa importante, ¿me equivoco?

Siento decirte q no  Los virus mas simples funcionan asi

http://foro.elhacker.net/index.php/topic,129870.0.html#top

no sabes tu hacer una comparacion? esque pegais un codigo que ni entendeis y venis a preguntar como adaptarlo a "vuestro programa".

Q gran verdad.....



Para listar las ventanas usa mejor este ejemplo q es mas simple

http://www.recursosvisualbasic.com.ar/htm/listado-api/api-39.htm

Pero si conoces el titulo exacto de la ventana no te complikes y usa findwindow:

Código (vb) [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
MsgBox FindWindow(vbNullString, "Sin título - Bloc de notas")
End Sub


Como ya te dije en mi anterior mensaje:

Pues usa FindWindow q te devuelve el handle de una ventana con su nombre..

Aunke seria mejor q aprendieras a usar apis..

Quiero hacer lo que dice HATE, pero no me explico muy bien la verdad 

E0N tu programa no lo entiendo muy bien como haces para pasarle los datos a otro exe...

A ver, lo explico un poco... Lo q tienes q hacer es lo siguiente:

Necesitas dos programas, uno q seria en el q tu tienes q meter los datos necesarios (el cliente del troyano o lo q tu kieras) y otro q es el q tiene q meter esos datos.

Te lo explicare para hacer q el cliente y el server esten en el mismo ejecutable, q creo q es lo q kieres hacer no??

Lo primero es crear un programa independiente al troyano q leerá el server y añadirá sus datos al final del cliente (el q en mi ejemplo seria el juntador). El programa kerdaria asi:

Código (vb) [Seleccionar] Expandir


' Ruta Cliente -> C:\Cliente.exe
' Ruta Server -> C:\Server.exe

dim firma as string
firma = "-_E0N_-"

Open "C:\Server.exe" For Binary As #1
Dim Server as string
server = Space(LOF(1))
Get #1, , server
Close #1

open "C:\cliente.exe" for binary as #1
seek(1), lof(1)+1
put #1, , firma & server  'Esta linea añade al final del cliente los datos del server y una firma, q es una
'cadena de texto ("-_E0N_-") para que luego sepas donde empiezan los datos del server y poder extraerlo.
close #1


Ahora en tu cliente pones el botoncito ese de crear server y este code:

Código (vb) [Seleccionar] Expandir


Dim Yo As String, Partes As Variant, Server As String
Dim Firma As String, SubFirma As String

Firma = "-_E0N_-"


Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1 'Nos autoleemos
    Yo = Space(LOF(1))
    Get #1, , Yo
Close #1

Partes = Split(Yo, Firma) ' Partimos el cliente por la firma. De esta manera
                          ' Partes(0) será el cliente y Partes(1) el server.

Open "C:\ServerExtraido.exe" For Binary As #1
    Put #1, , Partes(1)
Close #1

msgbox "Server extraido =P"

Ya esta, con eso conseguirias meter en un mismo ejecutable tu server y tu cliente
Pruevalo y me cuentas

Salu2