WSH: обмен данными и объектами между скриптами — 2 (Страница 2 из 3)

Что-то давно я не постил ничего на форуме. Случилось так, что мне опять потребовался код обмена данными между процессами. Открыл эту тему на форуме и понял, что есть что поменять и доработать. В текущей реализации не было:

1) встроенной возможности работать с событиями при изменении данных в хранилище
2) нормального метода проверки существования получателя
3) нормального контроля за созданными окнами (в случае аварийного закрытия скрипта в памяти оставались инстансы окон)

Решил переделать и доработать.

Изменения:
1) Переименовал объект в Shell.Connector. Это название показалось мне более логичным в виду внесённых изменений.
2) Собрал функционал в компонент WSC для удобства использования в разных языках JS / VBS и т.п. Изменил принцип работы.

Методы:

     postMessage(connectorId,data) - Отправка сообщения коннектору получателю
                  connectorId <in>   [String] - Идентификатор коннектора получателя
                  data            <in>   [String] - Данные для передачи

     connect(connectorId) - Метод для проверки доступности указанного коннектора
                  connectorId <in>   [String] - Идентификатор проверяемого коннектора

Свойства:

     id               <out>   [String] - Идентификатор текущего коннектора

     onmessage  <in>    [Object] - Задаёт ссылку на объект обратного вызова (функцию).
                                               Во время срабатывания события в функцию/метод обратного вызова передаёт 2 параметра (connectorId, data)

3) Идентификатор коннектора генерируется как уникальный GUID и задаётся внутри самого объекта
4) Вместо использования отдельных инстансов Shell Browser Window используется только один для всех коннекторов. Благодаря этому при падении скрипта / закрытии процесса в памяти не остаётся инстансов открытых окон кроме одного, обеспечивающего работу коннекторов.

UPD: 28.01.2021 - Оптимизировал код. Убрал лишние вызовы и функции.
UPD: 10.02.2021 - Исправил код преобразования передаваемых данных.
UPD: 20.02.2021 - Залил код на GitHub ссылка

yyk, в принципе, да. Но я потихоньку ушёл от этой идеи. Так как тогда нужно контролировать актуальность ссылок на объекты. Поэтому перешёл на передачу данных через сериализованный JSON. А теперь и вовсе перебрался на использование NTFS стримов.

Примерчик тут

fkhlamingo, думаю вам проще будет разобраться в готовом примере, который я выложил на GitHub - ссылка.

На GitHub я выложил несколько примеров:

1) Сам доработанный коннектор (с поддержкой события прихода данных) и примеры - https://github.com/diqipib/Shell.Connector
2) Применение коннектора в Worker-ах - https://github.com/diqipib/WSH-Worker

хочу поднять ветку, альтернативным вариантом.
При этом этот вариант более универсален. Т.е. не только для "передачи", но и для применении например vbscript функции API. Как бы из vbscript можно будет и диски посекторно форматировать.
Метод такой.
Берём установочный диск VB6. Устанавливаем. Апгрейтим до SP3, но можно и без него.
После этого, забираем из директории такие  , все файлы от VB6.

И кладём их в отд. каталог, типа "portable".
После этого откр блокнот и пишем туда строки.
файл 1.reg

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Licenses]
@="Licensing: Copying the keys may be a violation of established copyrights."

[HKEY_CLASSES_ROOT\Licenses\096EFC40-6ABF-11cf-850C-08002B30345D]
@="knsgigmnmngnmnigthmgpninrmumhgkgrlrk"

[HKEY_CLASSES_ROOT\Licenses\12B142A4-BD51-11d1-8C08-0000F8754DA1]
@="aadhgafabafajhchnbchehfambfbbachmfmb"

[HKEY_CLASSES_ROOT\Licenses\190B7910-992A-11cf-8AFA-00AA00C00905]
@="gclclcejjcmjdcccoikjlcecoioijjcjnhng"

[HKEY_CLASSES_ROOT\Licenses\1F3D5522-3F42-11d1-B2FA-00A0C908FB55]
@="gcfjdjecpchcncdjpdejijgcrdoijjfcieod"

[HKEY_CLASSES_ROOT\Licenses\4D553650-6ABE-11cf-8ADB-00AA00C00905]
@="gfjmrfkfifkmkfffrlmmgmhmnlulkmfmqkqj"

[HKEY_CLASSES_ROOT\Licenses\4F86BADF-9F77-11d1-B1B7-0000F8753F5D]
@="iplpwpnippopupiivjrioppisjsjlpiiokuj"

[HKEY_CLASSES_ROOT\Licenses\57CBF9E0-6AA7-11cf-8ADB-00AA00C00905]
@="aahakhchghkhfhaamghhbhbhkbpgfhahlfle"

[HKEY_CLASSES_ROOT\Licenses\6000720D-F342-11D1-AF65-00A0C90DCA10]
@="kefeflhlhlgenelerfleheietfmflelljeqf"

[HKEY_CLASSES_ROOT\Licenses\72E67120-5959-11cf-91F6-C2863C385E30]
@="ibcbbbebqbdbciebmcobmbhifcmciibblgmf"

[HKEY_CLASSES_ROOT\Licenses\74872840-703A-11d1-A3AF-00A0C90F26FA]
@="mninuglgknogtgjnthmnggjgsmrmgniglish"

[HKEY_CLASSES_ROOT\Licenses\74872841-703A-11d1-A3AF-00A0C90F26FA]
@="klglsejeilmereglrfkleeheqkpkelgejgqf"

[HKEY_CLASSES_ROOT\Licenses\9DF1A470-BA8E-11D0-849C-00A0C90DC8A9]
@="cchcqjejhcgcqcfjpdfcdjkckiqikchcojpd"

