Super duda

[skyweb07]

Haber amigo tengo otra de mis superudas ya que miren tengo un troyano de conexión inversa multiconexión pero tiene un problema ya que no se como hacer para que cuano haya más de una persona conectada al enviar las opciones ej "enviar mensaje solo se las envie con el que yo este conectado en ese momento ejemplo si estoy conectado con el primero que le envie solo las opciones al primero y no a todos..Miren lo que me pasa aqui



Y lo que yo quiero es que cuano yo le de a ese boton conectar me envie al form donde estan las opciones pero que cuano este en ese form como puedo hacer para enviarsela con el que estoy conectado en ese momento en este caso el primero...No se si hay alguna manera, quizas desconectano a los demas en ese momento u otra cosa por eso le pregunto a los que saben para ver si me aclaran esta duda porfa! ok y Gracias de antemano!!

Ah y tambien como hacer para que cuando yo le de clic en conectar solo se conecte con esa persona y con nadie más xD

[skapunky]

Supongo que usaras una matriz de controles winsock, no? Porque sino solo te hará una conexión 

Si quisieras enviar algo al 3º usuario por ejemplo, una vez tuvieras declarada la matriz seria ( el 0 es el primero):

Winsock1(2).SendData "Lokesea"

Evidentemente el array (matriz) lo deberas de controlar con una variable contador auxiliar..

[skyweb07]

Y como yo podria hacer para que cuando yo le e clic encima de un user le envie solo a el si en el boton conectar aparece esto WS(0).SendData "conectar",  como yo haria para que en vez de WS(0) el ya me reconozca directamente el user que es y cuando le de a la opcion de enviar alguna opcion el ya me la envie solo a ese user!!

[aaronduran2]

EDITADO

Prueba este código:

Código (vb) [Seleccionar] Expandir

Dim i_ConexionSeleccionada As Integer
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    i_ConexionSeleccionada = ListView1.SelectedItem.Index
End Sub

Después tendrías que utilizar Winsock1(i_ConexionSeleccionada).SendData...
Y así con el resto de funciones del Winsock.

Y otra cosa: ¿cómo haces para detectar si el servidor se ejecuta bajo Windows Vista?

Saludos.

[skyweb07]

Haber miren yo tengo esto puesto ' Cuando doy clic derecho para cerrar algun server seria este el code pero me funciona cuando hay uno solo conectado!

Private Sub cerrar_server_Click()
WS(0).SendData "cerrar"
End Sub

Pero en si yo quiero que al seleccionar cualquiera de los servers que estan conectados a mi (solo el server que yo seleccione le made esta función)

WS.SendData "loqueseaquelemande"
End Sub

Pero solo a el que seleccione!!!

¿Como puedo hacerlo?

[aaronduran2]

Utiliza lo que yo te dije. Con ese código lo que tienes que hacer es poner en el código WS(i_ConexionSeleccionada) en vez de WS(0). Luego haces click en la conexión sobre la que quieres trabajar, y luego realizas las acciones que te interesen.

Saludos.

[skyweb07]

Para que detecte Windos Vista solo tienes que poner este code!

Cliente

en el cliente en este caso yo tengo un list view y lo mando de esta manera todo

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim datos As String
Dim data() As String
WS(Index).GetData datos
data = Split(datos, "|")
Select Case data(0)
Case "Conexion"
Dim x As ListItem
Set x = LV.ListItems.Add(, Index & "|", data(1))
x.SubItems(1) = WS(Index).RemoteHostIP
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6)
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
Form4.Show
End Select
End Sub


Pero en el server es este el code:

Código [Seleccionar] Expandir

Dim yo As Object
Set yo = CreateObject("wscript.shell")
so = yo.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Productname")


[aaronduran2]

OK, es que yo utilizo APIs para detectar la versión y no sabía si detectaba también Windows Vista. Gracias.

Saludos.

[skyweb07]

Hey gracias ya me funciona!!! xDDD

[skyweb07]

Ah tengo otra duda y a la hora de enviar funciones desde otro form para que las cumpla solo con el cliente que este conectado en este caso el numero 2 de la listview como yo haria para que el reconociera que estoy conectado con ese cliente y solo se las mande a el!!