sacar fotos

Crimminal_Bond
22 de Diciembre del 2003
hola a todos quiero hacer un programa que cada 1 minuto saque una foto de la pantalla y la guarde en mis documentos. para esto use el shell despues el appactivate, el sendkeys (para sacar la foto){prtsc} per no la saca me podrian ayudar. por favor
desde ya muchas gracias
Crimminal_Bond

sdemingo
22 de Diciembre del 2003
Hola,

prueba con esta función API.

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

Private Sub Command1_Click()
keybd_event VK_SNAPSHOT, 1, 0, 0
End Sub

mete este codigo en un proyecto nuevo con un boton en el formulario llamado Command1

Saludos
sdemingo

sdemingop
22 de Diciembre del 2003
Hola,

me ha parecido curiosa la utilidad que planteas y me he puesto a hacer alguans cositas.

Supongo que ya lo tendrías todo desarrollado salvo por lo de imprimir la pantalla.

Yo he hecho esto.

Option Explicit

Dim contador As Double

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const VK_SNAPSHOT = &H2C

Private Sub Form_Load()
contador = 0
End Sub

Private Sub Timer1_Timer()
Dim w As Object

AppActivate

Set w = CreateObject("Word.Application")
w.Documents.Add
'w.Visible = True
keybd_event VK_SNAPSHOT, 1, 0, 0
w.Selection.Paste
w.ActiveDocument.SaveAs FileName:="C:Documents and SettingssdemingoMis DocumentosCaptura de Pantalla " & contador & ".doc"
w.Application.Quit
Set w = Nothing

contador = contador + 1
End Sub

Es un formulario que tiene un control Timer con el intervalo a 1 minuto.

Guarda documentos word con la imagen capturada (es que no se hacerlo para que guarde solo la imagen como jpg, por ejemplo)

Tan solo tendrías que darle la ruta de tu carpeta "Mis Documentos" y urilizar el AppActivate para que se vea la aplicación que quieres en la pantalla a la hora de imprimir la pantalla.

Saludos
sdemingo