Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBScript/JScript VBS: искажение бинарных данных в строковых переменных ? http://www.cyberforum.ru/vbscript-wsh/thread2383537.html
1. Столкнулся с непонятным (для меня) искажением содержимого переменных, содержащих бинарные данные, при использовании setlocale: Option Explicit dim i,j,n,Reply SetLocale(1033) n = "" ...
Скрытое открытие браузера VBScript/JScript
есть скрипт сделайте что бы браузер хром открывался и переходил скрыто прошу так как сам новичек и не особо в вбс function readFromRegistry (strRegistryKey, strDefault) Dim WSHShell, value ...
VBScript/JScript Глюки vbs скрипта. Вместо "admin" появляется "14-9,"
Здравствуйте! Сделал скрипт такого содержания, для авторизации в роутере: Set oShell = WScript.CreateObject("WScript.Shell") oShell.Run "telnet.exe my.keenetic.net" WScript.Sleep 3000...
VBScript/JScript Вывод на печать Приветствую Вас, уважаемые коллеги и участники форума. Имеется скрипт, взятый из этой темы Option Explicit : Dim objWord, objDoc, wssh, objFS, objShell, objPath, objFolder, objItem Set wssh =... http://www.cyberforum.ru/vbscript-wsh/thread2379273.html
VBScript/JScript Перезапуск процесса с разными параметрами http://www.cyberforum.ru/vbscript-wsh/thread2374830.html
Доброго Вечера. Есть такое задание. Нужно сделать скрип который запускает мой процесс с нужными параметрами: Как примеру первый параметр такой: -s -a 246 -p 5630 Так вот, после 3 минут...
VBScript/JScript Поставить пробелы между знаками препинания
Доброго времени, стоит такой вопрос: разработать макрос, который вставляет пробел между двумя знаками препинаниями, идущими подряд. VBScript Dim MyArray MyArray =...
VBScript/JScript Ntldr загрузочное меню предлагающее режимы запуска ОС
Господа, мне сегодня сдавать это, а я не понимаю как это написать. Помогите пожалуйста. Сформировать загрузочное меню предлагающее режимы запуска ОС: -- нормальный режим запуска; -- запуск в...
VBScript/JScript Предполагается наличие ")" Доброго времени суток:) при выполнении примера возникает ошибка в строке WScript.Echo("Использование:\n 1. Для каждого типа файлов -TXT,INF,ASM - выдать число строк с заданным текстом:\n ... http://www.cyberforum.ru/vbscript-wsh/thread2365335.html
VBScript/JScript При сохранении PDF через VBS, теряются шрифты http://www.cyberforum.ru/vbscript-wsh/thread2360585.html
Люди, хепл! Сохраняю в PDF с помощью VBS через Excel: Sh.ExportAsFixedFormat 0,PDFFileName,0, 1, 0,,,0 Где Sh это: Set XL = CreateObject("Excel.Application") XL.Workbooks.Add XL.Visible =...
VBScript/JScript Как передать параметр в vbscript при запуске? Есть такой vbscript, который запускает несколько тор проксей: proxycount = 3 countries = "" Set FSO = CreateObject("Scripting.FileSystemObject") Set f = FSO.OpenTextFile("proxyList.txt", 2,... http://www.cyberforum.ru/vbscript-wsh/thread2351892.html
miskiv_danil
0 / 0 / 0
Регистрация: 08.10.2015
Сообщений: 15
0

Функции COM-библиотеки в VBScript

11.01.2019, 07:33. Просмотров 511. Ответов 8
Метки (Все метки)

Доброго времени суток!

Пишу обёртку на VBS для dll.
Есть COM-библиотека HybridCOM.dll. В ней ряд функций, которые должны вызываться в программе VBS.

Вот так подключаю библиотек:
Visual Basic
1
Set FSO = CreateObject(HybridCOMLib.HybridCOM")
Подключилась.

Далее вызываю следующие функции из dll:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
STDMETHODIMP HybridCOM::Init()
{
---
return 0;
}
 
и 
 
STDMETHODIMP HybridCOM::LoadKeyStore(INT storage, BSTR password, BSTR container)
{
---
return 0;
}
Visual Basic
1
2
FSO.Init()
er = FSO.LoadKeyStore(1, "Pasword", "C:\1.p12")
Это работает и ошибку не выдает (Ну вроде как работает, чтобы проверить точно ли работает, надо запустить следующую функцию на вывод)

Т.е. теперь пытаюсь вызвать функцию, которая возвращает значение:
C++
1
2
3
4
5
STDMETHODIMP HybridCOM::X509ExportCertificateFromStore(BSTR alias, INT flag, BSTR* outCert)
{
---
return 0;
}

Как прописать в VBS, чтобы outCert заходила в функцию и возвращалась измененной?
Пишу вот так, но результат нулевой.
Visual Basic
1
er = FSO.X509ExportCertificateFromStore("", 0, (outCert))

Получается, что главный вопрос таков:
Как отправлять возвратную переменную в функцию COM-a?


И если этих возвратных переменных несколько, как тогда писать? (Вот например есть такие функции, где на возврат идут 3 переменных: STDMETHODIMP HybridCOM::VerifyData(BSTR alias, INT flags, INT inCertID, BSTR inData, BSTR inSign, BSTR* outData, BSTR* outVerifyInfo, BSTR* outCert))

Вернуться к обсуждению:
Функции COM-библиотеки в VBScript
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2019, 07:33
Готовые ответы и решения:

Перевести код регистрации библиотеки на VBScript
Нужна помощь по Vbs есть некий файлик написанный моим товарищем (как я понял толи на С толи еще на...

Аналог в JScript функции CCur из VBScript?
Подскажите аналог в JScript функции CCur из VBScript? Когда пишу на VBScript обычно использую эту...

Аналог функции InStr из VBScript на javascript
Podskazite analog funzii v Javascript VB-shnij InStr! Mne nuzno uznat soderzit li string bukvu '@'...

Как в клиентской функции на VBScript сослаться на элемент, вызвавший эту функцию?
Как в клиентской функции на VBScript сослаться на элемент, вызвавший эту функцию, т.е. не применяя...

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

8
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.