Ошибка компиляции microsoft jscript предполагается наличие

   fly7

22.04.15 — 12:35

пишу так

    ScrptCtrl = новый COMОбъект(«MSScriptControl.ScriptControl»);

    ScrptCtrl.Language=»JScript»;

    ScrptCtrl.AddCode(»

        |apiSignature(String userId, String key, String nonce, String secret) throws Exception

        |{

        |    String data = userId+key+nonce;

        |    Mac hmacSha256 = Mac.getInstance(‘HmacSHA256’);

        |    SecretKeySpec secretKey = new SecretKeySpec(secret.getBytes(), ‘HmacSHA256’);

        |    hmacSha256.init(secretKey);

        |    return Hex.encodeHexString(hmacSha256.doFinal(data.getBytes())).toUpperCase();

        |}»);

        
    signature = ScrptCtrl.Eval(«apiSignature(‘» + userid + «‘,» + api_key + «‘,» + nonce + «‘,» + secret + «‘)»);

выдает ошибку

{ВнешняяОбработка.ПолучитьВокеров.МодульОбъекта(55)}: Ошибка при вызове метода контекста (AddCode)

    ScrptCtrl.AddCode(»

по причине:

Произошла исключительная ситуация (Ошибка компиляции Microsoft JScript): Предполагается наличие ‘)’

   Лефмихалыч

1 — 22.04.15 — 12:43

(0) А кто тебе сказал, что MSScriptControl в сосотянии выполнять код Java? Он может выполнить JavaScript или VB, но ни как не Java

Ну и причина синтаксической ошибки в том, что внутри строки кавычки нужно дублировать:

ПереМенная = «вот сейчас будет кавычка «»внутри»» строки»

   TStan

2 — 22.04.15 — 12:54

JS <> Java, или в заголовке очепятка?

   fly7

3 — 22.04.15 — 12:58

(2) Java

мне надо получить сигнатуру, путем шифрования с секретом

на сайте дана такая функция

Example (Java):

public static String apiSignature(String userId, String key, String nonce, String secret) throws Exception {

    String data = userId+key+nonce;

    Mac hmacSha256 = Mac.getInstance(«HmacSHA256»);

    SecretKeySpec secretKey = new SecretKeySpec(secret.getBytes(), «HmacSHA256»);

    hmacSha256.init(secretKey);

    return Hex.encodeHexString(hmacSha256.doFinal(data.getBytes())).toUpperCase();

}

   Garykom

4 — 22.04.15 — 13:00

(3) код java можно установив java машину выполнять практически на любой железке

т.е. выкинь «MSScriptControl»

   Garykom

5 — 22.04.15 — 13:01

(4)+ правильно будет наваять на java (раз есть код частично готовый) прогу (консольную) и вызывать/запускать ее с параметрами из 1С, потом результат откуда нуна забирать

   Лефмихалыч

6 — 22.04.15 — 13:02

(3) ты это можешь выполнить из 1С только путем КомандаСистемы(«javac.exe pathtoapplet»)

MSScriptControl это выполнить не может

   Garykom

7 — 22.04.15 — 13:03

(5)+ да эту прогу на java наваянную раз 1С 8.X засунуть в двоичные данные еще можно и перед запуском сохраняешь в темп и там запускаешь

   fly7

8 — 22.04.15 — 14:24

Рассчитал подпись на одном онлайн сайте, отправил ее на мой сервер, а он все равно отвечает

{«code»:-7,»message»:»Signature error»}

отправляю так

    signature = МодульBTCE.ЗашифроватьSHA256(userId + api_key + nonce, secret);

    
    ПостСообщение =

        «key=» + api_key +

        «&nonce=» + nonce +

        «&signature=» + signature;//+

    //    «&pageEnable=0» +

    //    «&page=1» +

    //    «&pageSize=100»;

        
    ИмяФайлаИсх = ПолучитьИмяВременногоФайла();

    ДлинаСообщения = МодульBTCE.ЗаписатьСтрокуВФайлUTF8безBOM(ИмяФайлаИсх, ПостСообщение);

    
    HTTPЗапрос = Новый HTTPЗапрос;

    //HTTPЗапрос.АдресРесурса = «api/workers.htm»;

    HTTPЗапрос.АдресРесурса = «api/poolStats.htm»;

    HTTPЗапрос.Заголовки.Вставить(«Content-Type», «application/x-www-form-urlencoded»);

    HTTPЗапрос.Заголовки.Вставить(«Content-Length», ДлинаСообщения);

    HTTPЗапрос.УстановитьИмяФайлаТела(ИмяФайлаИсх);

    
    Соединение = Новый HTTPСоединение(«antpool.com»,,,,, 5, Новый ЗащищенноеСоединениеOpenSSL);

    ОтветHTTP = Соединение.ОтправитьДляОбработки(HTTPЗапрос);

    Ответ = ОтветHTTP.ПолучитьТелоКакСтроку();

   fly7

