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

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

04.04.2012, 12:24. Показов 2043. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru