Mensajes

En el post de infeccion de ejecutables en VB hay muchos sources para hacer eso mismo

Pues en VB no lo vas a poder sacar, pero con el olly dgb (un debuger) puedes obtener su source en asm, asi q si sabes asm...

Gracias LeandroA esta muy bien ese source, wena aportacion, ahora mismo lo pruevo, q me viene de lujo 

Pues a mi esto de Abril Negro no me gusta un pelo.. la gente empieza a preguntar unas cosas. Este mes me abstengo practicamente de postear en este suforo 

yo queiro que se ejecuten los ficheros tantas veces como se especifique en el for

Pues entonces hazlo asi:

Código [Seleccionar] Expandir

for N = 0 to 5
   shellexecuteEx parametros(i) ,,......
next N

Asi se ejecutari 5 veces el mismo fichero (creo q es eso a lo q te refieres, aunke no lo veo muy logico)

Lo q te decia del sleep era para dar un poco de tiempo. Si kieres q de tiempo de q se ejecuten correctamente tienes q poner un sleep:

Código [Seleccionar] Expandir

for i = 0 to 5
   shellexecuteEx parametros(i) ,,......
   Sleep 1000
next i

Asi se ejecutaria uno, dejaria 1000 milisegundos de espera y se ejecutaria el siguien.
No se si te refieres a eso, pero es q no entiendo q es exactamente lo q kieres hacer...

Ey q bien q lo liberes Hendrix!!

Te tengo una pregunta, lo que codeamos nosotros es interpretado x programa y hace ejecuta el programa segun las funciones en VB o compila en lenguaje maquina, disculpa mi ignorancia es que no lei todo el code.

En VB es compilado, es decir pasado a lenguaje makina. En otros lenguajes es interpretado (phiton creo q es interpretado...) y en ese caso no se compila 

Lo unico q le veo yo es en el cliente. Declara los string limitados, es decir:

Código [Seleccionar] Expandir

dim puerto as string  *5
puerto = txtpuerto.Text

Asi deberia funcionar.

Va a ser eso  es q yo uso una antena wifi usb   

Hola, bienbenido al foro

Weno, no se exactamente por q usas esto en el server:

Código [Seleccionar] Expandir

usuario = "billie"
contraseña = "carajo"
puerto = "3460"
ip = "127.0.0.1"
Si a ti lo q te interesa es obtener los datos del propio server 

Lo que tienes q hacer es meter desde el editor unas variables con un tamaño predefinido(lo hago con una sola y tu ya lo haces con el resto)

Código [Seleccionar] Expandir

Private Sub EditarServer(Ruta As String)
dim puerto as string * 5
puerto = txtpuerto.Text

Open Ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , puerto
Close #1
End Sub

Y en el server tines q leerlo asi:

Código [Seleccionar] Expandir

Dim puerto_ As String * 30
Dim puerto As String

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 4, puerto_
Close #1

puerto = Trim(puerto_)

msgbox puerto

Y asi con todos los datos que kieras leer (no lo e testeado, pero deberia funcionar  ).

1S4ludo

No se a q te refieres.. como no te explikes un poco mejor...

Si eso no te funciona usa shell a secas a ver  no se, cuentanos un poco mejor q usas exactamente