inter1 писал(а):
Механизм совсем небольшой.Add(MainForm,2953706,420,126)
{
Width=516
Height=360
Font=[MS Sans Serif,14,1,255,1]
Caption="РЕЙТИНГ"
Position=1
Point(onClose)
}
Add(HTTP_Get,9236709,336,259)
{
Wait=0
link(onDownload,13366773:doConvert,[])
}
Add(StreamConvertor,13366773,378,266)
{
Mode=6
link(onResult,12391342:doSearch,[])
}
Add(BlockFind,12391342,420,266)
{
StartBlock="<script data-react-helmet="true" type="application/ld+json">"
EndBlock="</script>"
link(onSearch,4886994:doSearch,[])
}
Add(BlockFind,4886994,462,266)
{
IncludeBlock=1
StartBlock=""url":""
EndBlock="""
Point(doStop)
link(onSearch,3601484:doEvent1,[])
link(onEndSearch,1946375:doCompare,[(504,279)(504,440)])
}
Add(Edit,70389,182,210)
{
@Hint=#16:Поисковый запрос|
@Color=11184895
Left=130
Top=5
Width=360
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="rural landscape"
AddHint(-164,-19,112,13,@Hint)
}
Add(StrCat,16602688,175,259)
{
@Hint=#62:Формируется адрес сайта с вшиванием в него поискового запроса|
Str1="https://www.shutterstock.com/search/"
link(onStrCat,2399675:doStrCat,[])
link(Str2,70389:Text,[])
AddHint(-78,78,200,26,@Hint)
}
Add(Button,5211380,91,252)
{
Left=15
Top=10
Width=110
Height=30
Font=[@Arial Unicode MS,16,0,128,204]
Caption=">>>"
link(onClick,13960487:doEvent1,[])
}
Add(StrCat,2399675,231,259)
{
Str2="?image_type=vector"
link(onStrCat,12913660:doStrCat,[])
}
Add(Hub,3601484,511,266)
{
link(onEvent1,12763334:doOperation,[])
link(onEvent2,7439446:doExec,[(539,279)(539,377)])
}
Add(Label,9713937,630,266)
{
@Color=11184895
Left=210
Top=190
Width=30
Height=55
Font=[Arial Rounded MT Bold,33,0,128,0]
Caption="0"
}
Add(Math,12763334,560,266)
{
Op2=1
Point(doClear)
link(onResult,9713937:doText,[])
link(Op1,12763334:Result,[(566,254)(600,254)(600,311)(566,311)])
}
Add(Label,9562325,420,168)
{
@Color=11184895
Left=10
Top=210
Width=188
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Картинок обследовано:"
AutoSize=1
Alignment=1
}
Add(If_else,4206624,182,154)
{
Type=2
Op2=Real(0)
link(onTrue,11447291:doOperation,[])
link(Op1,3438475:Text,[(188,118)(118,118)])
link(Op2,16682673:Var2,[])
}
Add(Label,9090719,427,175)
{
@Color=11184895
Left=10
Top=160
Width=186
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Страниц обследовать:"
AutoSize=1
Alignment=1
}
Add(Edit,3438475,112,49)
{
Left=210
Top=150
Width=75
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="50"
DataType=1
}
Add(StrCat,108939,294,161)
{
Str1="&page="
link(onStrCat,12005414:In,[])
}
Add(Edit,6682021,189,49)
{
@Hint=#53:Номер страницы для формирования адреса след. страницы|
@Color=16755370
Left=315
Top=260
Width=75
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="-1"
DataType=1
AddHint(62,-10,197,26,@Hint)
}
Add(LineBreak,2575467,84,154)
{
Caption="Счет. стр."
Color=65280
link(Out,4206624:doCompare,[])
Primary=[4436292,602,280]
}
Add(Math,11447291,224,154)
{
Op2=1
link(onResult,9374681:doEvent1,[])
link(Op1,16682673:Var3,[(230,117)])
}
Add(GetDataEx,16682673,189,112)
{
link(Data,6682021:Text,[])
}
Add(Hub,9374681,266,154)
{
link(onEvent1,6682021:doText,[(286,160)(286,108)(177,108)(177,55)])
link(onEvent2,108939:doStrCat,[])
}
Add(StrCat,12913660,287,259)
{
link(onStrCat,9236709:doDownload,[])
link(Str2,108939:Result,[])
}
Add(Hub,13960487,140,252)
{
InCount=2
link(onEvent1,12763334:doClear,[(554,258)(554,279)])
link(onEvent2,4980757:doWork2,[])
}
Add(LineBreak,11236716,91,280)
{
Caption="След. стр."
Color=-16777203
link(Out,4980757:doWork3,[(165,286)])
Primary=[12005414,245,-119]
}
Add(Edit,7833261,630,371)
{
@Hint=#38:Место в рейтинге по указанному запросу|0:|
@Color=11184895
Left=205
Top=260
Width=75
Height=40
Font=[MS Sans Serif,15,1,128,1]
Text=""
ReadOnly=0
link(Str,9713937:Caption,[])
AddHint(-291,18,186,39,@Hint)
}
Add(RE_Search,7439446,553,371)
{
ModifierR=1
link(onMatch,7833261:doText,[])
link(Expression,7546410:Text,[])
}
Add(Edit,7546410,560,322)
{
@Hint=#19:ID искомой картинки|
@Color=11184895
Left=210
Top=100
Width=160
Height=30
Font=[MS Sans Serif,14,1,0,1]
Text="1718820670"
AddHint(-198,9,123,13,@Hint)
}
Add(HubEx,4980757,161,259)
{
link(onEvent,16602688:doStrCat,[])
}
Add(If_else,1946375,630,434)
{
Op2=String()
link(onTrue,4436292:In,[])
link(onFalse,9236709:doStop,[(679,447)(679,481)(325,481)(325,272)])
link(Op1,7833261:Text,[])
}
Add(Label,14907616,436,184)
{
@Color=11184895
Left=10
Top=270
Width=172
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Рейтинг:"
AutoSize=1
Alignment=1
}
Add(Label,8370220,442,192)
{
@Color=11184895
Left=285
Top=270
Width=21
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="на"
Alignment=1
}
Add(Label,7184490,448,199)
{
@Color=11184895
Left=395
Top=270
Width=78
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="странице."
Alignment=1
}
Add(Label,2854996,89,105)
{
@Color=11184895
Left=10
Top=105
Width=186
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Страниц обследовать:"
AutoSize=1
Alignment=1
}