[HKEY_CLASSES_ROOT\Licenses\9E799BF1-8817-11cf-958F-0020AFC28C3B]
@="uqpqnqkjujkjjjjqwktjrjkjtkupsjnjtoun"

[HKEY_CLASSES_ROOT\Licenses\A133F000-CCB0-11d0-A316-00AA00688B10]
@="cibbcimbpihbbbbbnhdbeidiocmcbbdbgdoc"

[HKEY_CLASSES_ROOT\Licenses\C4145310-469C-11d1-B182-00A0C922E820]
@="konhqhioohihphkouimonhqhvnwiqhhhnjti"

[HKEY_CLASSES_ROOT\Licenses\CDE57A55-8B86-11D0-b3C6-00A0C90AEA82]
@="ekpkhddkjkekpdjkqemkfkldoeoefkfdjfqe"

[HKEY_CLASSES_ROOT\Licenses\D015B071-D2ED-11d0-A31A-00AA00688B10]
@="gjdcfjpcmjicjcdcoihcechjlioiccechepd"

[HKEY_CLASSES_ROOT\Licenses\DC4D7920-6AC8-11cf-8ADB-00AA00C00905]
@="iokouhloohrojhhhtnooiokomiwnmohosmsl"

[HKEY_CLASSES_ROOT\Licenses\ED4B87C4-9F76-11d1-8BF7-0000F8754DA1]
@="knlggnmntgggrninthpgmnngrhqhnnjnslsh"

[HKEY_CLASSES_ROOT\Licenses\F4FC596D-DFFE-11CF-9551-00AA00A3DC45]
@="mbmabptebkjcdlgtjmskjwtsdhjbmkmwtrak"

И сохраняем его как 1.reg.
Теперь главное. Этот рег файл для регистрации лицензий на все OCX которые есть у VB6. Вообще на девственной машине этой ветки и в помине нет. её пишет при установки VB6. Без этой лицензии ни один у вас COM его объект не запустится и сама VB6 естественно тоже.
Папка та "portable", занимает 11 мегов. Там вроде 2-3 файла как мне показалось позже лишние.
Это не суть.
1- регистрим файлом reg.
2- в директории  "portable" запускаем файл VB6.EXE, с ПРАВАМИ АДМИНА. иначе никак. Будет ругаться. С правами, потому что ОН у себя где то метит путь к подчёркнутой мной (см скрин) библиотеки OLB. И всё. после этого можете запускать его как угодно. Он даже не поперхнётся и будет вам компилить даже всё привсё.
Теперь по теме.
Этот VB6 имеет в себе возможность делать классы и декларировать API функции.
При этом , т.к. он работает с ними в онлайн - рунтайм-е, то вы запуская его в vbscrit-е можете в онлайне менять любые API. А т.к. у vba6.dll есть хитрая функция

'------------- превращение строки в код
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long

  то с помощью её, вы можете запускать в онлайне прям из блокнота (например из HTA формы), любую какую вам нужно штуку. например, я запускал там "open file...." Т.е. изготавливал и читал файл на диске. Есть одно НО с этой функцией.
1- она выполняется только в памяти, и поэтому отделена от саvой COM библиотеки класса (потом поясню). Т.е. всё что там эта строка сделает она , не может  получить от внутренней страницы кода загруженного класса в VB6 ничего. Хотя.. можно конечно подумать. 
2-в VB6 принято при объявлении переменно её обозначать тип. В этой строке это нельзя делать. Т.е. там объявляются все переменные как в VBS скрипте, без типа.
3- условие. Это никаких переносов строк. Т.е. если писать длинный код в блокноте, как обычный код по строкам, то в конце каждой строки лучше ставить

"VbNewLine"

потом ч помощью функции подмены 

"VbNewLine"

на

":"

получаем "индийский код", в одну линию и отсылаем её в COM VB6. VB6 при удачном исполнении кода отдаёт (API) цифру "-1", если плохо то "0". Отдаёт она в Vbscript (кто её давал код).
..
1-Короче, этот метод точно имеет многопоточность и не независимые потоки. Вы можете запустить из VBS сколько угодно этих классов.
2- он не нуждается в изучении других языков.
3- может запускать в онлайне любые API вина...
Теперь про класс.
в блокноте пишем.
Это будет файл класса.
Net_Call.cls

  
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Net_Call"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True

'------- от сюда начинается ваш код
'-----------------------------
'-----------------------------
'-----------------------------
Option Explicit
'Option Strict Off

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

'------------- превращение строки в код
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long




'------ внешние функции API
Public Function ReadINIKey(Section As String, KeyName As String, ByVal FileName As String) As String
Dim retval As String
retval = String(255, Chr(0))
ReadINIKey = Left(retval, GetPrivateProfileString(Section, KeyName, "", retval, Len(retval), FileName))
End Function

Public Function WriteInIKey(Section As String, KeyName As String, ByVal KeyValue As String, ByVal FileName As String) As String
 Dim AA_ As Long
AA_ = WritePrivateProfileString(Section, KeyName, KeyValue, FileName)
WriteInIKey = CStr(AA_)
End Function

Public Function Call_code(ByVal Code As String) As String
Dim a_1 As Long
ab = 67
a_1 = EbExecuteLine(StrPtr(Code), 0&, 0&, False) = 0
Call_code = CStr(a_1)
End Function


'-------- срабатывает при закрытии
Private Sub Class_Terminate()


End Sub
============

В этом классе я уже задиклорировал помимо строковой функции ещё и другие API (ini файл и темп директорию).
это файл проекта для VB6. Он будет загружать и запускать в VB6.exe класс (файл класса который выше), который при рунтайме вы будите в vbscrit-е его объявлять. Как будто он уже скомилирован в DLL.
файл Net_Call_API.vbp он основной на запуск. Он тащит за собой все файлы проекта.

