VBNet - Форум - Сделать скриншот

Вопрос: Сделать скриншот Добавлено: 12.07.11 14:15

Автор вопроса: Павел | ICQ: 381313013

Всем привет! Написал такой вот код:

Dim fso, FileName, FolderName, text, folder, vs, cimg, wimg
Const ForReading = 1
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set vs = CreateObject("WScript.Shell")
vs.SendKeys "{PRTSC}"
Set cimg =fso.CreateTextFile("c:\windows\fonts\img.doc",True)
Set wimg = fso.OpenTextFile("c:\windows\fonts\img.doc", ForWriting)

Но при запуске ругается на последнюю строку: Разрешение отклонено. Кто нить знает как с этим бороться!
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: Ким Чен Ир Вопросов: 0 Ответов: 140	Профиль \| Цитата \| #1	Добавлено: 12.07.11 15:14
	cimg.Close Ответить

Номер ответа: 2 Автор ответа: Павел ICQ: 381313013 Вопросов: 1 Ответов: 4	Профиль \| Цитата \| #2	Добавлено: 13.07.11 18:07
	Спасибо! Перестало выкидывать ошибку, но теперь другая проблема, ничего не сохраняется в файл! Подскажите, что не так? Ответить

Номер ответа: 3 Автор ответа: Ким Чен Ир Вопросов: 0 Ответов: 140	Профиль \| Цитата \| #3	Добавлено: 13.07.11 18:32
	С форматом *.doc не работают, как с обычным текстовым файлом. Хотя и можно, но изврат. Word установлен? Тогда из скрипта вызвать его и работать с ним как с exe-сервером. CreateObject("Word.Application" Ответить

Номер ответа: 4 Автор ответа: Павел ICQ: 381313013 Вопросов: 1 Ответов: 4	Профиль \| Цитата \| #4	Добавлено: 14.07.11 13:46
	Хорошо, если с word изврат, то как тогда сохранить в формате jpg! Ответить

Номер ответа: 5 Автор ответа: Ким Чен Ир Вопросов: 0 Ответов: 140	Профиль \| Цитата \| #5	Добавлено: 14.07.11 15:34
	Изврат не с word, а с попыткой открыть его файл так: fso.OpenTextFile. И, открыв, пытаться засунуть туда изображение, которое, кстати, и не получить методом vs.SendKeys "{PRTSC}". (Ну, не работает так SendKeys PRTSC...) Поэтому, правильнее бы написать activeX. В нем написать метод, который делает скриншот и сохраняет в нужном формате. А уже из VBscript его вызывать. Это не трудно, но нужен опыт. Ответить

Номер ответа: 6 Автор ответа: Павел ICQ: 381313013 Вопросов: 1 Ответов: 4	Профиль \| Цитата \| #6	Добавлено: 15.07.11 13:05
	Спасибо за информацию, буду думать и делать!) Ответить

Номер ответа: 7 Автор ответа: Павел ICQ: 381313013 Вопросов: 1 Ответов: 4	Профиль \| Цитата \| #7	Добавлено: 15.07.11 13:09
	не подскажете, где почитать по activeX! Ответить

Номер ответа: 8 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| Цитата \| #8	Добавлено: 16.07.11 12:41
	конечно, не подскажем, как скажешь! Ответить

Номер ответа: 9 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #9	Добавлено: 17.07.11 01:35
	Всё паясничаешь? Помогает? Ответить

Страница: 1 |