Foro de elhacker.net

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 :rolleyes:

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

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..

Ok, ya te entendi  ;D

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 ;)

Con perdón...

Podrias explicarmelo un poco mas sencillito? jeje no me aclaro :(

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....  :rolleyes:

CLIENTE

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

SERVER

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