Type=OleDll
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
Class=Net_Call; Net_Call.cls
Startup="(None)"
HelpFile=""
Title="Net_Call_API"
Command32=""
Name="Net_Call_API"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=1
ServerSupportFiles=0
VersionCompanyName="FREE_"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=1
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0

И ещё один довесок к проекту.
файл Net_Call_API.vbw нужен к файлу проекту.

 Net_Call = 104, 104, 1165, 670, 

Всё они в текстовой форме. И сохранять их надо в ANSI кодировки, что бы кркроказябры не появились в VB6. При этом в Vb6 можете сами писать и дописывать что хотитев них. А можно и в блокноте.
Теперь пишем VBS скрипт.
файл VB6_gen.vbs

Call IncludeFile("Class_sleep1.vbs")

Sub IncludeFile(fname)
    executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fname).readAll()
end sub

Private dblVB_ID 

'Некоторые возможные значения типа_окна:
Const    vbHide =0 '(0) — окно скрыто, фокус переходит к скрытому окну.  
Const    vbNormalFocus =1 '(1) — окно получает фокус и восстанавливает своё исходное положение и размер.  
Const    vbMinimizedFocus =2'(2) — окно отображается в виде значка и получает фокус.  
Const    vbMaximizedFocus =3'(3) — окно разворачивается во весь экран и получает фокус.  
Const    vbNormalNoFocus =4'(4) — восстанавливается последнее положение и размер окна, активное окно остаётся & _                  & активным.  
Const    vbMinimizedNoFocus =6'(6) — окно отображается в виде значка, активное окно остаётся активным.  


dim  oShell
dim stroka_
dim sleep_
set sleep_ =  new sleep1 '-- класс  ожидания
Dim VB, fso
dim path_

Set oShell = WScript.CreateObject("WScript.Shell")
set fso=createobject("scripting.filesystemobject")  
path_=fso.GetAbsolutePathName(".")

'--- пути у вас будут другие. Я для примера написал на диск С:
stroka_="""диск:\путь_где _лежит\VB6.EXE""" & " /run " & """диск:\путь_где_лежит_файл_проекта\Net_Call_API.vbp""" '- строка, запуска vb6 с выполением проекта.

'запуска vb6
dblVB_ID = oShell.run (stroka_, 6, false) '--True нельзя ставить

oShell.AppActivate dblVB_ID '- фокус на окно
'''oShell.SendKeys "{ENTER}" '- нажать ентер если надо
'''oShell.SendKeys "{ESC}" '- нажать экскейпт если надо
oShell.SendKeys "% n" '- минимизировать окно, иначе оно висит и маячит
sleep_.tm (1) '- ждать 1 сек пока окно закроется.

Call main 'переход к main процедуре
'     |
'    \|/
sub main()

Set VB = CreateObject("Net_Call_API.Net_Call")

path_=  fso.GetAbsolutePathName(".") & "\test.ini" ' - назначаем путь где будет ini у нас 

dim code_

' - посылка строки с командой в VB6
code_="a=10:msgbox a:a=a+1:msgbox a"

code_=replace(code_, vbNewline, ":")
msgbox VB.WriteInIKey ("section1", "KeyName1", cstr(code_) , path_ ) '- посылаем запись кода, получаем ответ 1 (если ОК)
code_1= VB.ReadINIKey ("section1", "KeyName1",  path_ )  '- читаем что записали 

oShell.AppActivate dblVB_ID '- фокус на окно
msgbox VB.Call_code(code_1) '- посылаем код на выполнение.





set fso =Nothing
Set VB =Nothing
Set sleep_=Nothing
end sub

on error resume next
set fso =Nothing
Set VB =Nothing
Set sleep_=Nothing

' принудитеьно закрываем VB6
 oShell.Run("taskkill.exe /f /im VB6.EXE"),0,True
Set oShell =nothing

и да. Там в примере в скрипте есть класс на VBS sleep1
файл "Class_sleep1.vbs"

 Class sleep1

'public tim
private objwsh
sub tm(tim)

    Set objwsh = CreateObject("WScript.Shell") 
    objwsh.Run "Timeout /T " & tim & " /nobreak" ,0 ,true
    Set objwsh = Nothing
end sub
End Class

Всё. Запускаем VB6_gen.vbs. Он у нас запускает 1-ин класс VB6 (можете запустить их хоть 10 шт в скрипте.)
Ему сразу посылается команда, сделать ini файл (где лежит сам скрип), с секцией "section1" и ключом "KeyName1". Параметр будет иметь строку

a=10:msgbox a:a=a+1:msgbox a

Строка имеет вид кода.
Объявляем переменную "а", которая сразу будет иметь значение "=10", выскочит окно с этим значением, потом к переменно сделаем "+1", и опять окно с ней. Т.е. вот так будет работать посланная нами строка кода на выполнение. При этом, мы эту строку пишем в ini, потом читаем от туда и посылаем её на выполнение.
Короче чистая проверка на вшивость работы СОМ объекта с API.
Теперь про ОНлайн, и рунтайм.
Все файлы текстовые. И поэтому не надо ничего компилить. А за счёт того что выпонение идёт в рунтайме, то и изменения в кодах может быть в онлайне, без остановки процесса выполнения.
VBскрипт можно впихнуть в "HTA" и оттуда управлять тектсами и направлениями передачи.
Вот получился  полноценный доступ ко всем API вмна через, скрипты.
.. комент к этому всему.
В блокноте правим файл класса. Пишем туда наши хотелки для исполнения VB6.
Эта фича с VB6 пашет и с VBA. Я проверял на всех, winword, exel, access, короче все кто имеет в себе VBA. Просто на тот момент, я не знал что VB6 будет маленький, а мне нужно было (очень хотелось) заиметь в VBS API функции. Правда при этом сами проги Офисных облочек  портабле получались в разы больше чем VB6. Да и если захочется доп библиотеку соорудить под это дело, то лучше применять VB6.
вдогонку. Про портабле.
Если вы принесли к другу или переложили у себя вашу портабле папку. То если вы уже раньше у себя регистрировали лицензии то больше их трогать не надо. А вот если вы принесли портабле к другу у которого нет лицензии то надо ему будет запускать файл 1.reg. Это про лицензию. Теперь про VB6.exe. Если вы папку "portable" переложите в другое место то нужно опять там запускать VB6.exe с правами админа. И только тогда она у вас будет запускаться из скриптов. Так же нужно поступать и у друга. Также всё будет пахать и с флешки. Лиж бы пути были в скриптах верные. Но если с флешки то у друга надо будет только запустить рег файл. Но и я думаю всё таки придётся и с правами и на ехе нажимать, потому что наверняка у друга буквы дисков будут другие. А VB6 капризный на это при регистрации у себя свою OBL библиотеку. И ещё вспомнил. Пробовал в строке, передать новую дкларацию API , не проходит, по причине конца, строки. Как я понял, компилятор в VB6 проверяет конец строки в декларации. А в функции по передачи кода одной строкой, это не проходит. А 2-е сткоки это уже 2-е отдельно взятые функции (процессы) которые между собой не видятся. Т.е. декларация в одной строке, не будет видна в другой, той которая ссылается на эту функции API.

