Простой код на платформе VB.NET предназначен для создания и сохранения экранных снимков в форматах (Jpg), (Png), (Bmp). Управляется нажатием клавиш:
[Print Screen] - снимок полного экрана.
[Alt]+[Print Screen] - снимок активного окна.
После создания снимка задайте имя и формат файла для сохранения.
[Esc] - Выход.
NET Framework v2.0.50727
OC WinME/XP
Чтобы получить исполняемый модуль откомпиллируйте файл scshot.vb примерно следующей командой:
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe C:\...\scshot.vb /out:C:\...\scshot.exe /win32icon:C:\...\icon.ico /target:winexe
Потребуется установленный LangMF 8.0.
'---------------------------------------------------------------------------
' Скрипт предназначен для сохранения графического содержимого
' буфера обмена в BMP файл
'---------------------------------------------------------------------------
' Language LangMF 7.7.0.0
<#Module=SaveClipContent>
'----------------------------------------------------------------------
Const vbCFBitmap=2
Sub Load(cmdstr)
SaveClipContent()
EndMf
End Sub
'----------------------------------------------------------------------
Function SaveClipContent()
If Sys.ClipBoard.GetFormat(vbCFBitmap)=False Then
MsgBox "Буфер не содержит графических данных.", _
vbExclamation+vbOkOnly+vbSystemModal, _
"Сохранение картинки"
Exit Function
End If
Sleep(100)
'----------------------------------------------------------------------
SaveFileDlg=Sys.CDlg.ShowSave("Выберите файл для сохранения:", _
"BMP files (*.bmp)|*.bmp", _
"",".bmp",0,2,1,"CLP")
If SaveFileDlg="" Then Exit Function
Sleep(100)
'----------------------------------------------------------------------
Sys.File.FileNew SaveFileDlg
Sleep(100)
Set NewPic=Sys.CreateImage()
NewPic.AutoSize=1
Sleep(100)
NewPic.Picture=Sys.ClipBoard.GetData(vbCFBitmap)
Sleep(100)
Sys.Conv.Str2File Sys.Conv.Image2Str(NewPic),SaveFileDlg
Sleep(100)
'----------------------------------------------------------------------
MsgBox "Содержимое буфера сохранено.", _
vbExclamation+vbOkOnly+vbSystemModal, _
"Сохранение картинки"
'----------------------------------------------------------------------
End Function
<#Module>