• Home
 · 
• Windows API Call/Explanation
 · 
• This function capture the screen or the active window of your computer Programmatically and save it

This function capture the screen or the active window of your computer Programmatically and save it

This function capture the screen or the active window of your computer Programmatically and save it to a .bmp file. This allows you to get

Rate This function capture the screen or the active window of your computer Programmatically and save it

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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


Public Function fSaveGuiToFile(ByVal theFile As String) As Boolean

'   Name:       fSaveGuiToFile
'   Author:     Dalin Nie
'   Written:    4/2/99
'   Purpose:
'       This procedure will Capture the Screen or the active window of your Computer and Save it as 
'       a .bmp file

'   Input:
'       theFile   file Name with path, where you want the .bmp to be saved

'
'   Output:
'       True if successful
'

Dim lString As String

On Error goto Trap
'Check if the File Exist
    If Dir(theFile) <> "" Then Exit Function

    '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

fSaveGuiToFile = True
Exit Function

Trap:
'Error handling
MsgBox "Error Occured in fSaveGuiToFile. Error #: " & Err.Number & ", " & Err.Description

End Function