inter1 писал(а):
частенько выкидываетGalkov писал(а):
кольцеваниеinter1, попробуй так и отпишись, заработало ли:
Add(MainForm,14608350,763,238)
{
Width=516
Height=360
Font=[MS Sans Serif,14,1,255,1]
Caption="РЕЙТИНГ"
Position=1
Point(onClose)
}
Add(HTTP_Get,9236709,511,371)
{
Wait=0
link(onDownload,13366773:doConvert,[])
}
Add(StreamConvertor,13366773,553,378)
{
Mode=6
link(onResult,12391342:doSearch,[])
}
Add(BlockFind,12391342,595,378)
{
StartBlock="<script data-react-helmet="true" type="application/ld+json">"
EndBlock="</script>"
link(onSearch,4886994:doSearch,[])
}
Add(BlockFind,4886994,637,378)
{
IncludeBlock=1
StartBlock=""url":""
EndBlock="""
Point(doStop)
link(onSearch,3601484:doEvent1,[])
}
Add(Edit,70389,357,322)
{
@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,350,371)
{
@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,140,364)
{
Left=15
Top=10
Width=110
Height=30
Font=[@Arial Unicode MS,16,0,128,204]
Caption=">>>"
link(onClick,13960487:doEvent1,[])
}
Add(StrCat,2399675,406,371)
{
Str2="?image_type=vector"
link(onStrCat,12913660:doStrCat,[])
}
Add(Hub,3601484,686,378)
{
link(onEvent1,12763334:doOperation,[])
link(onEvent2,7439446:doExec,[(714,391)(714,489)])
}
Add(Label,9713937,805,378)
{
@Color=11184895
Left=210
Top=190
Width=30
Height=55
Font=[Arial Rounded MT Bold,33,0,128,0]
Caption="0"
}
Add(Math,12763334,735,378)
{
Op2=1
Point(doClear)
link(onResult,9713937:doText,[])
link(Op1,12763334:Result,[(741,366)(775,366)(775,423)(741,423)])
}
Add(Label,9562325,763,280)
{
@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,357,266)
{
Type=2
Op2=Real(0)
link(onTrue,11447291:doOperation,[])
link(Op1,3438475:Text,[(363,230)(293,230)])
link(Op2,16682673:Var2,[])
}
Add(Label,9090719,770,287)
{
@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,287,161)
{
Left=210
Top=150
Width=75
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="50"
DataType=1
}
Add(StrCat,108939,469,273)
{
Str1="&page="
link(onStrCat,12005414:In,[])
}
Add(Edit,6682021,364,161)
{
@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,13954710,259,266)
{
Caption="Счет. стр."
Color=65280
link(Out,4206624:doCompare,[])
Primary=[4436292,602,280]
}
Add(Math,11447291,399,266)
{
Op2=1
link(onResult,9374681:doEvent1,[])
link(Op1,16682673:Var3,[(405,229)])
}
Add(GetDataEx,16682673,364,224)
{
link(Data,6682021:Text,[])
}
Add(Hub,9374681,441,266)
{
link(onEvent1,6682021:doText,[(461,272)(461,220)(352,220)(352,167)])
link(onEvent2,108939:doStrCat,[])
}
Add(StrCat,12913660,462,371)
{
link(onStrCat,9236709:doDownload,[])
link(Str2,108939:Result,[])
}
Add(Hub,13960487,189,364)
{
InCount=2
OutCount=3
link(onEvent1,12763334:doClear,[(724,370)(724,391)])
link(onEvent2,4980757:doWork2,[])
link(onEvent3,12234355:In,[])
}
Add(LineBreak,12563873,266,406)
{
Caption="След. стр."
Color=-16777203
link(Out,4980757:doWork3,[(340,412)])
Primary=[12005414,245,-133]
}
Add(Edit,7833261,805,483)
{
@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,728,483)
{
ModifierR=1
link(onMatch,7833261:doText,[])
link(Expression,7546410:Text,[])
}
Add(Edit,7546410,735,434)
{
@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,336,371)
{
link(onEvent,16602688:doStrCat,[])
}
Add(If_else,1946375,805,546)
{
Op2=String()
link(onTrue,4436292:In,[])
link(onFalse,9236709:doStop,[(854,559)(854,593)(500,593)(500,384)])
link(Op1,7833261:Text,[])
}
Add(Label,14907616,777,294)
{
@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,784,301)
{
@Color=11184895
Left=285
Top=270
Width=21
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="на"
Alignment=1
}
Add(Label,7184490,791,308)
{
@Color=11184895
Left=395
Top=270
Width=78
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="странице."
Alignment=1
}
Add(Label,2854996,259,217)
{
@Color=11184895
Left=10
Top=105
Width=186
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Страниц обследовать:"
AutoSize=1
Alignment=1
}
Add(LineBreak,2050168,763,546)
{
link(Out,1946375:doCompare,[])
Primary=[12234355,-546,-168]
}