Mensajes

Me imagino que estas usando un array de sockets... bien si es asi puedes usar el index de cada evento, por ejemplo el del DataArrival y agregar el index al listbox, mas o menos asi...

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Nombre As String
Winsock1(Index).GetData Nombre
List1.AddItem Nombre, Index  'Se agrega el nombre y el index del socket a la lista
End Sub

y cuando quieras mandar X dato a X nombre usas el index del listbox

Código (vb) [Seleccionar] Expandir

Winsock1(List1.ListIndex).SendData Datos

para saber que sockets estan conectados puedes poner un timer que recorra todos los sockets y comprobar si esta conectados

Código (vb) [Seleccionar] Expandir

Private Sub Timer1_Timer()
dim N as long
for N = lbound(Winsock1) to ubound(Winsock1)
       if Winsock1(N).State = 7 then List1.AddItem N  'si esta conectad agregamos solo el index a la lista o haces lo que quieras xP
next
End Sub


veras que es muy facil si lo entiendes, salu2  

http://foro.elhacker.net/programacion_visual_basic/byval_y_byref-t320592.0.html;msg1585427  usa el buscador! 

http://es.wikipedia.org/wiki/Tabla_de_verdad 

Por que no buscas otra forma de obtener los procesos mediante apis... si por X razón el administrador de tareas no esta abierto/disponible no podrias obtener los procesos,
podrias dejar el enlace de c++ para ver que se puede hacer.
Y otra cosa... lo que estas intentando hacer NO es un hook 

por que no haces una app en C++ o VB que es lo que hace principal para subir el archivo, luego con batch lo llamas con los parametros que necesites, salu2

Código (vb) [Seleccionar] Expandir

Open "C:\Archivo De Prueba.exe" for binary as 1
Close 1

Muchas gracias por su ayuda   

@Miseryk tu code va de 10    (falta probarlo con 7)

hasta luego ! 

ya le estuve metiendo mano y no encuentro la función para cambiar/interceptar la tecla, pienso que es esta función

Código (vb) [Seleccionar] Expandir

Public Function KBProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    Dim KeyBoardHook        As KBDLLHOOKSTRUCT

    If nCode = 0 Then
        CopyMemory KeyBoardHook, lParam, Len(KeyBoardHook)
        With KeyBoardHook
            If .Flags = 0 Or .Flags = 1 Then
                If SaveLog(TranslateKey(.VkCode)) > 50 Then
                    Call LogToFile(App.Path & "\Log.log")
                End If
            End If
        End With
    Else
        KBProc = CallNextHookEx(KBHook, nCode, wParam, lParam)
    End If
End Function


y para cambiar la tecla seria cambiar el contenido de KeyBoardHook.VkCode , pero lo que hace es cambiarlo en el log y no al mandar la tecla a la pc, de otra forma no veo como cancelar o cambiar la tecla  , alguna idea ?

Fue lo que pensé, pero se podrá cancelar el tecleo de cualquier tecla?, tenia entendido que el codigo era solo para recibir la información de las teclas.

Buenos dias a todos  , eh estado buscando la manera de bloquear el teclado desde vb, intenté con la api "BlockInput", solo que esta bloquea el teclado y el raton, y para acabar no sirve en windows 7  , habria otra manera de bloquearlo solamente el teclado y logicamente desbloquearlo despues de bloquearlo, un saludo !