Título: AYUDA CON SCREENSHOT Publicado por: satanico88 en 19 Marzo 2006, 09:04 am Hola a todos
weno nesesito mejorar este codigo para tomar screenshots..: On Error Resume Next keybd_event vbKeySnapshot, 0, 0&, 0& picNext.PaintPicture picLatest.Image, 0, 0, 2985, 2985 picLatest.PaintPicture Clipboard.GetData(vbCFBitmap), 0, 0, 2985, 2985 For I = 1 To Len(Now) If IsNumeric(Mid(Now, I, 1)) Then file = file & Mid(Now, I, 1) End If Next I SavePicture Clipboard.GetData(vbCFBitmap), "C:/" & file & ".jpg" weno.. el problema es q la Screenshot la toma bien.. la guarda en C .. y con extensión JPG.. pero la calidad de la foto sigue siendo BMP.. y pesan 2.5mb cada screenshot.. nesesito q alguien edite el code y lo haga para q sake en JPG desde ya muchas gracias chau ! Título: Re: AYUDA CON SCREENSHOT Publicado por: satanico88 en 19 Marzo 2006, 09:05 am me olvidaba de poner el modulo :rolleyes:
Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) |