Вверх ↑
Ответов: 775
Рейтинг: 168
#1: 2024-08-20 06:27:42 ЛС | профиль | цитата
Возникло несколько вопросов
zhorik5 писал(а):
У меня есть программа

На чём написана программа?
zhorik5 писал(а):
к которой хочу дать удалённый доступ неограниченному кругу пользователей

Как будет организован удалённый доступ? (rdp, anydesk, teamviewer, vnc или что-то другое)
zhorik5 писал(а):
Можно ли открыть окно в окне?

Можно
zhorik5 писал(а):
можно ли запрещать выполнение окна о программе?

Трудно, но можно.
zhorik5 писал(а):
Можно ли запрещать изменения размеров окна ну и соответственно замыливание сокрытие данных в главном окне сторонней программы.

Можно.

Сразу оговорюсь. "Плохому" учить не буду.

Add(MainForm,2953706,56,119)
{
Point(Width)
Point(Height)
Point(Handle)
link(onCreate,4710989:doExec,[])
}
Add(WinTools,10766705,168,49)
{
}
Add(WinExec,4710989,112,133)
{
FileName="notepad"
link(onExec,5919204:doDeferredEvent,[])
}
Add(DeferredEvent,5919204,168,133)
{
Delay=200
InData=0
Data=Integer(0)
link(onDeferredEvent,14050507:doEvent1,[])
}
Add(FindWindow,103464,273,133)
{
ClassName="Notepad"
SkipParam=1
link(onFind,2003020:doEvent1,[])
}
Add(FindWindow,3846865,112,70)
{
ClassName="#32770"
Caption="Блокнот: сведения"
Point(ChildHandle)
link(onFind,10766705:doClose,[])
}
Add(Timer,12041410,56,70)
{
Interval=33
link(onTimer,3846865:doFind,[])
}
Add(PosWindow,15576889,273,196)
{
link(Handle,11570385:Var2,[])
}
Add(SetParent,1432327,385,133)
{
link(NewParent,3315338:Handle,[])
}
Add(SizeWindow,2894384,315,231)
{
link(Handle,11570385:Var3,[(321,173)])
link(Width,3315338:Width,[(328,96)(384,96)])
link(Height,3315338:Height,[(335,103)(391,103)])
}
Add(Hub,14050507,217,133)
{
OutCount=5
link(onEvent1,103464:doFind,[])
link(onEvent2,15576889:doLeft,[(263,146)(263,202)])
link(onEvent3,15576889:doTop,[(256,153)(256,209)])
link(onEvent4,2894384:doWidth,[(249,160)(249,237)])
link(onEvent5,2894384:doHeight,[(242,167)(242,244)])
}
Add(GetDataEx,11570385,273,168)
{
link(Data,103464:Handle,[])
}
Add(WinBorders,9248978,385,182)
{
BorderStyle=0
}
Add(Hub,2003020,343,133)
{
OutCount=3
link(onEvent1,1432327:doSetParent,[])
link(onEvent2,9248978:doSetBorderStyle,[(375,146)(375,188)])
link(onEvent3,9248978:doSetWinStyle,[(368,153)(368,195)])
}
Add(Label,3315338,371,56)
{
Left=325
Top=40
Align=5
Caption=""
AutoSize=1
Point(Width)
Point(Height)
Point(Handle)
}
Add(Label,4467744,266,56)
{
Left=95
Width=100
Height=20
Caption=""
AutoSize=1
}

Для русской версии Windows
карма: 15

1
Голосовали:zhorik5
Редактировалось 2 раз(а), последний 2024-08-21 07:01:38