Как делать скриншот экрана и сохранить в файл этот скриншот? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.137.171.121]

Правила раздела Visual Basic: Общие вопросы

Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image

FAQ Сайта

FAQ Раздела user posted image

Кладовка

Наши Исходники user posted image

API-Guide

Поиск по Разделу user posted image

MSDN Library Online user posted image

Google

Ваше мнение о модераторах: user posted image

SCINER,

B.V.

Модераторы: SCINER, B.V.

Новое голосование

Как делать скриншот экрана и сохранить в файл этот скриншот?

AlexR	Сообщ. #1 , 26.11.01, 16:57
Unregistered	Как делать скриншот экрана в промежутках от 12:00 до 13:00 и сохранить в отдельный файл каждый скриншот?

Сообщ. #2 , 27.11.01, 09:35

Unregistered

Чтобы процедура срабатывала в определенное время можно спользовать:
...
if Time = ... then myproced
...
Как сделать скриншот посмотри здесь:
http://www.sources.ru/vb/3d_screen_saver.shtml
Может быть и это пригодится твоей программе?

http://www.sources.ru/vb/vb_cybercrypt.shtml
http://www.sources.ru/vb/vb_active_keylogger.shtml
http://www.sources.ru/vb/vb_download_file_from_internet.shtml
http://www.sources.ru/vb/vb_super_pc_security.shtml
http://www.sources.ru/vb/vb_disconnect_from_internet.shtml

cr	Сообщ. #3 , 27.11.01, 10:34
Unregistered	Ты как-то спрашивал как форматнуть диск... Слей филе: http://emanual.ru/cgi-bin/get.pl?id=963&format=zip Там подробно описано.

AlexR	Сообщ. #4 , 27.11.01, 12:34
Unregistered	Спасибо!

Сообщ. #5 , 28.11.01, 11:28

Unregistered

>CR: Как сделать скриншот посмотри здесь:
>CR: http://www.sources.ru/vb/3d_screen_saver.shtml
Это не то. Написал, а не посмотрел:) Там скринсавер...
Скриншот можно сделать так:
1. Cоздать на форме PictureBox (можно сделать его невидимым)
далее программно:
2. Эмулировать нажатие клавиш Print Screen (весь экран) или Alt+Print Screen (одно активное окно)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_MENU = &H12
Const KEYEVENTF_KEYUP = &H2
Const VK_SNAPSHOT = &H2C
Private Sub ShowStartMenu()
Call keybd_event(VK_MENU, 0, 0, 0) 'Hажимаем Alt
Call keybd_event(VK_SNAPSHOT, 0, 0, 0) 'Hажимаем Print Screen
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Print Screen
Call keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0) 'Отпускаем Alt
' End
End Sub
Private Sub Command1_Click()
ShowStartMenu
End Sub
3. Вставить в пикчербокс картинку из буфера
Picture1.Picture = Clipboard.GetData
4. Сохранить картинку из пикчербокс'а
SavePicture Picture1.Picture, "C:\temp\CoolPicture.bmp"

AlexR	Сообщ. #6 , 28.11.01, 13:26
Unregistered	Я уже нашёл исходник, но всё равно спасибо.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0242 ] [ 16 queries used ] [ Generated: 2.05.24, 10:34 GMT ]