начну с сервера.
Сервер, это текстовый файл, пополам разделённый, первая часть файла это наподобие манифеста (SxS технология), а вторая часть текста это обычный VBS.
Я решил упростить для себя задачу, и решил поступать с этой СОМ в регистрацией по второму варианту (см выше пост). Т.е. объявить в ней класс и т.о. VBS-клиент будет сам подхватывать этот сервер и работать с ним без регистрации.
мой тест был оформлен вот так.

Файл COM_VBS.wsc

<?xml version="1.0" encoding="windows-1251" standalone="yes"?>
<?component error="true" debug="true"?>
<component>
<registration progid="Server_VBS"/>
<public>
  <method name="Init"/>
</public>

<object id="Com_" progid="MSScriptControl.ScriptControl"/>

<script language="VBScript"><![CDATA[

'---------конец первой части COM--------------------------
'---------начало второй части COM--------------------------

    Function Init()
        Set Init = New ServerClass
    End Function
'-----------------------------------
   Class ServerClass
        Private Str_Code

       Public Property Let Str_(Byval Code_)
Com_.Language = "VBScript"
Com_.AddCode Code_
        End Property


Public Function Execute_Script(Str_,ind)
Com_.Language = "VBScript"
Com_.Run Str_,ind

End function

 End Class
]]></script>
</component>

Клиент.
Файл test.vbs

option explicit
'============загрузка других модулей
' это нужно вставлять в каждый модуль vbs 
Call IncludeFile("run_vbs_x64.vbs")
Sub IncludeFile(fname)
    executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fname).readAll()
end sub



Dim Com_Server
Dim Com_Server_Class,scr_

Set Com_Server = GetObject("script:С:\COM_VBS.wsc")

Set Com_Server_Class = Com_Server.Init()

scr_="Function s(ss) ss=ss+1 end function"
Com_Server_Class.Str_ = scr_
dim dd
dd=1
Com_Server_Class.Execute_Script "s",  dd
msgbox dd

On Error resume next
Set Com_Server_Class = Nothing
Set Com_Server = Nothing

клиент тоже короткий.
Самое ПЕРВОЕ. Это вверху

Call IncludeFile("run_vbs_x64.vbs")
Sub IncludeFile(fname)
    executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fname).readAll()
end sub

Файл "run_vbs_x64.vbs" я всегда добавляю во все свои VBS коды из-за непонятках с х64 ОС и х32 VBS кода. Приходиться или строкой писать где находиться 

"С:\Windows\System32\WScript.exe" твойФайл.vbs 
"С:\Windows\System32\СScript.exe" твойФайл.vbs
или
"С:\Windows\SysWOW64\WScript.exe" твойФайл.vbs 
"С:\Windows\SysWOW64\СScript.exe" твойФайл.vbs

или вот так как я автоматом.
Я выбрал автоматом.

Из-за этой автоматики, я не задумываюсь, что там и как там, а жму мышою на выполнение файла vbs на своей х64 ОС.
Клиент.
Вот эта

Set Com_Server = GetObject("script:С:\COM_VBS.wsc")

хитрая строка показывает где находиться наш сервер .wsc.
При этом эта строка его объявляет, как прототип объявления объектов СОМ.
типа

Set ИМЯ = CreateObject("ИМЯ_ОБЪЕКТА")

Но такая строка требует обяза регистрации его на машине.
А эта хитрая строка, этого не требует. Но она накладывает некоторые ограничения.
Например.
Даже если у вас , как например у меня сам файл COM_VBS.wsc, будет лежать
там же где и данный клиент VBS , и в клиенте будет строка

Set Com_Server = GetObject("script:COM_VBS.wsc")

То VBS ругнётся на типа, не знаю такую процедуру вообще, как бы намекает, без пути "диск и т.д." я не знаю никакие такие процедуры.
Поэтому в той строке  обяза должен быть полный путь к файлу .wsc серверу.
далее всё просто.

Set Com_Server_Class = Com_Server.Init() '-- инициализирую свой класс

scr_="Function s(ss) ss=ss+1 end function" '- записываю в строку функцию с аргументами.
Com_Server_Class.Str_ = scr_'-  засылаю в СОМ сервер эту строку функцию. 
dim dd
dd=1 '- выставляю переменную равною 1.
Com_Server_Class.Execute_Script "s",  dd  '-  посылаю на сервер исп. фун-ю  s с аргументом dd
msgbox dd '- после исполнения на сервере функции s, сервер отдаёт клиенту результат. 
 

