Mensajes

Mejor azlo con un chacek box. Tendrias q introducirlo justo aki:

CLIENTE:

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
'Una vez se a mostrado tendriamos q hacer una nueva peticion
'Para saber si hacer la peticion o no comprovariamos el estado del check box:
If Check1.Value = 1 Then 'Si esta activo
ws.sendata 'Lo q tu hallas puesto para pedir una foto
End If

       Envio = False
   End If
End If

Asi solo recibirias imagenes cuando este activo el check box

Joe ultimamente estas q regalas los codigos xDD gracias (de nuevo)

Pero kien es ese? o que es eso? 

Es mejor un picture, ya q tiene muchas mas opciones. Para hacer clicks, calculas las coordenadas en tu Pc y las envias, seguro q esto te vale:

http://foro.elhacker.net/index.php/topic,141712.msg665820.html#msg665820

1S4ludo

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

De nada 

[aki]

No puedes ejeutar un exe en un pc teniendolo alojado en una web a no ser q el user se lo descargue y lo ejecute...

Como mucho puedes usar un bug q habia por ahí para el internet explorer del año de la pera...

Lo de las activeX aki tienes un ejemplo

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:

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:

'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 [Seleccionar] Expandir

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

Yo apollo estas:



Me encantan!!

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??

Pues puede ser q has puesto case "send" dentro del timer  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 [Seleccionar] Expandir

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 [Seleccionar] Expandir

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...