Enviar File

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP)

Programación Visual Basic (Moderadores: LeandroA, seba123neo)

Enviar File

0 Usuarios y 1 Visitante están viendo este tema.

Páginas: [1]

Autor

Tema: Enviar File (Leído 1,659 veces)

David Vans

Desconectado

Mensajes: 193

Enviar File

« en: 28 Marzo 2007, 12:55 pm »

Hola estoy buscando una manera de enviar un archvio de 300 kb en 300 kb

Código:

While Not (EOF(FiDes))
           DoEvents
           Input #FiDes, LineA
           wins.sendata LineA
        Wend

Este codigo me lo envia linea a linea
y tampococo me lo monta =
por ejemplo tengo que poner un vbcrlf al final de cada linea pero si es un exe lo que envio me cargo el codigo binario al meter un codigo vbcrlf
Lo que queiro es poder pillar 300 kb envarlos luego otros 300 y enviarlos
he mirado la funcion Input pero recive dos parametros nfichero y fin pero creo que no me sirve
Gracias Soludos


	En línea

Ex-Staff

Desconectado

Mensajes: 2.981

Re: Enviar File

« Respuesta #1 en: 28 Marzo 2007, 16:22 pm »

Pues muy simple

Código:

Dim a As String
For i = 1 To Len(ARCHIVO)
    a = Mid(ARCHIVO, i, 10)
    i = i + 299
   ws.senddata a
Next i

O mas simple:

Código:

Dim i as long 
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i

Donde dice ARCHIVO, tu tienes q usar la variable q contenga el archivo:

Código:

opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1

Weno mi code en realidad te enviaria de 300 en 300 bits

para enviar 300kb pues calculalo en bit's, q a mi no me apetece xD

1S4lludo


	En línea

David Vans

Desconectado

Mensajes: 193

Re: Enviar File

« Respuesta #2 en: 28 Marzo 2007, 19:30 pm »

No me sirve eso es lo que he hecho al principio pero si el archvio es muy grande no lo puedo guardar en un varible desbordamineto entonces lo que querio es leer 300 Kb enviar leer otros 300 enviar etc

Gracias de todos modos.


	En línea

vivachapas

Desconectado

Mensajes: 612

Re: Enviar File

« Respuesta #3 en: 29 Marzo 2007, 04:18 am »

Citar

Dim i as long
For i = 1 To Len(ARCHIVO) Step 300
ws.senddata Mid(ARCHIVO, i, 10)
Next i

Citar

opern ruta for binary as #1
dim ARCHIVO as string
ARCHIVO = sepace(lof(1))
get #1,,ARCHIVO
close #1

pasaba nomas... leyendo y vi esos codigos... y creo q me hicieron entender un monton de cosas... jeje ya q no entendia muy bien como enviar archivos grande por winsock

una preg... eso es para enviar... para recibir como hago ah juntar los datos :huh:


« Última modificación: 29 Marzo 2007, 16:39 pm por vivachapas »	En línea

Páginas: [1]

Ir a: