Add(MainForm,9376056,70,56)
{
Height=163
link(onCreate,927093:doConvert,[])
}
Add(Edit,16723662,336,70)
{
Left=85
Top=50
Text="20"
DataType=1
}
Add(Edit,9103623,294,70)
{
Left=30
Top=50
Text="400"
DataType=1
}
Add(Button,14606631,63,203)
{
Left=40
Top=10
Width=85
Caption="Найти окно"
link(onClick,9431484:doFind,[])
}
Add(PointXY,10601276,294,133)
{
X=300
Y=100
link(X,9103623:Text,[])
link(Y,16723662:Text,[(307,117)(342,117)])
}
Add(TempFileStream,8761983,168,70)
{
Extention=".txt"
link(onCreate,16580059:doShellExec,[])
}
Add(StreamConvertor,927093,119,70)
{
Mode=7
Point(Data)
link(onResult,8761983:doCreate,[])
link(Data,1830208:Text,[])
}
Add(WinExec,16580059,217,63)
{
}
Add(StrList,1830208,119,21)
{
Strings=#124:Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. |108:Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. |103:Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. |110:Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.|
}
Add(FindWindow,9431484,126,203)
{
ClassName="Notepad"
SkipParam=1
link(onFind,3035978:doFindChild,[])
}
Add(FindWindow,3035978,175,196)
{
ClassName="Edit"
SkipParam=1
link(onFind,2316076:doDeferredEvent,[])
}
Add(WinTools,11978136,392,168)
{
Point(doSendMessage)
link(Handle,3035978:Handle,[(398,159)(454,159)(454,243)(181,243)])
}
Add(DoData,6141733,336,196)
{
Data=Integer(514)
link(onEventData,11978136:doSendMessage,[])
}
Add(DeferredEvent,2316076,224,196)
{
Delay=50
InData=0
link(onDeferredEvent,14393672:doSendMessage,[])
}
Add(SendMessage,14393672,280,196)
{
Point(Message)
link(onSend,6141733:doData,[])
link(LParam,10601276:Point,[])
link(Message,4157358:Value,[(307,173)(342,173)])
}
Add(Memory,4157358,336,133)
{
Default=Integer(515)
}
Ответов: 784
Рейтинг: 168
|
|||
У меня немного другой вариант.
|
|||
карма: 15 |
|