01/10/2005, 06:38
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 19 años, 9 meses Puntos: 839 | |
Cita:
Iniciado por LeandroA La funciòn Api se encarga de presionar las teclas PrintScreen y Alt
En este ejemplo tiene un timer pero ponlo en el evento que te plazca
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = 2
Dim cont As Integer
Private Sub Timer1_Timer()
Dim imagen As IPictureDisp
Static cont
keybd_event 18, 0, 0, 0
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0
keybd_event 18, 0, KEYEVENTF_KEYUP, 0
Set imagen = Clipboard.GetData
Picture1 = imagen
End Sub Gracias, pero esa función ya lo conocía, el problema es que si captura cada 1 Seg. el usuario no podrá colocar ninguna imagen en el portapapeles, pues cada vez que coloca mi programa lo reeemplazará.... |