Haber si esto te ayuda:
y
A = GetDesktopWindow()
s = GetDC(A)
asumo que lo tienes en un modulo o algo parecido, ya que son APIS, es lo que yo uso para mi troyano, claro que despues lo comprimo a JPG, pero no es tu caso.
Un Saludo!
Código [Seleccionar]
Me.Cls
Me.AutoRedraw = True
Me.ScaleMode = 1
A = GetDesktopWindow()
s = GetDC(A)
BitBlt Me.hDC, 0, 0, Screen.Width, Screen.Height, s, 0, 0, vbSrcCopy
'con esto Guardamos la imagen en BMP
SavePicture Me.Image, "c:\imagen.bmp"
If SetWindowPos(hwnd, -1, 0, 0, 0, 0, SWP_FLAGS) Then
form1.WindowState = 2
End If
y
A = GetDesktopWindow()
s = GetDC(A)
asumo que lo tienes en un modulo o algo parecido, ya que son APIS, es lo que yo uso para mi troyano, claro que despues lo comprimo a JPG, pero no es tu caso.
Un Saludo!