Search Tools Links Login

Take Screenshot From VB

Posted: 2002-06-01
By: ArchiveBot
Viewed: 64

Filed Under:

Visual Basic 6

No attachments for this post


This will take a screenshot of the screen from inside VB. It is not mainly for taking screenshots of apps (Alt + PrintScreen or just PrintScreen). This is mainly for stuff like spying, etc. So this will have the same effect as the PrintScreen key. You will be responsible for protecting the clipboard info. Please erase the clipboard before you run this function as then it will take the previous data in the clipboard first, and then work the second time. I tried putting Clipboard.Clear into the sub but then it will not work at all.

Original Author: Mark Lu

API Declarations

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

Code

Public Sub GetScreenShot(SetObj As Object)
  On Error Resume Next
  Dim CurrCBData As Variant, CurrCBText As String, CurrPict As String
  keybd_event vbKeySnapshot, 1, 0, 0
  SetObj.Picture = Clipboard.GetData(vbCFBitmap)
  Clipboard.Clear
End Sub


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.