9 — 22.04.15 — 14:25

в чем может быть косяк? спросить у китайцев не получается

   Лефмихалыч

10 — 22.04.15 — 14:31

(9) в чем косяк-то?

   fly7

11 — 22.04.15 — 15:01

косяк в том, что API отвечает что не верная сигнатура

{«code»:-7,»message»:»Signature error»}

хотя я ее рассчитал в онлайн шифровальщике, с моим расчетом полностью совпадает

   Torquader

12 — 23.04.15 — 00:53

А в 1С, насколько я помню, есть обращение к криптопровайдерам.

Потом, не забываем, что все сигнатуры требуют, чтобы строки были в кодировке UTF-8, а не двухбайтовые, как в 1С, JavaScript и т.п.

P.S. можно скачать библиотеку javascript с генератором подписей и перевести её на 1С.

(У меня, например, где-то sha256 на VbScript валяется — сам писал — ничего там сложного нет).

   Котокот

13 — 23.04.15 — 01:00

Sha256 можно получить средствами 1С (если речь идёт именно об этом)

  

Torquader

14 — 23.04.15 — 01:14

(13) Да у него всё равно там в кавычках ошибка, да и про метод Call он явно не знает.

Источник
Номер Описание 5 Invalid procedure call or argument Недопустимый вызов или аргумент процедуры 6 Overflow Переполнение 7 Out of memory Недостаточно памяти 9 Subscript out of range Индекс выходит за пределы допустимого диапазона 10 This array is fixed or temporarily locked Массив имеет фиксированную длину или временно блокирован 11 Division by zero Деление на 0 13 Type mismatch Несоответствие типа 14 Out of string space Недостаточно памяти для строки 17 Can’t perform requested operation Невозможно выполнить требуемую операцию 28 Out of stack space Недостаточно места в стеке 35 Sub or Function not defined Процедура Sub или Function не определена 48 Error in loading DLL Ошибка при загрузке DLL 51 Internal error Внутренняя ошибка 52 Bad file name or number Недопустимое имя или номер файла 53 File not found Файл не найден 54 Bad file mode Недопустимый режим файла 55 File already open Файл уже открыт 57 Device I/O error Ошибка устройства ввода-вывода 58 File already exists Файл уже существует 61 Disk full Диск переполнен 62 Input past end of file Ввод данных за пределами файла 67 Too many files Слишком много файлов 68 Device unavailable Нет доступа к устройству 70 Permission denied Разрешение отклонено 71 Disk not ready Диск не готов 74 Can’t rename with different drive Невозможно переименование с другим именем диска 75 Path/File access error Ошибка доступа к файлу/каталогу 76 Path not found Путь не найден 91 Object variable or With block variable not set Объектная переменная или переменная блока With не задана 92 For loop not initialized Цикл For не инициализирован 94 Invalid use of Null Недопустимое использование Null 322 Can’t create necessary temporary file Невозможно создание требуемого временного файла 424 Object required Требуется объект 429 Automation server can’t create object Невозможно создание объекта сервером программирования объектов 430 Class doesn’t support Automation Класс не поддерживает программирование объектов 432 File name or class name not found during Automation operation Не найдено имя файла или класса при операции программирования объектов 438 Object doesn’t support this property or method Объект не поддерживает это свойство или метод 440 Automation error Ошибка программирования объектов 445 Object doesn’t support this action Команда не поддерживается объектом 446 Object doesn’t support named arguments Объект не поддерживает именованные аргументы 447 Object doesn’t support current locale setting Объект не поддерживает текущую национальную настройку 448 Named argument not found Именованный аргумент не найден 449 Argument not optional Обязательный аргумент 450 Wrong number of arguments or invalid property assignment Недопустимое число аргументов или присвоение значения свойства 451 Object not a collection Объект не является семейством 453 Specified DLL function not found Указанная функция DLL не найдена 458 Variable uses an Automation type not supported in JScript Переменная использует не поддерживаемый в JScript тип программирования объектов 462 The remote server machine does not exist or is unavailable Удаленный сервер не существует или недоступен 501 Cannot assign to variable Присвоение значения переменной невозможно 502 Object not safe for scripting Применение объекта в сценариях небезопасно 503 Object not safe for initializing Инициализация объекта небезопасна 504 Object not safe for creating Создание объекта небезопасно 507 An exception occurred Произошло исключение 4096 Microsoft JScript compilation error Ошибка компиляции Microsoft JScript 4097 Microsoft JScript runtime error Ошибка выполнения Microsoft JScript 4098 Unknown runtime error Неизвестная ошибка выполнения 5000 Cannot assign to ‘this’ Невозможно присвоение значения ‘this’ 5001 Number expected Предполагается наличие числа 5002 Function expected Предполагается наличие функции 5003 Cannot assign to a function result Невозможно присвоение результату функции 5004 Cannot index object Невозможно индексирование объекта 5005 String expected Предполагается наличие строки 5006 Date object expected Предполагается наличие объекта-даты 5007 Object expected Предполагается наличие объекта 5008 Illegal assignment Недопустимое присвоение 5009 Undefined identifier Неопределенный идентификатор 5010 Boolean expected Предполагается наличие логического значения 5011 Can’t execute code from a freed script Не удается выполнить программу из освобожденного сценария 5012 Object member expected Предполагается наличие компонента объекта 5013 VBArray expected Предполагается наличие VBArray 5014 JScript object expected Предполагается наличие объекта JScript 5015 Enumerator object expected Предполагается наличие объекта Enumerator 5016 Regular Expression object expected Предполагается наличие объекта регулярного выражения 5017 Syntax error in regular expression Ошибка синтаксиса в регулярном выражении 5018 Unexpected quantifier Неизвестный числовой показатель 5019 Expected ‘]’ in regular expression Предполагается наличие ‘]’ в регулярном выражении 5020 Expected ‘)’ in regular expression Предполагается наличие ‘)’ в регулярном выражении 5021 Invalid range in character set Недопустимый диапазон в наборе символов 5022 Exception thrown and not caught Исключение сгенерировано и не обработано 5023 Function does not have a valid prototype object Функция не имеет правильного объекта- прототипа 5024 The URI to be encoded contains an invalid character Кодируемый URI содержит недопустимый символ 5025 The URI to be decoded is not a valid encoding Декодируемый URI имеет неверную кодировку 5026 The number of fractional digits is out of range Недопустимое число цифр дробной части 5027 The precision is out of range Недопустимое значение точности 5028 Array of arguments object expected Предполагается наличие объекта массив аргументов 5029 Array length must be a finite positive integer Длина массива должна быть целым положительным числом 5030 Array length must be assigned a finite positive number Длине массива должна быть присвоено целое положительное число 5031 Array object expected Предполагается наличие объекта Array
Источник


Как зарегистрироваться на форуме?

Блог имени smitatyana (темы, которые создал(а) участник форума smitatyana)

Предполагается наличие «;» — Ошибка компиляции Microsoft JScript

Здрасти.
Скачала, установила, но при 1 шаге мастера
Среда исполнения Java-приложений (JRE) на данном компьютере не обнаружена. Требуется установка (~14 МБ). Данная среда необходима для обеспечения конфиденциальности отправки данных на сервер Кабинета налогоплательщика. Скачайте и установите JRE следуя по ссылке, указанной ниже. После завершения процесса установки перезапустите браузер.

Внимание! Для установки JRE вам понадобятся права администратора.

Выдается сообщение : Предполагается наличие «;» — Ошибка компиляции MS Jscript

Rfr htить проблему?

Аватара пользователя
smitatyana
——-
 
Сообщения: 136
Зарегистрирован: 19 сен 2008, 11:20
Откуда: Алматы
Профессия: IT Специалист
Блог имени smitatyana
Активность участника

    Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

    Сообщение sokref » 15 апр 2009, 22:20

    Совершенно верно, не зная браузер и другие данные это только гадание. Раньше не было таких проблем? Вообще насколько я помню, если в JScript идет ошибка, то еще пишется код ошибки — набор букв и цифр. По-крайней мере, пару лет назад в браузере IE так было
    Тогда проще разобраться

    sokref
    Эксперт-Куратор
     
    Сообщения: 9576
    Зарегистрирован: 26 янв 2008, 20:30
    Профессия: Компьютерщик (не 1С)
    Блог имени sokref
    Активность участника

    Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

    Сообщение smitatyana » 16 апр 2009, 08:56

    Как было рекомендовано, использую ослика IE
    версии 6.0.2900.2180.xpsp_sp2_rtm.040803-2158
    обновления SP2
    C правами админа на WinXP pro 2002 SP2
    Пробовала весь вчерашний день. То установлю платформу, то удолю, то переустановлю, то перезагружусь.
    Ничего не помогает.
    Никакого кода ошибки нет. Просто сообщение, даже не об ошибке! Диалоговое окно было бы со знаком X, если была бы ошибка. А так изображен восклицательный знак! При разработке приложения это означает просто предупреждение. Теоретически.

    Хотя могли и на критическую ошибку подвесить радостный знак!
    Или это не критическая ошибка. А если так, то я должна работать! А если приложение не работает, значит, я ее считаю критической! И стоит об этом информировать соответствующе! X!

    В панели управления есть значек этой платформы.
    Вроде рассказала обо всем уже.
    Помогите!

    Аватара пользователя
    smitatyana
    ——-
     
    Сообщения: 136
    Зарегистрирован: 19 сен 2008, 11:20
    Откуда: Алматы
    Профессия: IT Специалист
    Блог имени smitatyana
    Активность участника

      Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

      Сообщение Кайрат-F2 » 16 апр 2009, 10:11

      Я правильно понимаю, что ссылка

      http://cabinet.salyk.kz/jre-6u12-windows-i586-p.zip

      показывается. Вы ее скачали и установили?
      После того, как установили, нужно закрыть IE и открыть повторно, если не помогает, то перезагрузиться.
      Я сейчас специально на компьютере с таким же браузером проверяю, на которой еще нет JRE. Ошибка не повторяется.
      Ну и стандартно, все инструкции выполнили?

      http://cabinet.salyk.kz/

      и

      https://cabinet.salyk.kz/

      в доверенную зону добавили?
      И еще какие антивирусы установлены (точное название + версия), какой прокси используете?

      Кайрат-F2

       
      Сообщения: 37148
      Зарегистрирован: 27 янв 2008, 16:54
      Откуда: г. Мальмё (Швеция)
      Профессия: IT Специалист
      Блог имени Кайрат-F2
      Активность участника

        Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

        Сообщение Наталяка » 16 апр 2009, 11:19

        Товарищи, простите, вру, JSc ставила так, когда по шагам пошла, вышло что его необходимо установить, скачала и стала ставить, и только потом поставила салык в доверительные узлы, если б сначала поставила в узлы, а потом поставила JSc, ошибки бы не возникло наверное.

        Наталяка
        ——-
         
        Сообщения: 286
        Зарегистрирован: 28 авг 2008, 09:22
        Профессия: Другое
        Блог имени Наталяка
        Активность участника

        Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

        Сообщение Наталяка » 16 апр 2009, 14:30

        Простите, я дурень, когда первый раз на комп буха ставила, сначала выбрала — Проверка наличия необходимых настроек.
        При проверки сказал, что нет у меня Microsoft JSc, сохранила диструтив, поставила его при открытом IE (что неправильно, сейчас ето знаю), и после установки ошибка про «;». Бросила это дело, решила ставить на свой комп, сразу же поставила Microsoft JSc, что тоже неправильно, первоначально надо было в доверительные узлы ставить, вышла ошибка про «;», нажала ОК, ошибки больше не было. Всё закончилось удачно, указала ключик биновский, он поменялся для кабинета НП. Всё, этой ошибки больше не было.

        Наталяка
        ——-
         
        Сообщения: 286
        Зарегистрирован: 28 авг 2008, 09:22
        Профессия: Другое
        Блог имени Наталяка
        Активность участника

        Re: Предполагается наличие «;» — Ошибка компиляции Microsoft JSc

        Сообщение smitatyana » 04 авг 2009, 11:40

        После недолгой работы кабинета, он вылетел …. В трубу, что называется …
        Вообщем опять эта точка с запятой … Ошибка — предполагается наличие ; …
        Все вышеперечисленные рекомендации выполнила. Устанавливаю заново яву при закрытом IE. Предварительно добавив cabinet.salyk.kz в доверительные узлы …
        Пробовала тоже самое и с 12 и с 13 явой ..
        Есть какие-нибудь рекомендации по этому поводу?

        Аватара пользователя
        smitatyana
        ——-
         
        Сообщения: 136
        Зарегистрирован: 19 сен 2008, 11:20
        Откуда: Алматы
        Профессия: IT Специалист
        Блог имени smitatyana
        Активность участника

          Привет. Мы ищем таланты:

          • Тебе интересен форум? Ты хочешь участвовать и развивать его?
          • Тебе интересно в твоей профессии?
          • Тебе есть чем поделиться из твоего опыта с коллегами на форуме? Есть чем поделиться из собственного опыта, научить или рассказать?

          Мы ищем таланты, которые помогут развить форум.
          Что взамен:

          • Получить приглашение на форум
          • Радость общения
          • Совместное развитие

          Как: об этом написано на странице: http://tandem.f2.kz/

          Вернуться в Кабинет налогоплательщика Казахстана

            • Ошибка КН: «Недопустимые значения в названии фирмы»
              Lisa888 » 12 ноя 2009, 14:36
              6 Ответы
              1231 Просмотры
              Последнее сообщение Lisa888
              Перейти к последнему сообщению
              12 ноя 2009, 16:31
            • «Черновик — ошибка импорта» при открытии сопроводительной
              Necytij » 05 авг 2014, 20:21
              26 Ответы
              3189 Просмотры
              Последнее сообщение Кайрат-F2
              Перейти к последнему сообщению
              07 авг 2014, 21:03
            • «Ошибка сертификата» в браузере
              Вложения Lenysia » 29 янв 2010, 19:12
              31 Ответы
              10481 Просмотры
              Последнее сообщение filomena71
              Перейти к последнему сообщению
              18 мар 2016, 09:44
            • Сообщение в Кабинете: «Во время подписи произошли ошибки»
              Nataly_ZH » 21 май 2009, 11:28
              11 Ответы
              14664 Просмотры
              Последнее сообщение zhudika
              Перейти к последнему сообщению
              18 мар 2010, 09:23
            • Не работает кнопка «Вход с личного компьютера» в Кабинете НП
              Кайрат-F2 » 03 дек 2010, 12:48
              13 Ответы
              6408 Просмотры
              Последнее сообщение олюшка
              Перейти к последнему сообщению
              02 фев 2011, 08:43

            Кто сейчас на конференции

            Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

            Источник

            I think I have narrowed it down to adding the closing part in server.R. Once I add the session section:

            function(input, output, session) {

  output$distPlot <- renderPlot({

    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2] 
    bins <- seq(min(x), max(x), length.out = input$bins + 1)

    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')

  })

  session$onSessionEnded(function() {
    stopApp()
    q("no")
  })

}

            Then I start getting this error. It works before adding in the session section but it does not close properly.

            Источник

            kopirss

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            1

            VBS

            Подправить скрипт, чтоб файл создавался в любой папке

            29.12.2022, 15:34. Показов 845. Ответов 15

            Метки desktop, folder, url, vbscript (Все метки)

            Студворк — интернет-сервис помощи студентам

            Всех с наступающим. Есть скрипт для создания ярлыка URL из буфера обмена. Кнопка стоит в контекстном меню.
            Но из какой бы папки не запускал, ярлык всегда создаётся только на рабочем столе.
            Можно ли сделать чтоб ярлык создавался везде, в той папке где нажимаю кнопку?
            =========

            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13

            clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text") 
