Вход | Регистрация
 

Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?

Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?
Я
   dzadzen
 
15.07.08 - 19:37
Добрый день.
Подскажи реализацию :
Как программно сделать скриншот экрана и сохранить в виде *.bmp на диск ?

Может есть какие компоненты ?
 
 
   AndrejFAA
 
1 - 15.07.08 - 19:40
Да уж.

ctrl+prtsc - Paint - shift+ins
   smaharbA
 
2 - 15.07.08 - 19:44
(1) программно ?
(0) есть
   AndrejFAA
 
3 - 15.07.08 - 19:46
(2) Второе слово пропустил. :)
Но все равно Sendkey никто не отменил.
   smaharbA
 
4 - 15.07.08 - 19:47
(3) можно пример ?
   Мелкий бес
 
5 - 15.07.08 - 19:53
Нетленка 2.2
СкриншотОкна|ScreenShotWindow
Описание: Выполняет снимок окна и сохранение рисунка в файл с сжатием в формат JPG.
Параметры:
- ДескрипторОкна – 4-х байтное, целое, беззнаковое. Принимает дескриптор окна, для которого будет выполняться снимок.
Качество– 1 байтное, целое, беззнаковое. Принимает качество сжатия рисунка. 100 – максимальное качество, 0 – минимальное качество.
КоэффициентМасштабирования– 4 байтное, дробное, знаковое. Принимает увеличение масштаба рисунка1.
ИмяФайла – строка. Принимает имя файла, который будет создан и будет содержать рисунок.
Возвращаемое значение: значение не возвращается.
   AndrejFAA
 
6 - 15.07.08 - 20:13
При наличии IrfanView.

irfan = "C:\bin\i_view32.exe"
irfan_options = "/capture=0 /resize=(25p,25p) /convert="
scr_file = "C:\screen.png"
cmd = """" & irfan & """ " & irfan_options & scr_file
WshShell.Run cmd, 1, true
   smaharbA
 
7 - 15.07.08 - 20:15
а без наличия ?
   AndrejFAA
 
8 - 15.07.08 - 20:16
Да я думал, что у Sendkey есть команда prtsc, но не нашел. Каюсь.
   AndrejFAA
 
9 - 15.07.08 - 20:23
Хотя нет.
Так сработает?

Dim wsh
Set wsh = createobject("wscript.shell")
wsh.Sendkeys "{PRTSC}"
   dzadzen
 
10 - 15.07.08 - 20:31
Спасибо за варианты. Буду рассматривать.
Очень заинтриговала компонента НЕТЛЕНКА.
Поддерживает ли компонента версию 1С 7.7. ???
 
 Рекламное место пустует
   smaharbA
 
11 - 15.07.08 - 20:34
http://www.karat-e.ru/files/hrenshoot.rar

(там конечно небольшая обманка)
   smaharbA
 
12 - 15.07.08 - 20:36
(9) нет
   Злопчинский
 
13 - 15.07.08 - 20:52
   dzadzen
 
14 - 17.07.08 - 16:13
Большое спасибо, задача решена...
благодаря вашей помощи....

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует