Can someone give me code to capture an image of your desktop and save it to a bmp file?
Printable View
Can someone give me code to capture an image of your desktop and save it to a bmp file?
VB Code:
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.
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")