Tema destacado: Nueva página de elhacker.net en Google+ 
Autor
|
Tema: Problema al enviar datos con winsock [SOLUCIONADO] (Leído 1,559 veces)
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. 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!¡.
|
|
|
|
« Última modificación: 3 Abril 2011, 03:19 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
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)
|
|
|
|
|
En línea
|
|
|
|
AlxSpy
Desconectado
Mensajes: 137
|
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"
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. @ŞCØRPIØN-X3 y ese es mi problema ¬¬ que queres que le haga que te ponga todo el code ak?? no se puede u.u
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. ).  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!¡. .
|
|
|
|
« Última modificación: 3 Abril 2011, 06:56 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. 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!¡.
|
|
|
|
« Última modificación: 3 Abril 2011, 07:06 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
. 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!¡.
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
|
|
|
|
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. « Ú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!¡.
|
|
|
|
« Última modificación: 3 Abril 2011, 22:24 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
ŞCØRPIØN-X3
Desconectado
Mensajes: 119
|
aver pongo el code con el que acepto las conexiones entrantes: NO CODE 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  Bueno perdon BlackZero, no quiero llevarme mal con nadie de este foro 
|
|
|
|
« Última modificación: 22 Abril 2011, 02:18 por ŞCØRPIØN-X3 »
|
En línea
|
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.832
I'Love...!¡.
|
. 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!¡. .
|
|
|
|
« Última modificación: 3 Abril 2011, 22:43 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
|
|
|
|
|
|
|
|