File Manager

[Memo_111]

bueno, me gustaria qe me orientasen mas o menos para hacer el file manager de mi troyano(no estoy diciendo que me lo agan) XD pero asi mas o menos como lo podriaa acer

salu2

[>> s E t H <<]

cuanta gente preguntando cosas parecidas :S

sabes usar el winsock?
para pasar un archivo lo abris como binario, lo lees y lo mandas x winsock
para ejecutar un archivo es: Shell "ruta"
para crear un archivo lo abris como binario y lo llenas con put
para buscar archivos busca en recursos visual basic

[Memo_111]

si amigo pero yo me refiero a un file manager, si alguien a visto por ejemplo el bifrost, com explorador de archivos y carpetas (se usar winsock) gracias por la respuesta

salu2

[>> s E t H <<]

si, se a lo que te referis pero te dije lo de arriba de forma general.. no se en que parte del file manager tenes problemas... o sea, que es lo que no sabes hacer?

[Memo_111]

pues visualizar sus carpetas , discos y archivos en uno filelistbox, en un drivelistbox y en un dirlistbox


s alu2 y gracias por su paciencia

[HaCKerATI5]

Mira esto ==>>
Para ver este enlace Registrate o Inicia Sesion

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/explorador-remoto.htm

   

[carlmycol]

El dijo explicitamente que no se lo hiciera.

Bien yo tambien estoy trabajando en un file manager.

Lo que dijo seth es la mitad de lo que debes hacer

(servidor) Para visualizar carpetas haces un ciclo para que enliste todos los nombres de os archivos y carpetas de la particion luego haces otro ciclo for que cuente los item de la lista y los meta en un split array y lo mandas mas o menos asi.

Código:

dim enviar as string
enviar="listar|carpetasyarchivos|" & list1.count & "|"
for i=1 to list1.count
enviar = enviar & lis1.item(i)
next

(cliente)Luego en el cliente (tu) haces algo como esto

Código:

dim entrada as string
dim split as string
dim numero as integer
winsock.getdata entrada
split=split(entrada,"|")
case split(0)
case "listar"
if split(1)="carpetasyarchivos" then
for i=1 to split(2)
numero=i + 2
list1.additem data(numero)
next
end if

Seria mas o menos asi, no copies y pegues que lo hice aqui rapidito y esta incompleto es nada mas un ejemplo; tambien que esto se debe hacer dentro del evento adecuado

salu2

[>> s E t H <<]

Para ver este enlace Registrate o Inicia Sesion

ahi para buscar artchivos...
el resto lo explico ceramycol

[Memo_111]

gracias amigos me fue muy util

salu2