olá, gostaria de saber como simular um PrintScreen de forma que ao executar o comando click, eu pudesse salvar o que está no Clipboard em formato de jpg, gif ou bmp
'essa parte do código eu peguie aqui
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
Public Sub SimularPrintScreen(ByVal vblnFullScreen As Boolean)
If vblnFullScreen Then
' bScan = 0 --> Copia toda a tela pro Clipboard.
Call keybd_event(VK_SNAPSHOT, 0, 0&, 0&)
Else
' bScan = 1 --> Copia só a janela ativa pro Clipboard.
Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
End If
'essa outra parte eu fiz
SavePicture Clipboard, "c: este.jpg"
End Sub
Private Sub cmdCaptuarar_Click()
SimularPrintScreen True
End Sub
o problema está aqui:
SavePicture Clipboard, "c: este.jpg"
de alguma forma eu preciso criar um arquivo que não fique com 0kb o caso acima num dá certo
tbm jah tentei
Open "teste.bmp" for Random as SimularPrintScreen
desde jah agradeço a colaboração
