Imagenes de Cliente-Servidor

[GranDestello]

Buenas foro.elhacker.net , bueno hoy vines a hacerle una pequeña pregunta para ver si me pueden pasar un codigo o al menos darme alguna idea de como hacer para enviar imagenes de un servidor a un cliente y viceversa? con el control Winsock, me explico:

Quiero agregar digamos un Image1 y que al darle click pueda transferir esa imagen y que se muestre digamos en el control Image2 del servidor. Y pues como dije antes y viceversa osea que si le doy al Image1 del servidor pueda enviar la imagen al image2 del cliente, Gracias de Antemano

[Mad Antrax]

Te voy a explicar como yo lo hago, pero no voy a darte código, lo escribiré en pseudo-code:

'server
IMG-SOURCE = OpenTextFile(mifoto.jpg)
Winsock.Send(IMG-SOURCE)

'client
GetData(xData)
CreateTextFile("tmpfile.jpg",xData)
LoadPicture("tmpfile.jpg")

Saludos!!

[GranDestello]

Te voy a explicar como yo lo hago, pero no voy a darte código, lo escribiré en pseudo-code:

'server
IMG-SOURCE = OpenTextFile(mifoto.jpg)
Winsock.Send(IMG-SOURCE)

'client
GetData(xData)
CreateTextFile("tmpfile.jpg",xData)
LoadPicture("tmpfile.jpg")

Saludos!!

Creo que mas o menos entendi gracias eso al menos me da una idea 

[Mad Antrax]

Para algo sencillo, te recomiendo que utilices el objeto de VBS Scripting.FileSystemObject, con él podrás hacer ésto que pides y más cosillas.

[GranDestello]

Quien queira seguir respondiendo este tema para guiarme aun mas se lo agradezco  y denuevo gracias por toda tu AYUDA ||MadAntrax||

[Mad Antrax]

En el foro tienes el source del RAT houdini, utiliza http.xml2 y adobstreams para cargar/descargar ficheros. Te servirá también para hacer lo de las imágenes.

[GranDestello]

En el foro tienes el source del RAT houdini, utiliza http.xml2 y adobstreams para cargar/descargar ficheros. Te servirá también para hacer lo de las imágenes.

Oh gracias nuevamente D= ire investigando sobre eso porque soy aun un poco noob en visual basic y todo lo que tiene que ver con el

[GranDestello]

Esto fue lo que mas o menos hice segun entendi xD

Cliente

'Hago que el image 2 sea = al image 1, y que este se envie para ser mostado en el winsock (CREO xD)
Private Sub Image1_Click()
Image2.Picture = Imagel1.Picture
Winsock1.SendData (Image2.Picture)
End Sub

Servidor

'Recibe la imagen o los datos D= y se carga en el image2 del servidor (creo tambien)
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData
Image2.picture = LoadPicture
End Sub

No se si estara bn asi :S es que aun soy muy noob. Saludos y gracias