 |
A Domino developer can use the LotusScript code below to implement, for example, a "Capture screenshot" button for end users.
Sub Click(Source As Button)
' Coded by NotesMail Consulting - www.notesmail.com
Const TITLE = "Capture screenshot"
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim result As Integer
Dim formula1 As Variant
Dim sysDrive, fileName, prog, msg As String
Dim Win64flag, choice As Boolean
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
msg = "Press Alt-Print Screen (Alt-PrtSc) keys before clicking this button. After clicking button paste into Paint, select & cut, then paste into email. Continue?" & Chr(13) & Chr(13) & "NOTE: Snipping Tool runs on Windows 7/Vista or higher."
' Determine Windows version; MSFT Snipping Tool installed on Windows Vista (6.0) and higher
formula1 = Evaluate(|@TextToNumber(@Subset(@Subset(@Platform([Specific]); -2); 1))|, doc)
If formula1(0) < 6 Then prog = "mspaint.exe" Else prog = "C:\Windows\sysnative\SnippingTool.exe"
' Support Windows XP: Snipping Tool is not installed, so MSFT Paint will be launched instead
If formula1(0) < 6 Then
choice = ws.Prompt (PROMPT_YESNO, TITLE, msg)
If Not choice Then Exit Sub
End If
result = Shell(prog, 1)
End Sub
Reference Sources
Microsoft Snipping Tool
Snipping Tool is a screenshooting utility included in Windows Vista and later. It can take screenshots of an open window, rectangular areas, a free-form area, or the entire screen. Snips can then be annotated using a mouse or a tablet, stored as an image file (PNG, GIF, or JPEG file) or an MHTML file, or e-mailed. Snipping Tool allows for basic image editing of the snapshot, with different colored pens, an eraser, and a highlighter.
Microsoft Paint
Paint (formerly Paintbrush for Windows) is a simple graphics painting program that has been included with all versions of Microsoft Windows. It is often referred to as MS Paint or Microsoft Paint. The program opens and saves files as Windows bitmap (24-bit, 256 color, 16 color, and monochrome, all with the .bmp extension), JPEG, GIF (without animation or transparency, although the Windows 98 version, a Windows 95 upgrade, and the Windows NT4 version did support the latter), PNG (without alpha channel), and TIFF (without multiple page support).
| B |