Capture Desktop Image to File

[assbeef]

Can someone give me code to capture an image of your desktop and save it to a bmp file?

[Vlatko]

Declare Function GetDesktopWindow Lib "user32" Alias "GetDesktopWindow" () As Long
 
Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
 
Dim dhandle As Long
dhandle = GetDesktopWindow
Dim ddc As Long
ddc = GetDC(dhandle)

Now just use BitBlt to draw the contents of the ddc DC to your pic box. Then just use the SavePicture method to save it to a file.

[Hack]

Try this:

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




'Author: Dalin Nie (Edited by Matthew Gates)
'Origin: http://www.vbcode.com
'Purpose: This function capture the screen or the active window of your computer. Programmatically and save it to a .bmp file.
'VB version: VB 6,VB 5,VB 4/32
'Save Screen As Bitmap

Private Function SaveScreen(ByVal theFile As String) As Boolean
On Error Resume Next

'To get the Entire Screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)

'To get the Active Window
'Call keybd_event(vbKeySnapshot, 0, 0, 0)

SavePicture Clipboard.GetData(vbCFBitmap), theFile

SaveScreen = True
Exit Function
End Function


'Usage


Call SaveScreen("C:\Windows\Desktop\shot1.bmp")