Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как программно сделать копию экрана? 
V
    Опции темы
Exception
Дата 24.3.2005, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Цитата(Mephisto @ 22.3.2005, 18:29)
буфер обмена постоянно обнуляется

Ммм да...
Mephisto, ждем smile
PM   Вверх
Mephisto
Дата 2.4.2005, 23:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34
Код
Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32" _
    (ByVal hDestDC As Long, ByVal x As Long, _
    ByVal y As Long, ByVal nWidth As Long, _
    ByVal nHeight As Long, ByVal hSrcDC As Long, _
    ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub ScreenShot()
    Dim hDesk&, hDeskDC&, pNew As IPicture
    hDesk = GetDesktopWindow
    hDeskDC = GetDC(hDesk)
    Set pNew = Me.Image
    BitBlt pNew.CurDC, 0, 0, 1024, 768, hDeskDC, 0, 0, vbSrcCopy
    'SavePicture pNew, "C:\Temp\Screen.bmp"
    DeleteDC hDeskDC
    Set pNew = Nothing
End Sub

Private Sub Form_Load()
    ScreenShot
End Sub

Enjoy.

Это сообщение отредактировал(а) Mephisto - 2.4.2005, 23:07
PM   Вверх
Exception
Дата 3.4.2005, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
+1, Mephisto
PM   Вверх
Flotskiy
Дата 4.4.2005, 05:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
Добрый день всем!
Mephisto, благодарю, и к этому топику еще один вопрос, если можно:
копии экрана записываются в папку Bitmaps, как бы при достижении, например, 300 Мб
из папки удалить все и пусть опять записываются новые?
С уважением.

--------------------
FlotskiySk k
PM MAIL   Вверх
cardinal
Дата 5.4.2005, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Модератор: Пожалуйста, один топик - один вопрос.


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Flotskiy
Дата 6.4.2005, 06:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
Добрый день всем!
cardinal, я думал, что мой вопрос относится к этой же теме.
С уважением.
--------------------
FlotskiySk k
PM MAIL   Вверх
Вадян!
Дата 15.4.2005, 02:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.3.2005

Репутация: нет
Всего: нет
Flotskiy
Мне прога тоже понравилась, наверное былобы ещё круче еслиб она не по времени копировала раб.стол а реагировала на какую либо активность рабочего стола!
Я вобщето пока только учюся так что при всём желании не смогу написать такой код
Run-time error
если можешь покажи что нужно дописать!???!!!
smile
PM MAIL   Вверх
Flotskiy
Дата 15.4.2005, 05:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 223
Регистрация: 15.11.2004
Где: г. Омск

Репутация: 1
Всего: 2
Доброе утро всем!

Вадян!, твоя мысль хороша, надо просить профессионалов, чтобы помогли в данном вопросе. Ребята, подправьте, pse, прогу, если можно.
С уважением
--------------------
FlotskiySk k
PM MAIL   Вверх
Exception
Дата 15.4.2005, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Цитата
еслиб она не по времени копировала раб.стол а реагировала на какую либо активность рабочего стола!

Она копирует не рабочий стол, а как ты уже понял, весь экран. Реагировала на что например?
PM   Вверх
Вадян!
Дата 15.4.2005, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 49
Регистрация: 27.3.2005

Репутация: нет
Всего: нет
Run-time error
Цитата
Она копирует не рабочий стол, а как ты уже понял, весь экран. Реагировала на что например?


Следить например за изменением экрана
Может я несу полный бред, так что не предавайте сильного значения моим словам в этом топике!!!

smile smile smile

PM MAIL   Вверх
Mephisto
Дата 15.4.2005, 23:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Волкъ
***


Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

Репутация: 2
Всего: 34
За изменением экрана не поллучится, а вот копировать только активную фому возможно! Для этого необходимо немного поравить мой код.

П.с. Кстати, мой код делает копию экрана только 1024х768.
Чтобы исправить необходимо снять реальные размера экрана, в случае с формой - регион формы. Ещё, копируются только формы которые не используют индексированные цвета!
PM   Вверх
jurasiks
Дата 10.2.2006, 16:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 10.2.2006

Репутация: нет
Всего: нет
А какой код добавить, чтобы скрин делался только по нажатии на кнопку (на клавиатуре) и сохранялся в формате JPG?
PM   Вверх
cardinal
Дата 10.2.2006, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Код

Private Sub Command1_Click()
...
End Sub



--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
jurasiks
Дата 11.2.2006, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 10.2.2006

Репутация: нет
Всего: нет
У меня ничего не получается, в первом коде пишет, что мол "комменты не там где надо", а второй ничего ен создаёт. Может, кто выложит пример файла (в формате VB)? Буду благодарен. smile
PM   Вверх
Exception
Дата 11.2.2006, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Что именно тебе нужно? Мой код отлично работает.
PM   Вверх
Страницы: (3) Все 1 [2] 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0547 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.