Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
46 / 8 / 1
Регистрация: 20.08.2010
Сообщений: 53

Можно ли перевести код из JS в Visual Basic

04.04.2012, 12:24. Показов 1999. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть вот такой вот код на JavaScript... Его необходимо перевести в Visual Basic 6.0 .. Может мне кто-нибудь помочь? Заранее благодарен.

JavaScript
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
34
35
36
37
38
39
40
41
42
43
44
45
46
var WSHShell = WScript.CreateObject("WScript.Shell");
 
try //Начало обработки ошибок, для того чтобы не выскакивала ошибка, в случае отказа установки сертификата
{
    var FSO = WScript.CreateObject("Scripting.FileSystemObject")
    
    //Стандартные настройки CAPICOM
    var CAPICOM_LOCAL_MACHINE_STORE = 1;
    var CAPICOM_CURRENT_USER_STORE = 2;
    var CAPICOM_OTHER_STORE = "AddressBook";
    var CAPICOM_MY_STORE = "MY";
    var CAPICOM_STORE_OPEN_READ_WRITE = 1;
 
    var strStoreNameToUse = CAPICOM_OTHER_STORE;
    
    //Открываем хранилище сертификатов
    var objCertStore = new ActiveXObject("CAPICOM.Store");
    
    //узнаём где мы (путь)
    var Path = WSHShell.CurrentDirectory
    
    //Ставим корневые сертификаты
    Path3 = (Path + "\\ROOT")
    var FSO = WScript.CreateObject("Scripting.FileSystemObject")
    var f = FSO.GetFolder(Path3)
    
    //читаем список файлов (сертификатов) в массив
    fc = new Enumerator(f.files);
    var str2 = new Array();
    var i = 0
    for (; !fc.atEnd(); fc.moveNext())
        {
        str2[i] = fc.item();
        i++
        }
    objCertStore.Open(CAPICOM_CURRENT_USER_STORE, "ROOT", CAPICOM_STORE_OPEN_READ_WRITE);
    for (var j = 0; j<i;)
        {
        objCertStore.Load(str2[j])
        j++
        }
    WSHShell.popup("Корневые сертификаты установлены успешно!",0,"Завершение",0+64)
 
    }
 
    catch(e) {}//Конец обработки ошибок, для того чтобы не выскакивала ошибка, в случае отказа установки сертификата
Добавлено через 2 часа 25 минут
Сам себе же отвечаю )))

Получился вот такой код (без считывания файлов в массив)..

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
 
Const CAPICOM_LOCAL_MACHINE_STORE = 1
Const CAPICOM_CURRENT_USER_STORE = 2
Const CAPICOM_OTHER_STORE = "AddressBook"
Const CAPICOM_MY_STORE = "My"
Const CAPICOM_STORE_OPEN_READ_WRITE = 1
 
Private Sub Command1_Click()
'On Error Resume Next
Dim oCert As Variant
Dim oStore As Variant
 
Set oStore = CreateObject("CAPICOM.Store")
    
    oCert.Load "C:\1.cer"
    oStore.Open CAPICOM_CURRENT_USER_STORE, "ROOT", CAPICOM_STORE_OPEN_READ_WRITE
    oStore.Add oCert
    oStore.Close
End Sub
Но программа ругается на строчку:
Visual Basic
1
oCert.Load "C:\1.cer"
Все англоязычные ресурсы просмотрел уже... ничего толкового нет.. Сертификат почему то не устанавливается в корневые.... Есть у кого какие предложения?? Заранее благодарен..
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.04.2012, 12:24
Ответы с готовыми решениями:

Перевести код из Delphi на Visual Basic
Здравствуйте, помогите пожалуйста перевести код из Delphi на Visual Basic Задача: Создать программу «Товары и реализация». На...

Кто сможет перевести код из Visual Basic в C++?

Перевести код рисования фигур с Visual Basic .NET
Мне нужно переделать программный код с Visual Basic.NET на Visual Basic 6.0 Пожалуйста... Dim Graph1 As Graphics Dim Pen1...

3
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
04.04.2012, 13:51
Dim oCert As Variant
А уверен, что у типа данных Variant имеется свойство Load

Добавлено через 5 минут
До вызова
Visual Basic
1
 objCertStore.Load
Надо же присвоить
Visual Basic
1
 objCertStore = new ActiveXObject("CAPICOM.Store")
Как-то так. (писано на коленке)
0
46 / 8 / 1
Регистрация: 20.08.2010
Сообщений: 53
04.04.2012, 14:05  [ТС]
Тип данных Variant я думаю можно вообще убрать...

Ругается на строку
Visual Basic
1
oCert.Load ("C:\1.cer")
Пишет, необходим объект... Ну так я вроде указал программе объект... Что то ей не нравится..
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
04.04.2012, 21:04
Ну так я вроде указал программе объек
Где???
Здесь?:
Visual Basic
1
Dim oCert As Variant
А вдруг это просто строка?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
04.04.2012, 21:04
Помогаю со студенческими работами здесь

Нужно перевести в visual basic
Нужно перевести решение из паскаля в vb , а перевести не получается помогите пожалуйста program s4; var n,a1,a2,b1,b2:integer; ...

Код Visual Basic
Всем привет. Спецы помогите, прочитать код одной проги. Я сам не программист но это код сделано для макроса корла. За ранее спс вот код...

код visual basic
На форме я создал текстовые поля и кнопку добавления и связал их с базой данных access вот код кнопки добавления записей Private...

Переделать код с си++ на Visual basic
Здравствуйте! У меня есть программа, создающая генератор случайных чисел, но она написана на языке си++. Помогите пожалуйста переделать в...

Перевести код с Visual Basic 6.0
Dim mytext As String Dim allmytext As String Private Sub Command1_Click() Picture1.Cls Dim D As Long, W As Long, J As Long, H As...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru