не могу выполнить код VBScript из 1С #794207

Всех приветствую, хочу при нажатии кнопки принтскрин в 1С сохранить изображение в файл. Нашел скрипт на VBS , но как-то не могу выполнить в 1С, мой код:

что пишет?

Ошибка компиляции Microsoft VBScript: Предполагается наличие ')' хотя скобки все нормально стоят. Комментарил тело кода, по ходу ругается на первую строку, где объявляется функция VBS

отсюдава ?

нет, я ссылку приложил, мне надо по кновке PrntScrn изображение в файл сохранить. Сама процедура с сайта микрософт, а вот интегрировать ее в 1С - затык какой-то со скобкой((

Можно попробовать в экселе создать макрос, запихнуть туда код на VB и выполнить его, если есть синтаксические ошибки то в VB-шном дебагере они будут показаны.

КонецПроцедуры - не торкает ?

Попробуй просто создать файл vbs и проверить код

а может нужно процедуру со скобками вызывать?

Button1_Click

у тебя с кавычками беда.

а может и нет

> Нашел скрипт на VBS VB <> VBS

+

Это чего за хрень ? Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject Так ни в Vb ни в VbScript не пишут. Далее, в VbScript, в отличие от Vb нет типов вообще, то есть As и что после него просто удалить. Ну и Dim заменить на Set. Может быть, что-то и получится. Потом, где мы хотим это получать ? System.Windows.Forms.Clipboard.GetDataObject Это, как бы, NET-овская фича.

готовые велики не устраивают?

хороши велики, только не едет (скачать готовые обработки возможности нет). В принципе, весь код ниже, но вчем затык не догоняю((. Может Текст надо как-то по-другому в шел передавать?

если хочешь юзать .нет, то есть тут одна библиотечка

да без разницы, что юзать, только без доп. установки на комп. задача в принципе простая - по нажатию кнопки принтскрин сохранить изображение в файл. Код вроде рабочий, но только как его выполнить в 1С не допираю.

если с проводника запустить то отрабатывает?

запихнул в командный файл wscript.exe {[void][Reflecti..... вылетает с ошибкой "Отсутствует исполняющее ядро для расширения имени файла .Forms);$size"

откуда ты тогда знаешь, что код рабочий?

Интересно, а у кого-нибудь такой код выполняется без ошибок? Если да, буду у себя копать...

этот код везде один только как правильно скрипт запустить в шеле не указано, может какой бубен еще нужен(

так это же PowerShell, а не vbscript

а vbscript используется только для запуска пауэршелл скрипта

хотя можно и через ЗапуститьПриложение

На сервере не взлетит :)

если картинка нужна только окна 1с, то так, например, тупо формексом + метод ПолучитьКартинку

пауэршелл скрипты запускаются так Powershell -File ./systemInfo.ps1

что за бред вообще? )) как можно заниматься тупым копи-пастом? При чем тут VBS, если это код VB? Пример показан для размышления, что это функция якобы висит на кнопке Button1 и сохраняет в файл из буфера при нажатии. даже если ты назовешь правильно главную функцию Public Sub Main то все равно работать так не будет примерно это, но надо компилить в exe-файл в самой Visual Studio Public Sub Main(args As string)             If Not System.Windows.Forms.Clipboard.GetDataObject Is Nothing Then                 Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject                 If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then                     Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)                     'To Save as Bitmap                     oImgObj.Save("c:Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)                     'To Save as Jpeg                     oImgObj.Save("c:Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)                     'To Save as Gif