Foro de elhacker.net

me siguen apareciendo problemas en mi proyecto u.u, esta ves nose como hacer para enviar datos a una PC en especial.
  Mi proyecto es un troyano de conexion inversa con multiples conexiones, muestra a las victimas en un listview y cuando envio información la envia al ultimo que se conecto y nose como hacer para enviarle a otro :S aver si me pueden ayudar asi me sacan ese problemon de ensima xD. Muchas gracias por todo  ;D ;D

.
Esta genial el problema pero no se sabe ni que has hecho, vaya no somos adivinos ¬¬".

Deducciones:

Si tienes un array de Controles de Winsock puedes recorrerlos desde LBound hasta Ubound del Objeto dado, consultando de esta manera el indice de la manera mas facil posibles es decir ws(index).propiedad/metodo/funcion, vaya no es dificil xP.

Dulces Lunas!¡.

y ese es mi problema ¬¬ que queres que le haga que te ponga todo el code ak?? no se puede u.u. Si me pidieras alguna informacion en especial que te sea necesaria para decirme cual es el problema me dices y yo la posteo, no es que me tire error en alguna parte como para que ponga esa parte del code. Sino que nose como hacer para que cuando haga click en una victima del listview al enviar un dato le envie a esa persona, porque ahora me envia a la ultima persona que se conecta (es conexion inversa)

seguro que estas usando arrays de winsock. el listview debe tener una prop. que indique el index del elemento de la lista que hayas seleccionado, algo como el listbox y su prop. listindex, pues podrias usar esa prop. para indicar cual de todos los elementos del array winsock debe enviar datos al clickear sobre a tu victima en el listview, algo asi hice pero con el listbox:

dim x as integer
x=list1.listindex
winsock(x).senddata "DATO"

.
@ŞCØRPIØN-X3


Claro que no, pero si puedes poner la parte donde le envias los datos se te podra guiar adecuadamente, de lo contrario solo tendras que esperar simples textos, tampoco esperes el codigo hecho por que como has dicho no se puede.

alxspy te dio una pequeña traducción de lo que he puesto anterior-mente, tampoco hay que esperar el codigo a medida, OJO el Indice del elemento del control no es el mismo que el del Indice del control winsock(array) por lo tanto podrias guardar dicho indice ( Indice del Objeto Winsock ) en la propiedad tag o en alguna parte donde te guste, pero que este ligado a el del elemento de la lista listview.

P.D.:  ( Cita Textual) Vuelvo a insistir, este es un foro de programación, nada de troyanos y esas lameradas, para eso está el foro de troyanos y virus. ) (http://foro.elhacker.net/programacion_visual_basic/reglas_del_foro_iexclleed_todos-t93618.0.html;msg441483#msg441483).

 :silbar: Otra cosa No te enojes, vaya que si no te doy/dan el codigo es por que no estamos obligados a hacerlo, sin embargo en ningun caso te he dicho nada que no sirva, si no mas bien que no desees leer/comprender  ;).

Dulces Lunas!¡.
.

.
Por si las moscas!¡.

 
Option Explicit
 
Private Sub Form_Load()
    With ListView1
        With .ColumnHeaders
            Call .Add(, , "No")
            Call .Add(, , "Te")
            Call .Add(, , "Enojes")
        End With
        With .ListItems
            .Add(, , "O").Tag = "BlackZeroX0"
            .Add(, , "Te").Tag = "BlackZeroX1"
            .Add(, , "Saldran").Tag = "BlackZeroX2"
            .Add(, , "Canas").Tag = "BlackZeroX3"
            .Add(, , "Verdes").Tag = "BlackZeroX4"
        End With
    End With
End Sub
 
Private Sub ListView1_Click()
    With ListView1
        If Not .SelectedItem Is Nothing Then
            With .SelectedItem
                MsgBox .Tag & vbCrLf & .Index
            End With
        End If
    End With
End Sub
 
 

Dulces Lunas!¡.

gracias a los dos por los codes ahora me fijo si me va.