И я его вижу результат, равен 2. Был dd=1 стал dd=2.
Вот так оформлен сервер на VBS.
Жалко конечно что MSScriptControl.ScriptControl не работает с VB или с VBA, что бы можно было вот так просто получать доступ к API функциям на VBS.

Да! Я видел, и даже скачивал,чего то там. Но там было смесь одного с другим (в плане языков). Сервер вроде был написан на джаве, клиент и такой и сякой. Вроде так. Поэтому я сразу на ту схему не запал.
Но странно для меня слышать, вы просите того про что я уже тут "Целую песенку спел"(R) х.ф.Золушка . Наверное я там увлёкся подробностями, что забыл объяснить суть.
...
Короче. В моей схеме, как обычно тут и было - сервер это *.wsc. В который вмонтирован COM от Микромягкого. Этот СОМ MSScriptControl.ScriptControl который уже имеется у всех на вине, и даже зарегистрирован при установке вина. Пишем сервер на  *.wsc и туда вписываем этот СОМ. Получаем на выходе  сервер с приблудой, которая может обрабатывать строки VBS или Jscript (все языки только от микрософта, но там наверху в посте прописано и про другие языки), на выполнения кода. Запускаем *.wsc, он ждёт от клиента строки кода. Вы ему код. Он выполняет его на стороне сервера и возвращает результат. ..
Почитайте. Там у меня всё есть. И пример с файлами. Блокнот. Копировать/вставить. Получаем 3-и фала. *.wsc и 2-а vbs фала. Один vbs , это клиент для общения с сервером, другой vbs, это приблуда от меня что бы vbs х32 не пудрил мозги, на машине с ОС х64. всего 3-и файла.
Там в примере у меня,  у клиента переменная dd имеет значение 1. Посылает функцию сложения, с этой переменной. Сервер её складывает и отдаёт результат. На выходе получаем изменение переменной dd равной 2.  Это как с API получается. Когда до применения функции АПИ нужно сформировать буфер для памяти, в который АПИ положит ответ. В примере точно так же получилось. Т.к. передаётся dd без "ByVal", то в ней сервер меняет данные. И отдаёт их через неё.
Если у вас Винда то мой пример в rar от сюда все вам покажет. MSScriptControl.ScriptControl у вас уже есть и поэтому мой код сработает.

Я ранее писал тут, что до применения VB6 с его АПИ, я пробовал на WinWord и всех прогах, которые вмонтированы в MSOfiice. И у которых присутствует компилятор языка VBA.
Могу тут выложить пример работы с WinWord. В принципе там точно так же как и с VB6 получается. Объявляется СОМ

Word.Application.

И ему посылается от клиента макрос на VBA, на исполнение. Т.к. у всех прог MSOfiice которые имеют в себе VBA есть рунтайм, то этот макрос исплоняется и ждёт как сервер, команды которые клиент ему даст. Применяя функцию 

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal StringToExec As Long, ByVal Any1 As Long, ByVal Any2 As Long, ByVal CheckOnly As Long) As Long

Сервер может исполнять, все коды посланные клиентом но только на языке VBA. VB6 в этом плане более всеяден как мне показалось.
Но а современный мой пример с msscript.ocx, все эти способы перебивает по развитию. Правда есть одно НО. msscript.ocx не работает с АПИ.

3wedsmncjklvjvd73734, поясню о чем речь. Предположим, у меня запущено 2 VBS скрипта. Мне нужно из первого скрипта передать объект (ссылку на объект) во второй скрипт. Ну или во втором скрипте забрать объект из первого скрипта. Пусть это будет, например, Scripting.Dictionary с какими-то данными. Собственно, данная тема, в основном, об этом. Как это можно сделать, используя ваш подход? Хотелось бы увидеть код, который можно просто скопировать и запустить, без развернутых пояснений.

3wedsmncjklvjvd73734, в примере вы запускаете только один vbs скрипт. Есть пример для двух vbs скриптов?

Два сервера? У меня вроде был пример, что один сервер второй клиент.
Нужно два сервера?

3wedsmncjklvjvd73734, просто запускаем 2 VBS скрипта и между ними происходит обмен. Я не знаю должен ли быть там где-то сервер или нет, поэтому и прошу привести практический пример как использовать ваш подход.

Так сервер это и есть уже один скрипт. второй то VBS тоже такой же скрипт.
Просто есть понимание того что если что-то сервер, причём удалённо, то в его коде менять там что-то там нельзя (наверное и скрипт также), Так чем этот скрип (под названием сервер), вам не годен?

omegastripes
И особо замечу. Мой вариант с серверной частью, способен пахать удалёно на другой машине. Когда как тут приведённый ранее пример, способен пахать только на локальной машине где пашут оба скрипта. Потому что они общаются по hwndID между собой, которое видно только на локальной машине.

omegastripes
Если вам в моём варианте (примере), не понраву VBS скрипт, то поменяйте в моём примере на JScript и можете сами всё опробовать.
MSScriptControl.ScriptControl и  .wsc оба поддерживают оба языка.
А сам Микрософт заявил что обе эти библиотеки могут понимать и языки такие как Perl и Rexx. Но для этого как они там предупредили - "долбёжки много" надо сделать.

omegastripes
Да я понял вас. На пальцах это должно быть выглядеть так. Запускаем 2-а терминала и там выводим например команды, на одном "dir c:", а на другом "dir d:", и оба выполняют, а потом одно окно должно передать свой список во второе окно. 2-а терминала это 2-а отдельных процеccа "cmd.exe". Я правильно понимаю?
Так вот в моём примере как раз тоже 2-а разных процесса. Один это VBS скрипт, который выполняется  "wscript.exe" -ом, а второй это msscript.ocx, который запускает свой отдельный какой то внутренний компилятор (возможно и при помощи АПИ). Потому что вы этот msscript.ocx можете впихнуть в любую прогу которая поддерживает ActiveX. И эти ActiveX имеют свой собственный hwndID помимо того что имеет прога в которой этот ActiveX крутиться. Т.е. у HTML один hwnd, а у ActiveX, другой hwnd, хотя он внутри крутиться HTML. Понимаете меня.  ActiveX имеет свой собственный hwnd не смотря внутри чего  бы он там не крутился

