Как в MS Script Control выполнить функцию, заданную в основной программе?

@dima-pol · Регистрация: 02.11.2020

Студворк — интернет-сервис помощи студентам

В проект программы подключил компонент Microsoft Script Control 1.0
Добавил его на форму и назвал "sc". Добавил код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function myMsg()
  MsgBox "Привет всем!"
End Function
 
Private Sub Command_Click()
 
  myMsg
 
  sc.Language = "VBScript"
  sc.ExecuteStatement "myMsg"
 
End Sub

По нажатию кнопки выдаётся "Привет всем!" но повторый вызов фукции myMsg
(с помощью ExecuteStatement) даёт ошибку "Hecooтвeтcтвиe типa: 'myMsg' "

Подскажите, возможно ли и как в скрипте вызвать функцию, заданную вне скрипта ?

@Mikle Quits · 02.09.2024, 22:19

А так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Private Sub Form_Click()
  SC.ExecuteStatement "frm.Test"
End Sub
 
Private Sub Form_Load()
  SC.AddObject "frm", Form1
End Sub
 
Public Sub Test()
  MsgBox "Ok"
End Sub

@dima-pol · 03.09.2024, 17:04 **[ТС]**

Mikle Quits, Ваш пример работает. Спасибо. Но у меня другая ситуация.

Я хотел использовать ScriptControl для автоматизации отладки программ тестирования на установке внутрисхемного контроля. У неё своё ПО и каждая программа это проект VB6 тип "ActiveX DLL" (форма и много модулей - генерятся автоматически).
Один из модулей содержит коды тестирования компонентов на ПП. Там команды тестирования SV, SI ,Meas и пр. Например:

Code
1
SV "550mV AC=30KHZ Periods=100 Delay=1mS MC=10pF Tol=+20-50 A=(NETC5_1) B=(NETC5_2) AH"

SV и SI похожи на вызовы подпрограмм со строковым параметром. В проекте есть модуль описания переменных, констант и функций (Declare) но SV и SI там нет (как и во всём проекте).
1. что мне указывать в sc.AddObject чтобы ScriptControl смог вызвать на исполнение SV и SI ?
2. ScriptControl в принципе способен решать такого рода задачи ?
Наверно у него есть ограничения по сравнению с интерпретатором VB6.

@Mikle Quits · 03.09.2024, 17:21

Сообщение от dima-pol

что мне указывать в sc.AddObject чтобы ScriptControl смог вызвать на исполнение SV и SI ?

SV и SI должны быть Public методами класса, экземпляр которого передаётся в ScriptControl.

@dima-pol · 03.09.2024, 22:02 **[ТС]**

Mikle Quits, мне казалось что вызов метода должен быть вида:

<имя переменной-экземпляра класса> . SV

подобно Вашему примеру frm.Test, а не просто SV (см. ранее мой пример команды тестирования)

@Mikle Quits · 03.09.2024, 22:39

Сообщение от dima-pol

мне казалось что вызов метода должен быть вида

Верно, я же написал: "экземпляр которого передаётся в ScriptControl".
Рабочий пример:

@dima-pol · 04.09.2024, 17:38 **[ТС]**

Mikle Quits, Громадное спасибо за рабочий и наглядный пример.

В Проводнике Объектов я обнаружил методы SV, SI и все остальные в классе
KernDllSrv ну и оформил как в Вашем примере. И заработало !

Единственное ограничение: я собираюсь загружать строку для ScriptControl из BAS файла (тесты сгенерённые системой) а там SV и SI без <имя переменной-экземпляра класса> и без точки Т.е. придется делать некий парсинг содержимого BAS файла и вставлять где надо <имя переменной..> Но это несложно.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@dima-pol 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	03.09.2024, 22:02 [ТС]
	Mikle Quits, мне казалось что вызов метода должен быть вида: <имя переменной-экземпляра класса> . SV подобно Вашему примеру frm.Test, а не просто SV (см. ранее мой пример команды тестирования) 0

@dima-pol 0 / 0 / 0 Регистрация: 02.11.2020 Сообщений: 24
	04.09.2024, 17:38 [ТС]
	Mikle Quits, Громадное спасибо за рабочий и наглядный пример. В Проводнике Объектов я обнаружил методы SV, SI и все остальные в классе KernDllSrv ну и оформил как в Вашем примере. И заработало ! Единственное ограничение: я собираюсь загружать строку для ScriptControl из BAS файла (тесты сгенерённые системой) а там SV и SI без <имя переменной-экземпляра класса> и без точки Т.е. придется делать некий парсинг содержимого BAS файла и вставлять где надо <имя переменной..> Но это несложно. 0