winsock k dolor de cabesa

[cobra_90]

hola tengo varios dias intentando hacer esto copear la pantalla 3 veces por segundo convertirla a jpg enviarla por winsock y verla en otro programa pero esk no puedo enviar archivos ya baje un code de ejemplo pero ni asi mi torpe mente no entiende pork solo me manda la mitad del archivo y asi no funiona!!!!! ayudenme kon un code simple de envios de archivo o ssi kieren agrgenme al msn y les paso mi proyeto y me ayudarian en decirme donde esta mal!!! gracias

[ジ]

Código [Seleccionar] Expandir

Dim lol As Integer
Dim frago As Integer
Dim goblin As String
lol = FreeFile
frago = 8192
goblin = "c:\Juazcp.jpg"
Open goblin For Binary As #lol
Do While Not EOF(lol)
camun = Input(frago, #lol)
sck.SendData camun
DoEvents
Loop
Close #lol

eso para el server, ahora en el cliente: recibe esos datos y metelos en un nuevo archivo y tendra tú screenshot.