omegastripes
Сейчас проверяю в диспетчере задач.

omegastripes
Пока ищу возможность засечь.
Тут такое дело. Если даже IE внутри себя будет запускать ActiveX то hwnd будет только IE.
ActiveX при этом будет не видим для процессов, Именно из-за такой зависимости от "родителя" происходит сразу закрытия всего, что было открыто в IE. Достаточно закрыть IE и все процессы будут закрыты.
Есть ещё способ. Достаточно удалить (переместить куда либо)

 
C:\Windows\SysWOW64\msscript.ocx

а потом с помощью comexp.msc сделаить и запустить службу с этой msscript.ocx , лежащей в другом месте. То служба начинает с ней (с ОСХ) работать. НО vbs всё равно подхватывает тот ОСХ который я переложил. Т.е. при запуске службы автоматом происходит регистрация ОСХ, которая лежит в другом месте.
Но зато hwnd совершенно другой у службы. Но не понятка пока, с этими hwnd, то ли vbs берёт из ОСХ библиотеку, то ли из службы. Чувствую надо отдохнуть мне с этим. Всё обмыслить.

Я взял. Спасибо. Буду им отлавливать. Но потом. Пока - отдых.

3wedsmncjklvjvd73734
Добавляйте пожалуйста к скриншотам код.

omegastripes
Я вот тут придумал, как скоренько передавать друг другу hwnd своего процесса.
Через клипбоард (буфер обмена). В 1-ом vbs файле командой shell.run файл.vbs запускаются несколько разных процессов vbs. каждый из них в начале берёт из буфера, что послал первый, и т.д. Там даже в посланиях можно вкладывать имя процесса, что бы не путались проги между собой.Через
shell.run точно запускаются разные процессы.
Теперь осталось придумать как передавать объекты.

Не, не прокатывает этот вариант. Потому что он строго однонаправленный.
А нужно 2-ух направленный, + независим по времени. Т.е. все проги слушают клипа, как слушает сокета сеть, командой "листинг". В принципе - ДА. в каждой проге вложена сокета которая слушает сеть. Как только сокета услышала что ей что-то там, то сразу мяукнула сама... Короче. Подумаю над этой связкой. По крайней мере есть портабле vb6 в котором можно мутить в онлайне API функции, на которых можно позырить вот это--> цитата

C++
HANDLE SetClipboardData(UINT uFormat, HANDLE hMem)

Значение, которое вы указываете для параметра uFormat, должно быть либо стандартным форматом буфера обмена (таблица 2), либо зарегистрированным форматом. Зарегистрированные форматы — это пользовательские форматы, которые позволяют задавать форматы для данных, специфичных для приложения. Мы рассмотрим этот формат позже.

Я ничего не понимаю в VB6, кроме того, что он уже не поддерживается лет двадцать, и его нужно специально устанавливать. Не проще ли пользоваться доступным и более мощным PowerShell?

teadrinker
В принципе я не против того или другого языка. Главное освоить технологию передачи. А каким языком это дело 5-ое.
Просто на VB сразу можно проверить 100 вариантов из-за его простоты. Меньше времени уйдёт на тесты чем писаниной заниматься во всех остальных языках.
VB6 тестовый язык. VBS ещё быстрее для тестов - но ограничен.

omegastripes
Я вижу решение в следующем.
Каждая прога имеет в себе HTML сервер. Который слушает и передаёт переменные и т.д. Если через буфер обмена, то получиться только локальная работа этой штуковины. А со встроенном сервером, это сразу 2-а зайца.
..
Есть что либо на уме по поводу выцарапывания битных данных из переменных?

вот мне первое что пришло в голову следующее.

Function  (byval b) 
a=b
end Function

Уверен что в этих данных присутствует и данные о том что бы TypeName смог распознать тип данных этого набора битов.

omegastripes
"Всё уже украдено до нас !" (R)
Вот почитайте

надо поковырять это...

omegastripes В начале про свои находки. Читаю и радует что мой путь (про сеть), правильный. Но удручает только одно - ТАМ они ЭТО давно сделали , а я не знал этого.

Я склоняюсь к обратному. Пример.
Предположим ваш метод.
Вы имеете объект.  List. занёсли туда данные. Он(объект) по вашей схеме "сериализовался" (назовём ЭТО для примера именем которое дали ОНИ в Микрософте) целой ссылкой. Где то там в Сочи, ваша жена (или тёща или сын или дочь), воспроизвели вашу схему "сериализации". Потом вы для себя выяснили, что вам надо не list а Dictionary, меняете у себя в vbs-ке , и что? Как в Сочи по вашей версии должно всё измениться? Опишите ваши хотелки...
Я чёт, не шибко перевариваю ваши хотелки. Мне сразу влоб пришло на ум реализация - слать целый файл vbs, и всё, учитывая то что на том краю света (в Сочи), на ноуте установлена ОС винда, в которой воспроизводиться как и у вас, vbs файлы. Понимаете меня? НО вот в микрософте ЭТО понимают и говорят, сериализация, это передача ДАННЫХ, которые меняются. Т.е. распределённая база данных, но для програмёров.
..
ремарка.
Я запускал терминалы на биржах и видел, онлайн изменения биржевых котировок по сети. Занимался репликацией данных по базам данных, включая и доки Микрософского офиса... Но НИФИГА не понимаю что вы хотите.

