wewqasasdx12321
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Для того чтобы, создался ActiveX в VB.NET на нужно только:
1- Установить .Net Framework, для этого идём в -->
Панель управления\Все элементы панели управления\Программы и компоненты\Включение или отключение компонентов Windows
Откроется окно.
Там ставим галку на пунктах.
.Net Framework 4.8 Advanced Services
Жмём на плюсик и там внизу ставим галку на пункте
Службы WCF
Жмём ОК.
Комп захочет перегрузиться для установки этой библиотеки.
Перезагружаемся.
открываем проводник и проверяем что у нас есть рабочая папка
У меня ОС х64.
C:\WINDOWS\Microsoft.NET\Framework64\v4.0.30319\
А в ней есть файлы
RegAsm.exe
и
vbc.exe
У кого х32 то у тех будет рабочая папка
C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\
На этом всё с установками.
Теперь нам нужна ещё одна штуковина. Это файл для изготовления серийного номера для нашей личной библиотеки. Без номера не получиться её на компах зарегистрировать.
Для ОС х64
Жмём на ссылку и жмём на картинку пр кнп мыши. Сохранить как. Сохраняем её на компе у себя.
https://ibb.co/HDbf4b90
Переименовываем в расширение rar.
Открываем её winrar-ом и достаём оттуда файл sn.exe.
Это прога только для ОС х64
Для ОС х32
Жмём на ссылку и жмём на картинку пр кнп мыши. Сохранить как. Сохраняем её на компе у себя.
https://ibb.co/GfYMc7XL
Переименовываем в расширение rar.
Открываем её winrar-ом и достаём оттуда файл sn.exe.
Это прога только для ОС х32
Теперь пишем библиотеку для VB.NET
открываем нотепад и там пишем.
Код:
option explicit
Imports Microsoft.VisualBasic
Imports System
Imports System.Reflection 'Для Assembly
Imports System.Reflection.AssemblyKeyFileAttribute
<Assembly:AssemblyKeyFile("test.snk")>
<Assembly:AssemblyVersion("1.0.0.0")>
Namespace TestLib
Public Interface ITest
Function addValues(number1 As Integer, number2 As Integer) as integer
End Interface
Public Class Test
Implements ITest
Public Function addValues(number1 As Integer, number2 As Integer) as integer Implements ITest.addValues
Dim sum As Integer
sum = number1 + number2
Return sum
End Function
End Class
End Namespace
|
сохраняем его как test.vb
Добавлено:
Продолжаем.
Теперь создаём наш файл скрипт на VBscript
откр. нотепад и там пишем.
Код:
option explicit
dim aa,b
set aa = CreateObject("TestLib.Test")
b=aa.addValues (2,1)
msgbox b
|
сохраняем его и даём имя test.vbs
|
Всего записей: 132 | Зарегистр. 23-12-2024 | Отправлено: 05:23 26-03-2025 | Исправлено: wewqasasdx12321, 05:24 26-03-2025 |
|
