elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Transferencia de Archivos y MultiConexiones [Winsock Vb6]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Transferencia de Archivos y MultiConexiones [Winsock Vb6]  (Leído 1,669 veces)
Woolf

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Transferencia de Archivos y MultiConexiones [Winsock Vb6]
« en: 1 Marzo 2014, 19:13 pm »

Tengo el problema que cuando quiero enviar el archivo a partir del servidor hasta el cliente solo envía [¡Rar] Osea la primera linea y no se como arreglarlo,trate con miles de códigos pero todos me hacen lo mismo,me envian solo la primer linea y el archivo que me envia solo pesa 1 Kb cuando el archivo original pesa 176Kb

Servidor:
Código:
If Peticion = "Actualizar" Then
Open RUTA.Text For Binary As #1
    s_ArchivoOrigen = Space(LOF(1))
    Get #1, , s_ArchivoOrigen
    Winsock2(Index).SendData "Archivos|" & s_ArchivoOrigen
Close #1

Cliente:
Código:
If Separador(0) = "Archivos" Then
RUTA = App.Path & "/server.rar"
Open RUTA For Output As #1
    Print #1, Separador(1)
Close #1
End If

Agradecería mucho su ayuda,Saludos


En línea

MCKSys Argentina
Moderador Global
***
Desconectado Desconectado

Mensajes: 5.471


Diviértete crackeando, que para eso estamos!


Ver Perfil
Re: Transferencia de Archivos y MultiConexiones [Winsock Vb6]
« Respuesta #1 en: 2 Marzo 2014, 01:43 am »

Prueba con esto:

Código
  1. If Separador(0) = "Archivos" Then
  2. RUTA = App.Path & "/server.rar"
  3. Open RUTA For Binary Acess Write As #1
  4.    Put #1, Separador(1)
  5. Close #1
  6. End If
  7.  


En línea

MCKSys Argentina

"Si piensas que algo está bien sólo porque todo el mundo lo cree, no estás pensando."

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines