|
Título: winsock k dolor de cabesa Publicado por: cobra_90 en 27 Agosto 2006, 02:52 am 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 :-(
Título: Re: winsock k dolor de cabesa Publicado por: ジ en 27 Agosto 2006, 13:45 pm Código: 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. |