Aclaración: no pido el code echo, lo contrario ya lo tengo echo y andando pero mi problema es que nose como direccionar los datos a una de las personas que estan en el listview. Sorry por mi comentario anterior es que no logro encontrar el problema y ya me tiene loco xD. Despues de tanto tiempo de trabajo, si no llego a encontrar como solucionarlo va a quedar mi proyecto a medias y no es lo que quiero xD. Muchas gracias ahora me fijo  ;D ;D

ahora me fije, el comentario que yo habia escrito era por el comentario que habias puesto, este no era, lo editaste.. ¬¬ me habias escrito otra cosa poreso yo te respondi lo que te respondi xD

.
« Última modificación: Ayer a las 19:19:46 por BlackZeroX▓▓▒▒░░ »

tu post...  la modificacion fue para poner en negrita algunas cosas, suelo publicar y estar editando mis publicaciones es una fea maña que tengo.

« Respuesta #2 en: Ayer a las 19:19:59 »

mmm ¬¬". Aun asi fue antes de tu post.

Dulces Lunas!¡.

aver pongo el code con el que acepto las conexiones entrantes:


bueno basicamente lo que hace es aceptar las conexiones y por cada conexion que hacepte le envia "ObtenerInfo" y el servidor al recibir este dato le reenvia datos de esa pc, y los voy almacenando en un listview. Una ves que las almacene en el listview nose como hacer para que al darle dobleclick a una de las personas se le envie la información a esa persona.

Gracias por su tiempo, si necesitan que publique otra parte del code me avisan y yo la publico aver si me pueden ayudar :D

Bueno perdon BlackZero, no quiero llevarme mal con nadie de este foro  ;)

.
ok lo que puedeshacer es en cuando ya registres la conexion en el listview GUARDA el Index del winsock en la propidad tag del elemento ( como en el ejemplo de arriba ). y cuando des doble click (Evento DblClick del Listview) pones algo asi:

 
On Error GoTo errReport
Dim iwsIndex        As Integer
    With ListView1                              '   //  Trabajamos sobre el ListView.
        If Not (.SelectedItem Is Nothing And ws Is Nothing) Then    '   //  Fila seleccionada?, Objeto (ws) Vacio?.
            iwsIndex = Val(.SelectedItem.Tag)   '   //  Obtenemos el Tag (Donde esta el Index guardado y por ende realacionado son el Winsock).
                                                '   //  Comprobamos que el numero este dentro del rango.
            If ws.lbound >= iwsIndex And iwsIndex <= ws.ubound Then
                With ws(iwsIndex)               '   //  Trabajamos sobre el Socket
                    If .state = 7 Then          '   //  Esta conectado este WSocket?.
                        .SendData Datos         '   //  Enviamos los datos.
                    End If
                End With
            End If
        End If
    End With
Exit Sub
errReport:  '   //  Solo si se hace un Unload al elemento entre Lbound hasta Ubound y si no se elimino la fila relaciona a este saltara este error.
    Debug.Print Err.Description
 
 

Temibles Lunas!¡.
.

BlackZero perdon por mi ignorancia xD pero no logro asignarle al tag del listview el index del winsock :S, simpre me devuelve valor 0., probe varias formas.  :-(

como lo pones?

Como lo consultas?.

En todo caso analisa este pequeño codigo...

http://foro.elhacker.net/programacion_visual_basic/problema_al_enviar_datos_con_winsock-t323595.0.html;msg1598569#msg1598569

Dulces Lunas!¡.
.

Wenas, ya logre solucionarlo lo que hice fue como decian le asigne el index del winsock al tag y luego utilice el tag para enviar los datos al mismo :D muchas gracias es sencillo pero cuando lo queria aplicar me dejaba de funcionar correctamente pero ya lo logre :D corrigiendo varias partes del codigo y simplificandolo un poco.  ;-) ;-).
 Me sirvio mucho tus ejemplos BlackZero muchas graicas  ;D ;D