Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBScript/JScript VBS: искажение бинарных данных в строковых переменных ? https://www.cyberforum.ru/ vbscript-wsh/ thread2383537.html
1. Столкнулся с непонятным (для меня) искажением содержимого переменных, содержащих бинарные данные, при использовании setlocale: Option Explicit dim i,j,n,Reply SetLocale(1033) n = "" for i = 0 to 255
Скрытое открытие браузера VBScript/JScript
есть скрипт сделайте что бы браузер хром открывался и переходил скрыто прошу так как сам новичек и не особо в вбс function readFromRegistry (strRegistryKey, strDefault) Dim WSHShell, value On Error Resume Next Set WSHShell = CreateObject ("WScript.Shell") value = WSHShell.RegRead (strRegistryKey)
VBScript/JScript Глюки vbs скрипта. Вместо "admin" появляется "14-9," Здравствуйте! Сделал скрипт такого содержания, для авторизации в роутере: Set oShell = WScript.CreateObject("WScript.Shell") oShell.Run "telnet.exe my.keenetic.net" WScript.Sleep 3000 oShell.SendKeys "admin" & chr(13) WScript.Sleep 1000 oShell.SendKeys "admin" & chr(13)Он выполняется без ошибок: https://www.cyberforum.ru/ vbscript-wsh/ thread2379316.html VBScript/JScript Вывод на печать https://www.cyberforum.ru/ vbscript-wsh/ thread2379273.html
Приветствую Вас, уважаемые коллеги и участники форума. Имеется скрипт, взятый из этой темы Option Explicit : Dim objWord, objDoc, wssh, objFS, objShell, objPath, objFolder, objItem Set wssh = CreateObject("WScript.Shell") Set objFS = CreateObject("Scripting.FileSystemObject") Set objPath = objFS.GetFolder("C:\Folder\") 'Папка, из которой файлы отправляются на печать Do ...
VBScript/JScript Перезапуск процесса с разными параметрами
Доброго Вечера. Есть такое задание. Нужно сделать скрип который запускает мой процесс с нужными параметрами: Как примеру первый параметр такой: -s -a 246 -p 5630 Так вот, после 3 минут скрипт вырубает процесс и перезапускает его с другими параметрами:
VBScript/JScript Поставить пробелы между знаками препинания Доброго времени, стоит такой вопрос: разработать макрос, который вставляет пробел между двумя знаками препинаниями, идущими подряд. VBScript Dim MyArray MyArray = Array("!",";",":","?","(",")",".",",","-") . . . for i=0 to UBound(MyArray) for j=0 to UBound(MyArray) sas=Replace(sa,MyArray(i)+MyArray(j),MyArray(i)+" "+MyArray(j)) next next https://www.cyberforum.ru/ vbscript-wsh/ thread2371974.html
VBScript/JScript Ntldr загрузочное меню предлагающее режимы запуска ОС Господа, мне сегодня сдавать это, а я не понимаю как это написать. Помогите пожалуйста. Сформировать загрузочное меню предлагающее режимы запуска ОС: -- нормальный режим запуска; -- запуск в безопасном режиме; -- запуск Win в командной строке; -- запуск с поддержкой сетевого соединения; -- запуск Win в режиме одноядерного процессора; -- запуск сист. в нормальном режиме но с пониженным... https://www.cyberforum.ru/ vbscript-wsh/ thread2367150.html Предполагается наличие ")" VBScript/JScript
Доброго времени суток:) при выполнении примера возникает ошибка в строке WScript.Echo("Использование:\n 1. Для каждого типа файлов -TXT,INF,ASM - выдать число строк с заданным текстом:\n thisscript.js 1 c:\\myfolder "stringforcount"\n 2. Отсортировать файлы заданными именами по убыванию 3-го символа:\n thisscript.js 2 c:\\myfolder") собственно требует ещё скобку, но не очень понятно...
VBScript/JScript При сохранении PDF через VBS, теряются шрифты https://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 = False XL.DisplayAlerts = False XL.ActiveWorkbook.SaveAs XLSFileName
VBScript/JScript Как передать параметр в vbscript при запуске? Есть такой vbscript, который запускает несколько тор проксей: proxycount = 3 countries = "" Set FSO = CreateObject("Scripting.FileSystemObject") Set f = FSO.OpenTextFile("proxyList.txt", 2, True) For i=0 To proxycount-1 Step 1 Port = 9000 + i https://www.cyberforum.ru/ vbscript-wsh/ thread2351892.html
ФИО учетной записи Windows VBScript/JScript
Добрый день. Данный код вытаскивает логин учетной записи: var WinName = new ActiveXObject("WScript.Network"); Rname = WinName.UserName; Подскажите, в возможно ли как-то подцепить ФИО этой учетной записи, а не логин?
VBScript/JScript Как создать MsgBox с несколькими текстовыми полями для значений? Есть код, который вызывает простой message box: result = MsgBox ("Are you slipping?", vbYesNo, "Yes or No?") Select Case result Case vbYes WScript.Echo("yes") Case vbNo WScript.Echo("no") End Select
0 / 0 / 0
Регистрация: 08.10.2015
Сообщений: 17
0

Функции COM-библиотеки в VBScript - VBScript/JScript - Ответ 13231332

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

Author24 — интернет-сервис помощи студентам
Доброго времени суток!

Пишу обёртку на 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 VBScript/JScript
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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
11.01.2019, 07:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.01.2019, 07:33
Помогаю со студенческими работами здесь

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

Аналог функции JavaScript: String.replace(что,на что) в VBScript
Подскажите сабж а то чет найти никак немогу надо фрагменты в строке менять

Функции. Библиотеки
Функции для работы с массивом должны быть вынесены в отдельные файлы исходного кода arrays.h и...

Функции библиотеки kernel32
Дайте ссылку на все функции библиотеки kernel32.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru