Ottenere l'immagine della finestra di un programma

Uso delle risorse del Componente gb.media

Per ottenere con il seguente codice l'immagine della finestra di un programma, presente sulla Scrivania, si dovrà attivare il Componente gb.media .

Public Sub Button1_Click()

 Dim pl As MediaPipeline
 Dim src, vdc, enc, snk As MediaControl

 pl = New MediaPipeline 

 src = New MediaControl(pl, "ximagesrc")
' Assegna l'ID della finestra del programma:
 src["xid"] = ......
 vdc = New MediaControl(pl, "videoconvert")
 enc = New MediaControl(pl, "pngenc")
 snk = New MediaControl(pl, "filesink")
 snk["location"] = "/tmp/immagine.png"

 src.LinkTo(vdc)
 vdc.LinkTo(enc)
 enc.LinkTo(snk)

 pl.Play()

 pl.Stop()
 pl.Close()
 Print "Cattura immagine effettuata"

End