Randomize() 
FileName=Inputbox("Введите имя:","Создание текстового документа.") 
'Для кнопки Отмена или для пустого поля ввода 
If FileName=Empty Then 
WScript.Quit 
End If 
 
With CreateObject("WScript.Shell") 
Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") + "" + Filename + ".url") 
myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard) 
myshortcut.Save 
End With



            0

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            29.12.2022, 19:45

            2

            kopirss, интересная ссылка с другого места (5.8) в ЛС.



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            29.12.2022, 20:08

             [ТС]

            3

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            ссылка с другого места

            А можно ли этот подправить?
            (в ЛС я ответил)



            0

            FlasherX

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            29.12.2022, 22:15

            4
            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

            With GetObject("New:1C3B4210-F441-11CE-B9EA-00AA006B1A69)")
   .GetFromClipboard: Clip = Trim(.GetText)
End With
If IsNull(Clip) Or Clip = "" Then WSH.Quit
Test = LCase(Left(Clip, 4))
If Test <> "www." And Test <> "http" Then MsgBox "Буфер обмена " &_
"не содержит гиперссылки!", 262192, " Создание URL-ярлыка": WSH.Quit
 
S = Split(": ? * ""  / |")
R = Array(-230,-225,-246,698,-24,-24,-24)
 
With WSH.CreateObject("InternetExplorer.Application", "IE_")
   .Visible = 0: .Silent = 1: .AddressBar = 0
   .MenuBar = 0: .ToolBar = 0: .StatusBar = 0: .Navigate URL, 10
   While IsEmpty(Title) Or Left(Title, 4) = "http"
      WSH.Sleep 40
   Wend
   .Stop: .ExecWB 45, 2
