[Proyecto]Explorador Remoto.

[LeandroA]

Hola es un poco mas de lo mismo, por el momento es un explorador remoto de archivos y carpetas realizado en vb, tiene unas cuantas herramientas.
si les interesa saber un poco mas de que se trata y descargarlo abajo esta el link.





Descargar.

[BlackZeroX]

.
Muy bonito...

Yo ando haciendo algo siilar pero voy por otro modo... hasta ahora es Indetectable (los AV's no detectan las conexiones Salientes xP).

a si se me olvidaba si se compila en

P-Code

Se reduce mucho el peso del Ejecutable (De 700KB a unos 500KB)!¡, y en el cliente o Stup sea como sea... se baja de 120KB a 76KB.

Dulces Lunas!¡.

[LeandroA]

aja si es cierto 76 kb, es mucho mas interesante, porque en la primera etapa pesa 120 kb voy mal .

Saludos.

[VanHan]

Exelente LEA!!!! muy bueno!!!!! te pasaste!!! esta barbaro!  


Salu2
[vHn]

[Karcrack]

Ahora no puedo revisar el codigo, pero viendo las capturas se que sera buenisimo Mas tarde si puedo verlo te dejo un comentario mas productivo

Gran trabajo Leandro

[d(-_-)b]

Es un exelente explorador de archivos, muy bonito.

saludos...

[Petro_Boca]

B-U-E-N-I-S-I-M-O.

[Petro_Boca]

una pregumta...

si yo abro el CLIETE en otra pc, me va a aparecer ami?

[d(-_-)b]

Para un RAT el explorador es muy bonito y muy funcional.

por cierto, nada mas hay que crear una opcion de crear servidor y poco mas, ya teneis un RAT Explorer. XD

muy bueno.

saludos...

[raul338]

Esta perfecto LenadroA

y... explorandolo y debugeando, en la pc de mi hermana tenia un ligero bug, que era que un disco duro no tenia etiqueta, se enviaba igual y descolocaba los items de "Otros sitios" en el explorador. La solucion:

En el proyecto cliente, Modulo de clase: clsExplorer, Procedimiento AddPathToBuffer cambiar:

Código (vb) [Seleccionar] Expandir


If sPath <> "" Then


por

Código (vb) [Seleccionar] Expandir


If sPath <> "" And sName <> "" Then


Lo mas raro es que se enviaba la unidad D: 2 veces



Otra cosa, gracias a este bug habria que evitar Items de captions vacios en el ExplorerFrame agregando en el sub AddItem:

Código (vb) [Seleccionar] Expandir

If Caption = "" Then Exit Sub



Por otro lado, el mostrar en carpeta... yo cambiaria el shell execute por este

Código (vb) [Seleccionar] Expandir

ShellExecute 0&, "open", "explorer.exe", "/select, " & Chr$(34) & ucListView2.ItemText(Item) & Chr$(34), ucListView2.SubItemText(Item, 7), SW_SHOWNORMAL

ya que abre el explorador con el archivo seleccionado (util cuando es una carpeta con muuchos archivos)



Saludos y muuuy buen proyecto LeandroA, si bien te conteste el post del Drag&Drop (del cual nunca diste señales de vida ) el ucListView no tiene ni el metodo StartDrag como para hacerlo