• Home
 · 
• Miscellaneous
 · 
• Screen Capture Module

Screen Capture Module

Screen Capture Module

Rate Screen Capture Module

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo ErrorHandler
'Check if the file Exists
If Dir(myFile) <> "" Then Exit Function
'capture the complete screen
Call keybd_event(vbKeySnapshot, 1, 0, 0)
'To get the Active Window
'Call keybd_event(vbKeySnapshot, 0, 0, 0)

SavePicture Clipboard.GetData(vbCFBitmap), myFile
CaptureScreen = True
Exit Function

ErrorHandler:
MsgBox "Error Occured " & Err.Description
End Function

 

Private Sub Command1_Click()
Call CaptureScreen("c:\screencap.bmp")
End Sub