Hola a todos
Bueno este es mi problema con esta codigo capto la pantalla de windows:
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