Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: Сделать скриншот Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам