Capto la pantalla, la pongo en Image1 y se ve haci....

[kakinets]

jajaj yo tambien quiero hacer eso pero no encunetro nada de info..

[ranslsad]

Yo hice uno pero que capturaba la imagen de la web Cam y la enviaba... es muy facil..

Aqui te dejo el Source con el cual yo me base para enviar archivos (eso te los deja en una carpeta, tu solo tienes que abrirlos y al abrirlo lo borras )

-Cliente:
Usa:
Winsock = ws
Progres Bar = ProgressBar1

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.LocalPort = 1000
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\WebCam\image.bmp" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If
If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If
End Sub


Servidor:
Usa:
Winsock = ws

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "comunidad-archangel.no-ip.info", 1000
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\image.bmp")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data
If Left(data, 8) = "SendFile" Then
Open "C:\image.bmp" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1
ws.SendData Send
End If
End Sub


Bueno espero que te sirva

Salu2

Ranslsad

[yovaninu]

Yo hice uno pero que capturaba la imagen de la web Cam y la enviaba... es muy facil..

Aqui te dejo el Source con el cual yo me base para enviar archivos (eso te los deja en una carpeta, tu solo tienes que abrirlos y al abrirlo lo borras )

en fin parece que no se entendió, fijate lo que un dia propuse a cerca de la transferencia de cualquier cosa como archivo

http://foro.elhacker.net/index.php/topic,165858.0.html

lo que kakinets y yo queremos hacer es otra cosa

me explico..
Capto la pantalla la coloco en el contro image (sin guardar la captura) y de ahi mandarla al cliente?? es imposible lo q quiero hacer??

ahora si se entiende???