Test Foro de elhacker.net SMF 2.1

hola a todos mi problema 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)

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


Cuando yo presiono uno de esos botones q a la ves se guarde la foto o imagen...Como hago


Muchas gracias

La imagen pasa al portapapeles y luego tienes que pasarla a al control en cuestión  ;)

Guardas la imagen con el método SavePicture, optenés la imagen del portapapeles con el objeto Clipboard.

Saludos.

q es objeto Clipboard

El clipboard es el portapapeles xDD+

Salu2


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


Bien, el code anda  :)

pero como podria hacer para que me guarde la imagen en formato .JPG ???

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

no eso no anda, va si anda pero me crea la imagen .JPG que pesa 2 MB (como si estubiera en .BMP)

Saludos

usa este modulo k te captura la pantalla en jpg directamente

http://mx.geocities.com/asrail_hack/cJpeg.zip

para usarle :


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")


salu2

Esta bueno el codigo la unica es q no puedo vajar la calidad de la imajne y pesa 2.25MB

gracias a todos


Captura.Quality = 70


Aki pones la calidad entre 1 y 100 k kieras

Salu2

Hace no mucho estuve provando este código y tenia problemas cuando ponia el Form1.Visible = False, al parecer no pulsaba la tecla Impr Paint, intenté enviar esta tecla con sendkeys pero tampoco dió resultado, alguna ídea?

mmmm
podrias mover el from afuera de la pantalla:

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

de esta forma no se veria el form y el codigo funcionaria sin problemas...

un salud0

Buena idea, algo chapuza pero es lo que hay ^^ .

Buen dia...ese code es bueno..pero tarda si realizamos un ciclo o en timer...se alenta la pc..como se podria captirar pantalla y crear un jpg o bmp...sin utilizar el clipboard

mmm bueno ya lo intento correr y la PC se cuelga... lo q quiero es agregar esta opcion a mi troyano pero tengo q hacerlo lo menos pesado posible para q no se demore en llegar a mi pc la imagen.... ayuden  :(

CitarCaptura.Quality = 70

Baja el 70 a 50 o menos... anda fijandote
Mientras menos pesado sea la imagen, menos va a tardar en llegar

salu2