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

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


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


Desconectado Desconectado

Mensajes: 414


[>Argentina<]


Ver Perfil
Dudas con Tranferencia de Archivos
« en: 9 Septiembre 2005, 03:23 am »

hola a todos tengo un robrema... va mas q un problema es un duda
le queria pedir un favor a ver quien me explica estos codigos q no llego a entenderlo

Código:
On Error Resume Next
Dim datos As String
ws.GetData datos
If datos = "enviar" Then
progreso = True
ws.SendData filedata
End If
If datos = "recibido" Then
'ws.SendData "cierra"
End If
If Left(datos, 7) = "archivo" Then
send = True
    filesize = Mid(datos, 8)
    ws.SendData "enviar"
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then
        datos2 = datos2 + datos
        pb.Min = 0
        pb.Max = filesize
        pb.Value = Len(datos2)
        pb.Refresh
    End If
        If Len(datos2) = filesize And send = True Then
        ws.SendData "recibido"
        pb.Value = 0
        cd.Filter = "Archivos " & ext & "| *" & ext
        cd.FileName = ""
        cd.ShowSave
        Open cd.FileName For Binary As #1
        Put #1, 1, datos2
        Close #1
        End If
End If


En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Dudas con Tranferencia de Archivos
« Respuesta #1 en: 9 Septiembre 2005, 03:43 am »

Che pero estas seguro que eso funciona ??
tengo mis dudas... y no hay ganas de probarlo xDDD

Aca te los comento ;)
Código:
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
On Error Resume Next
Dim datos As String
ws.GetData datos 'obtiene los datos que llegan del WS
If datos = "enviar" Then 'si los datos que llegaron dicen "Enviar" entonces
progreso = True 'iniciamos el "Progreso" ??
ws.SendData filedata 'mandamos el archivo
End If
If datos = "recibido" Then 'si los datos que llegaron dicen "Recibido" entonces
ws.SendData "cierra" 'manda la orden para que se cierre el archivo
End If
If Left(datos, 7) = "archivo" Then 'si las primeras 7 leras de los datos dicen "Archivo" entonce
send = True 'manda
    filesize = Mid(datos, 8) 'el tamaño del archivo
    ws.SendData "enviar" 'envia la orden
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then 'si los datos que llegaron NO son el tamaño del archivo entonces
        datos2 = datos2 + datos
        pb.Min = 0 'pone la progressbar ? en 0
        pb.Max = filesize 'y el maximo es el tamaño del archivo
        pb.Value = Len(datos2)
        pb.Refresh
    End If
        If Len(datos2) = filesize And send = True Then 'si los datos que llegan SI es el tamaño del archivo entonces
        ws.SendData "recibido" 'manda la señala de que lo recibio
        pb.Value = 0
        cd.Filter = "Archivos " & ext & "| *" & ext
        cd.FileName = ""
        cd.ShowSave 'Muestra la ventana para guardar el archivo
        Open cd.FileName For Binary As #1 'abre el archivo para comenzar a guardarlo
        Put #1, 1, datos2 'introduce los datos
        Close #1 'se cierra
        End If
End If
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬

un abraz0

G0nz4


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
tranferencia de datos
Redes
yuyongs 1 1,400 Último mensaje 14 Enero 2014, 11:32 am
por yurkila
Tranferencia de archivos sin cable
Dudas Generales
Franky__ 8 8,679 Último mensaje 22 Octubre 2017, 00:03 am
por Franky__
Dudas archivos BIN
ASM
Riki89d 0 1,472 Último mensaje 15 Mayo 2018, 19:00 pm
por Riki89d
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines