El comodo, por esto de los resultados, me fio mas en pruebas hechas, que en meras suposiciones...
http://www.matousec.com/projects/windows-personal-firewall-analysis/leak-tests-results.php

Estamos hablando de seguridad, al comodo le faltan mas opciones, como las del zonealarm, pero es un groso, no deja pasar ni una, y a veces se convierte en una molestia si no se han configurado bien las reglas. Pero de todas formas, seguridad es seguridad
Saludos

Hmm, que raro, acabe de probar el codigo y me baja perfectamente el archivo, estas bajando el mismo que muestra el ejemplo, o es otro archivo. De todas formas con cualquier tipo de archivo deberia funcionar.
Saludos, y si es diferente lo que pones, mostranos tu codigo.

Bueno aca esta el codigo mas rapido, no es lo mejor pero ahi va

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim ImagenJpg As cJpeg
Dim Calidad%, Milimetros!, Antes&, Despues&
 
Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, 0, 0
End Sub
 
Private Sub Command2_Click()
Form1.WindowState = 2
DoEvents
Image1.Picture = Clipboard.GetData
Picture1.PaintPicture Image1.Picture, 0, 0, 800, 600
ImagenJpg.Quality = Calidad
ImagenJpg.SetSamplingFrequencies 1, 1, 1, 1, 1, 1
Antes = GetTickCount
If ImagenJpg.SampleHDC(Picture1.hDC, Picture1.ScaleWidth, Picture1.ScaleHeight) = 0 Then
DeNuevo:
    If Dir$("c:\prueba.jpg") <> "" Then
        Kill "c:\prueba.jpg"
        GoTo DeNuevo
    Else
        ImagenJpg.SaveFile ("c:\prueba.jpg")
    End If
End If
Despues = GetTickCount
MsgBox "Tiempo total: " & Despues - Antes & " milisegundos"
End Sub
 
Private Sub Form_Load()
Set ImagenJpg = New cJpeg
Calidad = 50
If Calidad < 1 Then Calidad = 1
If Calidad > 100 Then Calidad = 100
Form1.ScaleMode = 3
Picture1.ScaleMode = vbPixels
Picture1.Width = 800
Picture1.Height = 600
End Sub
 

En este es necesario, 1 picture, 1 image, y dos commandbutton.

Pruebas y tiempos:

Modulo CJpeg:
Sin Compilar: 2.218 milisegundos
Compilado: 0.5 milisegundos

Modulo CJpegI:
Sin Compilar: 1.906 milisegundos
Compilado: 0.375 milisegundos

Se puede notar la diferencia, ya que pasamos de una resolucion de 1200 x 800 pixeles, a una de 800 x 600.

Saludos

Bueno, estuve probando con los dos modulos, y aca estan las nuevas estadisticas:

Modulo CJpeg:
Sin compilar: 4.391 Segundos
Compilado: 0.953 Segundos

Modulo CJpegI;
Sin compilar: 3.891 Segundos
Compilado: 0.813 Segundos

Efectivamente Cobein tiene la razon, y el modulo CJpegI difiere al modulo CJpeg por unos 0.14 segundos.
Pueden descargar el modulo desde http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=50351&lngWId=1

Saludos

El problema esta en que el modulo CJpeg, al llegar a esta parte: SampleHDC(Picture1.hDC, Picture1.ScaleWidth, Picture1.ScaleHeight)
Lo que hace en realidad es esto SampleHDC(Picture1.hDC, 1200, 800), Segun cada resolucion de pantalla, y en el modulo hay varios bucles recorriendo cada pixel del picture, asi que el trabajo se vuelve pesadisimo, y por eso demora tanto en crear.
Con un procesador de 2.3ghz, y una resolucion de 1200 x 800, la imagen se me genero en 4.937 segundos, es mucho.
Pienso que se puede estrechar la imagen con el mismo modulo,o ponerla a una resolucion mas pequeña, como por ejemplo 800 x 600, pero ahora estoy cansado . Mañana, digo, ahora mas tarde (por la tarde), retomo a ver y luego te cuento, eso si tengo tiempo.
Mientras, ve mirando si se puede acomodar la imagen a una resolucion pequeña, asi yo creo que si podria dar.
Es todo.

