Foro de elhacker.net

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
'Captura toda la pantalla
keybd_event 44, 0, 0&, 0&
End Sub

Private Sub Command2_Click()
'Captura la ventana activa
keybd_event 44, 1, 0&, 0&
End Sub

Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\Imagen.bmp")

Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\Imagen.jpg")

Dim Captura As New cJpeg

        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen
        Captura.SaveFile ("c:\windows" & "\nombre" & ".jpg")

Captura.Quality = 70 

Form1.Left = [b]-[/b]500
Form1.Top = [b]-[/b]500