End With
Sub IE_TitleChange(T): Title = Trim(T): End Sub
 
FN = Title & ".url"
For i = 1 To 7: FN = Replace(FN, S(i), ChrW(R(i))): Next
FN = CreateObject("WScript.Shell").CurrentDirectory & "" & FN
If Len(FN) > 259 Then Pr = "\?"
 
With CreateObject("Scripting.FileSystemObject").CreateTextFile(Pr & FN, 1, 1)
   .Write "[InternetShortcut]" & vbCrLf & "URL=" & URL: .Close
End With



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            29.12.2022, 22:29

             [ТС]

            5

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            With GetObject(«New:

            Не, не работает, и на vbs и на js. И тут вроде нет всплывающего окошка для ввода имени перед созданием, «Введите имя».



            0

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            29.12.2022, 22:40

            6

            kopirss, не работает — это не информация. Всегда публикуйте все подробности с приведением текста ошибки и т. п.



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            29.12.2022, 23:03

             [ТС]

            7

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            Всегда публикуйте все подробности с приведением текста ошибки

            Это в .vbs
            Строка: 8
            Символ: 1
            Ошибка: Недопустимый знак
            Код: 800A0408
            Источник: Ошибка компиляции Microsoft VBScript

            А это .js
            Строка: 1
            Символ: 6
            Ошибка: Предполагается наличие ‘;’
            Код: 800A03EC
            Источник: Ошибка компиляции Microsoft JScript
            Пробовал и пробелы убирать, иногда срабатывает, но сейчас нет.

            Добавлено через 7 минут

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            подробности с приведением текста ошибки

            А это без пробелов в .vbs
            Строка: 1
            Символ: 1
            Ошибка: Невозможно создание объекта контейнером ActiveX: ‘GetObject’
            Код: 800A01AD
            Источник: Ошибка выполнения Microsoft VBScript
            ———
            А в .js так же как и с пробелами, ошибка та же.



            0

            FlasherX

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            29.12.2022, 23:47

            8

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Ошибка: Недопустимый знак
            Код: 800A0408

            Вы ещё не рабозрались, в какой кодировке сохранять код? ANSI или UTF-16.

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            А это .js

            Обрамление кода было бы в Javascript, а не Visual Basic. Не путайте.

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            А это без пробелов в .vbs

            Каких ещё пробелов?

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Ошибка: Невозможно создание объекта контейнером ActiveX: ‘GetObject’

            Понятно. У вас же 7-ка? Значит, один из хотфиксов выпилил либу. Тогда так:

            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

            Set WSS = CreateObject("WScript.Shell")
R = "HKCUSoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones31407"
On Error Resume Next
A = WSS.RegRead(R): If A > 0 Or Err.Number <> 0 Then WSS.RegWrite R, 0, "REG_DWORD"
URL = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then WSS.RegWrite R, A, "REG_DWORD"
If URL = "" Then WSH.Quit() Else Test = LCase(Left(URL, 4))
If Test <> "www." And Test <> "http" Then MsgBox "Буфер обмена " &_
"не содержит гиперссылки!", 262192, " Создание URL-ярлыка": WSH.Quit
 
On Error Goto 0
S = Split(": ? * ""  / |")
R = Array(-230,-225,-246,698,-24,-24,-24)
 
With WSH.CreateObject("InternetExplorer.Application", "IE_")
   .Visible = 0: .Silent = 1: .AddressBar = 0
   .MenuBar = 0: .ToolBar = 0: .StatusBar = 0: .Navigate URL, 10
   While IsEmpty(Title) Or Left(Title, 4) = "http"
      WSH.Sleep 40
   Wend
   .Stop: .ExecWB 45, 2
End With
Sub IE_TitleChange(T): Title = Trim(T): End Sub
 
FN = Title & ".url"
For i = 1 To 7: FN = Replace(FN, S(i), ChrW(R(i))): Next
FN = WSS.CurrentDirectory & "" & FN
If Len(FN) > 259 Then Pr = "\?"
 
With CreateObject("Scripting.FileSystemObject").CreateTextFile(Pr & FN, 1, 1)
   .Write "[InternetShortcut]" & vbCrLf & "URL=" & URL: .Close
End With
Set WSS = Nothing



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            30.12.2022, 00:01

             [ТС]

            9

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            Тогда так:

            В кодировке ANSI
            Опять ошибка. В .vbs
            Строка: 10
            Символ: 1
            Ошибка: Недопустимый знак
            Код: 800A0408
            Источник: Ошибка компиляции Microsoft VBScript

            И в .js
            Строка: 1
            Символ: 5
            Ошибка: Предполагается наличие ‘;’
            Код: 800A03EC
            Источник: Ошибка компиляции Microsoft JScript



            0

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            30.12.2022, 00:06

            10

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            В кодировке ANSI
            Опять ошибка. В .vbs
            Строка: 10
            Символ: 1
            Ошибка: Недопустимый знак

            Строка 10 пустая. Там больше неоткуда этой ошибке взяться.

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            И в .js

            Мне ещё раз про BBCode повторить?



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            30.12.2022, 00:17

             [ТС]

            11

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            BBCode

            А это я уже не знаю что это. Там при сохранении только ANSI, UTF-8, Юникод, Юникод Big Endian. Этого даже в Notepad++ нет, хотя там их не мало.



            0

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            30.12.2022, 00:41

            12

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            А это я уже не знаю что это.

            См. 2 ссылки снизу формы ответа (

            Справка по BB-кодам Как работать в редакторе сообщений

            ).



            0

            kopirss

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            01.01.2023, 21:36

             [ТС]

            13

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            Мне ещё раз про BBCode повторить?

            Всё, сам создал, даже несколько.

            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13
14

            Set WshShell = WScript.CreateObject("WScript.Shell")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName=Inputbox("Введите имя:","Создание текстового документа.")
'Для кнопки Отмена или для пустого поля ввода
 If FileName=Empty Then
   WScript.Quit
 End If
 
With CreateObject("WScript.Shell")
set myshortcut = WshShell.CreateShortcut(DPath & + ("") + Filename + ".url")
myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
myshortcut.Save
End With

            А это как у вас аналог, только имена не сайтов берутся, а своё постоянное, добавляются лишь номера к каждому новому ярлыку.

            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

            Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
clipboard = CreateObject("HTMLFile").parentWindow.clipboardData.getData("text")
Randomize()
FileName =int((100 * Rnd) + 1)
If FSO.FileExists("Ярлык_" & FileName & ".url") Then
WScript.Echo "Документ ''"& "Ярлык_" & FileName  & ".url" & "'' - уже существует."
 If FileName=Empty Then
   WScript.Quit
 End If
Else
With CreateObject("WScript.Shell")
Set myshortcut = .CreateShortcut(DPath & + ("Ярлык.URL_" & FileName & ".url") + ".url")
myshortcut.TargetPath = .ExpandEnvironmentStrings(clipboard)
myshortcut.Save
End With
End If

            Добавлено через 14 минут

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Всё, сам создал, даже несколько

            И ещё, при создании-копировании этих скриптов уже отсюда, заметил что надо убирать отступы, а то ошибку выдаёт. Не знаю почему. Изначально у меня они и с отступами работают.



            0

            FlasherX

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            01.01.2023, 23:15

            14

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Всё, сам создал

            Смешное изделие, ничего не скажешь.
            И зачем тут Ярлык.URL_ если у него расширение .url?
            В общем, с вводом будет так:

            Visual Basic 
            1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

            Set WSS = CreateObject("WScript.Shell")
R = "HKCUSoftwareMicrosoftWindowsCurrentVersionInternet SettingsZones31407"
On Error Resume Next
A = WSS.RegRead(R): If A > 0 Or Err.Number <> 0 Then WSS.RegWrite R, 0, "REG_DWORD"
URL = Trim(CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text"))
If A > 0 Then WSS.RegWrite R, A, "REG_DWORD"
If URL = "" Then WSH.Quit() Else Test = LCase(Left(URL, 4))
If Test <> "www." And Test <> "http" Then MsgBox "Буфер обмена " &_
"не содержит гиперссылки!", 262192, " Создание URL-ярлыка": WSH.Quit
 
With CreateObject("htmlfile")
   Y = 96/.Parentwindow.Screen.deviceYDpi
   Y = 15*Y*(.Parentwindow.Screen.Height-188*Y)/2
End With
Set R = New RegExp: R.Pattern = "[:?*""/|<>]"
Do
   FN = Trim(InputBox(vbCr & vbCr & Er & String(3, vbCr) &_
   "Введите базовое имя файла:", " Создание URL-ярлыка", FN,, Y))
   If FN = "" Then WSH.Quit
   If R.Test(FN) Then Er = Space(20) & "Ошибка: запрещённые символы!" Else Exit Do
Loop
FN = WSS.CurrentDirectory & "Ярлык.URL_" & FN & ".url"
If Len(FN) > 259 Then Pr = "\?"
Set WSS = Nothing: Set R = Nothing
 
With CreateObject("Scripting.FileSystemObject").CreateTextFile(Pr & FN, 1, 1)
   .Write "[InternetShortcut]" & vbCrLf & "URL=" & URL: .Close
End With

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            А это как у вас аналог, только имена не сайтов берутся

            Уже не аналог. Ну и те же проблемы с синтаксисом. + двойное расширение зачем-то.



            0

            0 / 0 / 0

            Регистрация: 12.10.2021

            Сообщений: 37

            02.01.2023, 00:07

             [ТС]

            15

            Цитата
            Сообщение от FlasherX
            Посмотреть сообщение

            Смешное изделие, ничего не скажешь

            Как говорится, минута смеха заменяет стакан сметаны.
            Не знаю, у меня всё работает. Ярлык.URL это как постоянное имя, для того варианта где имя своё не вводить. Это всё из создания блокнотов наковырял. В вашем если уж есть окошко для ввода своего имени, тогда постоянное имя «Ярлык.URL» надо убирать, а то у него два имени будет. У меня и третий есть, там в имени вообще пустота, в одном ярлыке при каждом запуске скрипта меняется адрес, новый не создаётся пока не сменишь имя вручную. Хотел в свой вставить и ваш кусочек «не содержит гиперссылки!», но она всплывает даже когда ссылка есть.
            Вот скрин того что nircmd делает, а то в личке скрин не знаю как выслать.

            Изображения

             



            0

            5850 / 2562 / 1007

            Регистрация: 06.06.2017

            Сообщений: 8,745

            02.01.2023, 01:04

            16

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Не знаю, у меня всё работает.

            Дык работоспособность индусских кодов никто не отменял.

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            В вашем если уж есть окошко для ввода своего имени, тогда постоянное имя «Ярлык.URL» надо убирать, а то у него два имени будет.

            А, это я из вашего второго кода присобачил, не посмотрев в первый. ОК, тогда уберите Ярлык.URL_ в 22 строке.

            Цитата
            Сообщение от kopirss
            Посмотреть сообщение

            Вот скрин того что nircmd делает

            Ужас…



            0
            Источник

            Понравилась статья? Поделить с друзьями:
          • Ошибка компиляции microsoft jscript как исправить
          • Ошибка компиляции microsoft jscript 800a03f6
          • Ошибка компиляции microsoft jscript 800a03ee
          • Ошибка компиляции java это
          • Ошибка компилятора nod32