Ciau a tutti ancora io.
Mi serve il codice per fare lo screenshot di tutto il desktop.
Ho trovato qualcosa ma fà solo lo screen della form . ecco il codice:
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()
If Clipboard.GetData(vbCFBitmap) > 1 Then
SavePicture Clipboard.GetData(), "c:\windows\desktop\shot.bmp"
Else
MsgBox ("Nessuna immagine presente negli Appunti di Windows")
End If
End Sub
Private Sub Form_Load()
'simula la pressione del tasto Stamp
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0
End Sub
Come si può fare? grazie in anticipo
|