Saludos


Porte:
Si te fijas bien en mi codigo, hay una parte donde se indica la ruta del archivo de la imagen:

    If Dir$("c:\prueba.jpg") <> "" Then
        Kill "c:\prueba.jpg"
        GoTo DeNuevo
    Else
        ImagenJpg.SaveFile ("c:\prueba.jpg")
    End If
 

Si aplicas el codigo que te puse ahi, la imagen con la captura de pantalla se guardara en c:\prueba.jpg

Saludos de nuevo

Okas, mira podes declarar de varias formas las variables, ya te explico, mejor dicho te hago una tablita:
Tipo      Equivalencia
Integer      %
Long      &
Single      !
Double      #
Currency   @
String      $

Asi que:
Dim Tiempo&
equivale a decir
Dim Tiempo As Long

Solo los que he mencionado tienen esa equivalencia, los otros tipos de datos no la tiene...

Lo hago para ahorrarme el tener que copiar tanto.

Por otro lado la instruccion call solo se usa para llamar una funcion.
Es equivalente a decir
Verificar "10"

Es todo

Saludos

Una combinacion entre keybd_event y el modulo CJpeg, apenas vine a conocer este modulo asi que no se mucho como se maneja, pero como le di al codigo quedo perfecto

Dim ImagenJpg As cJpeg
Dim Calidad%, Milimetros!
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
'Primero capturas la imagen
Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 1, 0, 0)
End Sub
 
'Luego se maximiza el formulario y mete el picture, le pone la calidad que escojemos en el form_load, y luego lo graba en el archivo prueba.jpg
Private Sub Command2_Click()
Form1.WindowState = 2
Picture1.Picture = Clipboard.GetData
ImagenJpg.Quality = Calidad
ImagenJpg.SetSamplingFrequencies 1, 1, 1, 1, 1, 1
DoEvents
If ImagenJpg.SampleHDC(Picture1.hDC, Picture1.ScaleWidth, Picture1.ScaleHeight) = 0 Then
DeNuevo:
    If Dir$("c:\prueba.jpg") <> "" Then
        Kill "c:\prueba.jpg"
        GoTo DeNuevo
    Else
        ImagenJpg.SaveFile ("c:\prueba.jpg")
    End If
End If
End Sub
 
Private Sub Form_Load()
Set ImagenJpg = New cJpeg
Calidad = 50
If Calidad < 1 Then Calidad = 1
If Calidad > 100 Then Calidad = 100
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
Picture1.ScaleMode = vbPixels
End Sub
 

El inconveniente que encontre en este modulo, es que se demora un buen rato convirtiendo el picture a una calidad menor, o igual segun el caso. Es todo, pruebalo y me decis si te funciono.

Saludos

see me equivoque , vi tu code por encima, pero tu tambien te equivocaste lee:

Jeje, saludos

Pdata. No modifiques los post
Si hace eso, entonces si se ejecuta la funcion cada segundo.

La mayoria de los servidor ftp piden autorizacion para ingresar... A no ser de que contenga un usuario anonimo, podes ingresar con el user anonymous, y una contraseña cualquiera.
Saludos

WM_QUIT = &H12
WM_DESTROY = &H2

Tanto el Quit, como el Destroy, sirven unicamente para destruir las ventanas de la aplicacion.
El quit se utiliza con el PostMessage y sirve para indicar una peticion de terminar a una aplicacion, por consiguiente no es tu opcion utilizar este mensaje.
El destroy se envia primero a la ventana de la aplicacion, primero finaliza la ventana padre, y luego todas las ventanas hijdas, por consiguiente esta tampoco es tu opcion.

Podes decir que aplicacion es para yo ensayar?
Saludos

Editado:
Ensaya con esto:

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
'&H10 = Close
'&H2 = Destroy 
 
Private Sub Cerrar_Click()
HVentana = FindWindow(vbNullString, Titulo.Text)
If HVentana <> 0 Then PostMessage HVentana, &H10, 0, 0: PostMessage HVentana, &H2, 0, 0
End Sub