Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 22 Noviembre 2006, 18:21 pm


Título: Como hacer esta iamgen mas liviana!!
Publicado por: kakinets en 22 Noviembre 2006, 18:21 pm
Hola a todos
Bueno este es mi problema con esta codigo capto la pantalla de windows:
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 Sub Form_Load()
App.TaskVisible = False
'Captura toda la pantalla
keybd_event 44, 0, 0&, 0&
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\img.gif")
Timer1.Enabled = False
End
End Sub

Ahora el problema es q la imagen guardada pesa una banda y nesesito q pese mucho mesnos algo como 100kb o si es mas no hay drama...
Si no se me va hacer inposible subierla a la web...

           Saludos KakiNets

Espero su ayuda

Título: Re: Como hacer esta iamgen mas liviana!!
Publicado por: WarGhost en 23 Noviembre 2006, 00:02 am
porfavor busca este se a hablado muchisimo

Título: Re: Como hacer esta iamgen mas liviana!!
Publicado por: kakinets en 23 Noviembre 2006, 00:14 am
NO encontre nada por eso lo pregunto...

Título: Re: Como hacer esta iamgen mas liviana!!
Publicado por: WarGhost en 23 Noviembre 2006, 00:24 am
  • comprimir imagen:[/b]
    http://foro.elhacker.net/index.php/topic,145084.0.html

    • AYUDA CON SCREENSHOT:[/b]
      http://foro.elhacker.net/index.php/topic,114439.0.html

      • Convertir de bmp a jpg:[/b]
        http://foro.elhacker.net/index.php/topic,114360.0.html

        • Comprimir JPG!!:[/b]
          http://foro.elhacker.net/index.php/topic,133221.0.html

          • Ocupa mucho mi imagen:[/b]
            http://foro.elhacker.net/index.php/topic,135071.0.html

            • Modulo cJPEG:[/b]
              http://foro.elhacker.net/index.php/topic,135071.msg635582.html#msg635582

Título: Re: Como hacer esta iamgen mas liviana!!
Publicado por: kakinets en 23 Noviembre 2006, 14:43 pm
Bueno este es el problema

Código:
Private Sub Command1_Click()
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   'Me da error aca
        Captura.SaveFile ("c:\" & "\mu" & ".jpg")

End Sub
Fijense q les deje detallado el error!!
 
uso el codigo de cJpg mensionado en este post.

http://foro.elhacker.net/index.php/topic,135071.msg635582.html#msg635582

La verdad no tengo idea

Título: Re: Como hacer esta iamgen mas liviana!!
Publicado por: Snort en 23 Noviembre 2006, 17:31 pm
   Puede qe sea qe no se puede guardar un archivo qe contenga en el nombre "\"
Citar
Captura.SaveFile ("c:\" & "\mu" & ".jpg")
cambia eso por Captura.SaveFile ("c:\" & "mu" & ".jpg"), aunqe si dices qe el error te sale en la linea de antes... a mi tambien me daba error al principio me baje otro modulo (nose de donde) y me funciono, aqi te lo dejo por si kieres probar, aunqe teoricamente debe de ser lo mismo: http://galeon.com/webvb/Modulo_jpg.rar

   Saludos


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines