Вверх ↑
Ответов: 793
Рейтинг: 168
#1: 2023-08-06 19:30:35 ЛС | профиль | цитата
Способ передачи данных и объектов между программами с помощью VBJScript.
Сначала запустите первый скрипт, а потом второй.
https://forum.hiasm.com/getfile/39620

--- Добавлено в 2023-08-06 19:33:01

Старый, Добрый, "Ламповый" MailSlot.
Передача на MailSlot_Server разными способами.
https://forum.hiasm.com/getfile/39621

--- Добавлено в 2023-08-06 19:34:59

Ковёр
Умножение строки на число (для windows10)
Add(MainForm,2953706,91,77)
{
Width=728
Height=483
Caption="Ковёр"
link(onCreate,10073478:doString,[])
}
Add(FormatStr,10073478,147,91)
{
Mask="\r\n 1..%2 | ForEach-Object {\r\n '_ \ \ \_/ __' * %1\r\n ' \ \ \___/ _' * %1\r\n '\ \ \_____/ ' * %1\r\n '/ / / ___ \_' * %1\r\n '_/ / / _ \__' * %1\r\n '__/ / / \___' * %1\r\n }"
link(onFString,15758195:doConsoleExec,[])
link(Str1,13589343:Text,[])
link(Str2,10687326:Text,[(160,68)(167,68)])
}
Add(WinExec,15758195,203,77)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,10694890:doAdd,[])
}
Add(Memo,10694890,259,91)
{
Width=712
Height=444
Align=5
Font=[Lucida Console,8,0,0,204]
ScrollBars=3
}
Add(VisualStrings,13589343,147,21)
{
Lines=#1:8|
}
Add(VisualStrings,10687326,161,42)
{
Lines=#1:6|
}


--- Добавлено в 2023-08-06 19:37:52

Для руководителей и специалистов кадровой службы.

Add(Label,9948857,133,238)
{
Left=20
Top=25
Width=300
Height=65
Font=[MS Sans Serif,12,0,0,1]
Caption="Вы довольны зарплатой, которую\r\n платит Вам наша компания"
AutoSize=1
Alignment=2
}
Add(MainForm,2953706,189,168)
{
Width=358
Height=180
Caption=" Опрос"
BorderStyle=1
Position=1
}
Add(Button,551076,217,231)
{
Left=220
Top=90
Width=60
Height=25
Font=[MS Sans Serif,12,0,0,1]
Caption="Нет"
Point(doLeft)
Point(doTop)
Point(Width)
Point(Height)
Point(onMouseEnter)
Point(onMouseMove)
link(onMouseEnter,6156726:doEvent1,[])
link(onMouseMove,6156726:doEvent2,[])
}
Add(Random,10993960,294,238)
{
Max=300
link(onRandom,551076:doLeft,[(333,244)(333,223)(207,223)(207,237)])
}
Add(Random,7969335,343,245)
{
Max=130
link(onRandom,551076:doTop,[(382,251)(382,286)(207,286)(207,244)])
}
Add(Hub,6156726,266,238)
{
InCount=2
link(onEvent1,10993960:doRandom,[])
link(onEvent2,7969335:doRandom,[])
}
Add(Message,3134393,140,189)
{
Message="Мы не сомневались в этом и делаем всё для того, чтобы наши сотрудники были рады работать в нашей компании. "
Caption="Спасибо"
link(onMessage,2953706:doClose,[])
}
Add(Button,15596083,91,189)
{
Left=70
Top=90
Width=60
Height=25
Font=[MS Sans Serif,12,0,0,1]
Caption="Да"
DefaultBtn=0
Point(doLeft)
Point(doTop)
link(onClick,3134393:doMessage,[])
}

карма: 16

0
файлы: 2обмен данными и объектами между скриптами.zip [1.8KB] [272], mailslot_test.zip [2.6KB] [288]
Редактировалось 4 раз(а), последний 2023-08-06 19:37:52