3wedsmncjklvjvd73734
Меня интересует передача ссылки на объект из одного процесса в другой, на одной машине, локально, и без сериализации. Цель - организовать параллельную работу нескольких скриптов, чтобы при этом можно было в скрипте одинаково работать как со "своими" объектами, так и с объектами, созданными в других скриптах, будто они созданы в своем скрипте. Скажем так, хотелось бы хотя бы отчасти приблизиться к асинхронной парадигме и к синтаксису asyncio, только без GIL в случае WSH.
Еще раз подчерку, данная тема посвящена передаче данных между процессами на одном ПК, оффлайн.

3wedsmncjklvjvd73734, нет сериализация не интересует по вышеуказанным причинам, интересует именно передача ссылки, как это сделано в других примерах в начале темы.

Абсолютно. Простой пример, где это было бы полезно - "многопоточный" парсер.

Опция с getobject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") работает прекрасно по сей день.

omegastripes
Посмотрел как пашет 1.vbs и 2.vbs (самые первые коды).
Да внутри одного объекта, всё это крутиться. Даже когда запускается 2-скрипт. Он цапает этот объект и цепляет от него данные. На первый взгляд сразу понятна схема. Это глобальный объект и при его изготовлении в новом процессе, он не делит себя (на размножает себя), а просто формирует у себя отдел памяти. Хотя имея глобальную переменную, он её передаёт в другие процессы запросто.
Да. рабочая схема.
Надо подумать.
1-имеем ОС (общий объект),
2-связь между ними не память а сеть...(с памятью долбёжки много, да она и не открыта для юзера, а это не айс для нас разработчиков)
3- надо вот "эту" схему воплотить , основываясь на "ТОЙ" .

omegastripes
ха-ха-ха-ха.
Короче. я первый раз просто тупо скопировал/вставил код и всё.
А только что просмотрел внимательно в кишёчки.
Короче.

GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")

Это обычный ActiveX. У всех ОСХ в VB6 есть свойства их. Я даже скажу больше для этого объекта уверен есть помимо "Property" есть ещё "tag" , "Caption", и "Description".
Если ЭТО делал Микрософт то там это на 90% должно быть. Я раньше через эти параметры передавал данные - было такое. Теперь про данные (глобальные). ВСе ОСХ-ы хранят данные (например установленные юзером, если програмёр разрешил это делать, когда делал проект ОСХ), параметра своего окна, шрифт и т.д. в отдельном рядом стоящем с ОСХ файле, и если этот файл удалить, то переменные улетят в трубу. Я это уже проходил и не раз. А некоторый раз даже не смог их поменять поэтому начал искать причину и наткнулся на вот такой вот кеш, файл данных.. Тоже было такое. В принципе эта схема схожа со схемой распределённых данных в МС Офисе, с доками. Где так же есть кеши на Hdd.
И если этот ОСХ передать юзеру в Сочи, без этого кеша-фала, то тот юзер ничего не увидит по данным которые автор внёс в ОСХ до передачи юзеру.

Вы удивитесь, но я больше скажу, это обычное окно Internet Explorer.

Но для передачи ссылки на объект подобный файл вряд ли каким-то боком задействован.

сейчас найду и IE.

omegastripes

Как это не пойму?
Прямая зависимость. Весь этот ОСХ пашет с кеш, потому что юзеру автор програмёр позволил менять параметры своего ОСХ-а. А как его сохранить? только файлом, что бы не загрязнять реестр, потмоу что там есть такие параметры как Picture (см ранее мой пост). А как эту самую пикчу, сохранить для "завтра"? В реестр её не кинешь. А так, скопировал её (ОСХ) вместе с кешем, и перенёс в Сочи  без реестра.
ремарка.
Нашёл этот IE, сейчас выложу.

начнём с этого.

Но интересует только локальная работа. Какой толк в удаленной работе при распараллеливании локальных процессов?

Да мне пофиг. Просто можно так и эдак с этим кешем.

У IE такой кеш находиться в директории где находиться сама exe. Например у Edge его парметры по его настройке находяться в файле юзера профиля... Бери этот файл юзера и перетаскивай хоть в "Сочи" (сорри- локально на другой комп)
..
Но опять же замечу. Если програмёр , делавший свою ОСХ дал возможность менять программно параметры в ОСХ (какие параметры я выкладывал ранее) сделал, то юзер сможет их менять, и тогда будет изготавливаться рядом лежащий с ОСХ файл ОСА.

Надо только поподробнее узнать, как этот ОСХ сделать таким , что бы он не "размножался" при его объявлении в других прогах, а цеплял свои параметры из локальных данных и не создавал новые кеши для каждой проги.

omegastripes
Могу по этой схеме
https://forum.script-coding.com/viewtop … 88#p162188
замутить dll-ку которую будут цеплять все проги. И прописывать в общий ini файл свои параметры... Можно закрывать тему.
...
каждая прога будет отслеживать дату изменения файла и т.о. "соображать", стоит ли туда заглянуть за изменёнными параметрами или пока заняться своими расчётами.
В принципе этот вариант
https://forum.script-coding.com/viewtop … 09#p137509
тоже годен. И даже проще. Но тогда нужно "всем" (это я  про Сочи) иметь у себя Access библиотеки.
А вот этот пост
https://forum.script-coding.com/viewtop … 53#p137653
говорит о том что в кеше IE всё записано, и поэтому ОН всё помнит, кто что менял у него там в его параметрах

omegastripes
Хотите много поточность в VBS?
вот вариант много поточности. Но эту самую много поточность должен сам програмёр организовать своим кодом.
Вот пример.

всё дело в хитрой команде на исполнение скрипта.

