expression.GetLiveScreenImage() As Byte()
where expression is a variable that represents a ScreenHistory Object
Return Value
The live screen, in image format.
expression.GetLiveScreenImage() As Byte()
The returned image is subject to currently configured privacy filters.
Sub SaveLiveImageBmp() On Error GoTo handler Dim fname As String Dim image() As Byte 'Check or set the file name for the screen fname = InputBox("Save current Reflection screen image to:", , Environ("USERPROFILE") & "\My Documents\SessionScreen.bmp") 'If no file name is set, exit If fname = "" Then Exit Sub 'Get the screen image image = ThisIbmTerminal.Productivity.ScreenHistory.GetLiveScreenImage() 'Open a file and write the image data to the file Open fname For Binary Access Write As #1 Put #1, , image Close #1 Exit Sub handler: MsgBox Err.Description Reset End Sub