Una duda leyen tu post el link que me diste Hades me he decidido por usar la funcio que devuelve el .png, pero una pregunta ¿De que dll's depende esta?, Que metodos me aconsejas vos.
Gracias de antemano.
Gracias de antemano.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error GoTo Error
Dim datos As String
Dim vDatos As Variant
ws.GetData datos
vDatos = Split(datos, "|")
Select Case vDatos(0)Case "Capturar_Pantalla"
Dim captura As New cJpeg
captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
captura.Quality = CInt(vDatos(1)) ' La calidad la mando desde el cliente
captura.SampleScreen
captura.SaveFile ("D:\" & "captura" & ".jpg") ' Lo guardo en D para localizarlo mejor
End Select
Error:
End Sub
ws.Sendata captura