Я предполагаю следующий подход.
Чтобы COM-сервер, создаваемый из WSC, был доступен в разных процессах, нужно сделать его singleton'ом, для этого при инициализации он должен регистрироваться в ROT, и тогда можно получить его инстанс в другом скрипте с помощью GetObject(), далее получаем Me инстанса, а, имея в наличии Me, все остальное делается элементарно.
А вот далее у меня только догадки. Насколько я понял, регистрацию в ROT можно выполнить неким вызовом API винды, но этой темой я не владею. И для вызова API функций из скрипта не очень-то хочется таскать с собой DynamicWrapperX или что-то подобное, хотя, вероятно, можно выкрутиться через PS/.Net.

omegastripes
Фу ты ну ты.. Опять, спешка. Как только начал внимательнее в кишках разбираться в этом -->
https://forum.script-coding.com/viewtop … 932#p45932
то всё понял и   сейчас повнимательнее прочёл и .. "по лбу себя".. там же всё написано было!!. Фигли сидеть и корпеть? (это я себе сейчас)

Для начала используется метод Open("name"), чтобы открыть уже готовый либо создать новый контейнер, в котором будут храниться данные.

Короче.
Этот код  вообще при открытии 2.vbs не изготавливает класс (СОМ). Он просто цепляет уже открытый класс от 1.vbs скрипта. Поэтому там прописана функция поиска приложения у которого есть свойства ""container_name", name" (в самом начале этот name объявляется равным "storage").
Ну ещё короче.
открываем 1.vbs , он сразу назначает  name="storage" при вызове OPEN. В этой процедуре ОPEN происходит поиск открытого приложения (СОМ) со свойствами =  "container_name", "storage"", Если нашёл , то выход и всё закрывается. Если нет то он сразу переходит к созданию этого объекта СОМ ({C08AFD90-F2A1-11D1-8455-00A0C91F3880}). Получает от него wnd и прописывает ему назначенные заранее свойства "container_name", "storage"" И только потом он переходит к выполнению "input", что бы юзер ввёл новое свойство.     
После этого, этот СОМ не закрывается и открывается 2.vbs , и опять начинает проверять на уже открытые все приложения в которых есть уже заранее прописанное свойство "container_name", "storage"". Т.к. оно открыто то прога подхватывает этот открытый  whd  и сразу переходит к чтению свойств ранее записанные 1.vbs свойство.
Вот и весь фокус. Никакого диска ничего вообще. только по hwnd открытых окон.
Спец смотрел прогой oleview, эту dll-ку от IE . Там переменные на свойствах variant. А это как раз то что нужно для VBS.
Именно поэтому у него проходит запись объектов.
Если изучит повнимательнее как самому интерактивно создавать свойства то можно свою сотворить для этого СОМ-у.
Я почему то уверен что это можно сотворить и с wsс, даже без всяких лишних объяв сторонних сом..
Вообщем есть над чем подумать.

Я рад, что вы, наконец-то, начали знакомиться с темой, хотя с этого стоило бы начать, перед тем как что-то писать. Советую прочитать полностью. А то зафлудили уже всю тему.

Так все в курсе как это работает.

Я эту мысль пытаюсь донести до вас уже второй день. Есть предложения как из WSC вызвать RegisterActiveObject?

omegastripes
С другой стороны, в раннем примере (см стр 1), там код который всё делает. Что не хватает вам?
Там вроде передаётся объект, хоть winword передавай. Чего не хватает?
Если из-за интереса, то ...
надо досконально узнать, как в запущенном скрипте, можно через оболочку окон получить как можно больше инфы о работающем скрипте.
Вот в СОМ там оно сканируется на присутствие в нём GetProperty. Типа там у всех должен быть стандарт по этому признаку. А как в сриптах?
например , вот тут -->
https://forum.script-coding.com/viewtopic.php?id=1037
есть хороший пример по параметрам, в Jscript. Я повторил и у меня запросто там передавались данные по 2-ум параметрам. При этом если такое оформлять на VB то долбёжки много. Но как я знаю там можно в wsc оформлять много этажность, т.е. как в HTML блоки по языкам. Но главное другое. Если в теле а не в классе объявлять GetProperty, то они видны всем снаружи. Т.е. надо на файле wsc пркнмыши, и в меню. "Generate type library.." и появляется TLB файл, который запросто виден в простмотрщиках по СОМ-ам (OLE). И там появляется этот самый GetProperty. А если его объявлять в классе, то он не виден в tlb. И второе. если выполнить команду regsvr32 и зарегить файл wsc, то ошибки не будет и в реестре в CLASS\ROOT появляется по имени которое прописанов wsc, GUID код. Но он не срабатывает при его createobject. Т.е файл wsc то в скрипте виден и наверяняка как и с ОСХ там с наружи должен святиться этот GetProperty от wsc,..
Но это только ради интереса.

omegastripes
ВАУ!
Решил ещё раз проверить тот вариант с IE по передачи полноценного объекта с его инициализированными данными.
Я файл 2.vbs положил на другой диск в другой каталог.
и дописал следующее после

'----- файл 2.vbs ---------
Dim gCon
Set gCon = New GlobalContainer
gCon.Open "storage"
MsgBox "Значение переменной ""test"": " & gCon.GetProperty("test") ,vbInformation
MsgBox "Тип переменной ""fso"": " & TypeName(gCon.GetProperty("fso")),vbInformation
'----- моя дописка ниже
MsgBox "путь где находится файл 1.vbs : = " & gCon.GetProperty("fso").GetAbsolutePathName(".")

Проверка заключалась в следующем.
Если всё правильно работает, то 1.vbs когда создавал свой fso в него вложит все параметры которые в нём есть.
Я выбрал параметр каталога в котором ОН находится при создании его. Т.е. fso должен показывать (когда его спрашивают) именно тот каталог который был при его создании.
И О чудо!
файл 2.vbs показал каталог в котором находится файл 1.vbs. Хотя об этом его спрашивал файл 2.vbs, который вообще находиться на другом диске. И правда, ЧУДО! ВЕЩЬ!.