Registrarse

[David Vans]

HOla mira queiro capturar la imgen y enviarla por winsok y uso esto:

Código:

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

Private Function Captura_Screen()
'On Error GoTo aki

Clipboard.Clear

'capturamos
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0

'mientras no se pueda cojer el contenido
Do While Clipboard.GetData = False
DoEvents
Loop

Picture1.Picture = Clipboard.GetData
'borramos el portapapeles
Clipboard.Clear
SavePicture Picture1.Picture, "c:\sht.bmp"

Do While Len(Dir("c:\sht.bmp")) = 0
    DoEvents
Loop
'ya se ha guardado el archivo
End Function

Private Sub Form_Load()
Captura_Screen
End Sub

[David Vans]

Lo que qeria es que ocupe menos la imagen porque asi me ocupa 3 Mb y tenia un codigo que ocupaba menos y lo he perdido

[Meg]

tienes que pasar la foto a jpg despues de la captura

[David Vans]

como la paso la renombro y creo que me ocupa lo mismo

[ranslsad]

hola amigo te explico una forma facil, la foto la abris con pait, luego pones archivo> guardar como e n la parte nombre pones el nombre XD y en tipo pones jpeg(jpg,jpeg...)

Espero que te sirva de aluuda

Salu2

Ranslsad

[Meg]

como la paso la renombro y creo que me ocupa lo mismo

  kizas tienes k aprender mas.. para pasarla a jpg se ace con un codigo aora no me acuerdo como era busca en google k yo lo encontre con google en mis tiempos de hacer troyanos de lo k me acuerdo es k utilizaba una dll

ranslsad no creo k eso le sirva por k creo k lo k el kiere es hacer un troyano y k capture la imagen la pase a jpg y la pase x winsock al cliente todo de forma oculta 

[David Vans]

Si ok y si la meto en una image y la hago mas pequeña con el strech a true y la guardo en un fichero y envio la ultima modificacion vadria

[sircid]

para pasar a jpg necesitaras usar una dll ya que windows no compro la licencia y por eso no la encontraras en la api.

Espero que este código te resuelva todas las dudas:

http://www.megaupload.com/?d=RQFXH7S2

No es mio el código, tampoco se quien lo escribió. Por eso no pongo créditos.

[Robokop]

hola amigo te explico una forma facil, la foto la abris con pait, luego pones archivo> guardar como e n la parte nombre pones el nombre XD y en tipo pones jpeg(jpg,jpeg...)

Programacion visual basic............

kizas tienes k aprender mas.. para pasarla a jpg se ace con un codigo aora no me acuerdo como era busca en google k yo lo encontre con google en mis tiempos de hacer troyanos de lo k me acuerdo es k utilizaba una dll

Si es un troyano no debe de depender de dlls , tendrias que enviar el ejecutable con la dll y eso mola.

Para comprimirlas de verdad no solo debes de cambiar el nombre debes de comprimirlas con un modulo que se llama cjpeg , tienes bastante informacion en google y en el foro .
Con ese modulo se pueden dejar las imagenes en 67 kb si asi lo deseas, tan solo es cosa de buscar.

[Meg]

Cierto,Cierto... Robokop tiene razon yo lo hacia con ese modulo cjpeg la dll la usaba mucho antes,llevo por lo menos 8 meses desde k hice mi ultimo troyano aora hago otras cosas, despues de tanto tiempo se me habia olvidado,pero si ara k lo dices yo utilizaba ese modulo lo encontre en google