Вверх ↑
Ответов: 207
Рейтинг: 14
#1: 2020-05-08 01:29:38 ЛС | профиль | цитата
inter1, Может так?
Add(MainForm,5686619,308,497)
{
Width=532
Height=549
Font=[MS Sans Serif,14,1,255,1]
Caption="РЕЙТИНГ"
Position=1
Point(onClose)
link(onCreate,10633391:doWork2,[])
}
Add(HTTP_Get,9236709,504,336)
{
Wait=0
UserAgent="Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/81.0.4044.138 Safari/537.36"
link(onDownload,13366773:doConvert,[])
link(onStop,14934294:doCompare,[(554,363)(554,482)])
}
Add(StreamConvertor,13366773,567,343)
{
Mode=6
link(onResult,12391342:doSearch,[])
}
Add(BlockFind,12391342,616,343)
{
IncludeBlock=1
StartBlock="","id":""
EndBlock=""}"
link(onSearch,3601484:doEvent1,[])
}
Add(Edit,70389,427,280)
{
@Hint=#16:Поисковый запрос|
@Color=11184895
Left=210
Top=5
Width=280
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="rural landscape"
AddHint(-74,-138,112,13,@Hint)
}
Add(Button,5211380,126,329)
{
Left=120
Top=465
Width=110
Height=30
Font=[@Arial Unicode MS,16,0,128,204]
Caption="Старт"
Data=Integer(0)
link(onClick,6912705:doNext,[])
}
Add(Hub,3601484,672,343)
{
link(onEvent1,10039189:doNext,[])
link(onEvent2,1441028:doCompare,[(707,356)(707,426)])
}
Add(If_else,4206624,553,231)
{
Type=3
Op2=Real(0)
link(onTrue,12005414:In,[])
link(Op2,3438475:Text,[])
}
Add(Edit,3438475,560,175)
{
Left=210
Top=100
Width=75
Height=35
Font=[@Arial Unicode MS,16,0,128,204]
Text="50"
DataType=1
}
Add(LineBreak,11309705,364,217)
{
Caption="Счет. стр."
Color=65280
link(Out,7777817:doNext,[(465,223)(465,237)])
Primary=[4436292,735,259]
}
Add(Hub,13960487,350,238)
{
OutCount=3
link(onEvent1,7777817:doReset,[])
link(onEvent2,1453015:In,[])
link(onEvent3,322142:In,[])
}
Add(LineBreak,1520992,266,378)
{
Caption="След. стр."
Color=-16777203
link(Out,8129614:doWork3,[(352,384)])
Primary=[12005414,343,-147]
}
Add(Edit,7546410,735,364)
{
@Hint=#19:ID искомой картинки|
@Color=11184895
Left=210
Top=60
Width=160
Height=30
Font=[MS Sans Serif,14,1,0,1]
Text=""
ReadOnly=0
AddHint(-50,-54,123,13,@Hint)
}
Add(FormatStr,8733881,427,336)
{
Mask="https://www.shutterstock.com/search/%1?image_type=vector&page=%2"
Point(FString)
link(onFString,9236709:doDownload,[])
link(Str1,70389:Text,[])
link(Str2,16336754:Var2,[(440,317)(482,317)])
}
Add(Timer,16722992,987,476)
{
Interval=1
Enable=1
AutoStop=1
link(onTimer,6534856:doStart,[])
}
Add(If_else,14934294,847,476)
{
link(onTrue,1647417:doWork2,[])
link(onFalse,10633391:doWork1,[(898,489)(898,559)(354,559)])
link(Op1,12313502:Value,[])
}
Add(Thread,6534856,1043,476)
{
Delay=0
FastStop=0
link(onExec,4436292:In,[])
}
Add(Hub,4121692,518,231)
{
link(onEvent1,4206624:doCompare,[])
link(onEvent2,6682021:doText,[(542,244)(542,286)])
}
Add(CounterEx,10039189,833,343)
{
Max=100000
Point(doReset)
link(onNext,9713937:doText,[])
}
Add(If_else,1441028,728,420)
{
link(onTrue,11065286:doEvent1,[])
link(Op2,1011251:Var2,[])
}
Add(CounterEx,7777817,476,231)
{
Max=100000
Default=1
Point(doReset)
link(onNext,4121692:doEvent1,[])
}
Add(Label,487602,784,217)
{
@Color=11184895
Left=5
Top=70
Width=186
Height=160
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Искать картинку с ID:\r\n\r\nСтраниц обследовать:\r\n\r\nКартинок обследовано:\r\n\r\nРейтинг:"
AutoSize=1
Alignment=1
}
Add(Label,3521556,784,224)
{
@Color=11184895
Left=15
Top=15
Width=173
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="Поисковый запрос:"
AutoSize=1
Alignment=1
}
Add(If_else,9092256,364,336)
{
Op2=Integer(1)
link(onTrue,8733881:doString,[])
link(Op1,8348965:Value,[])
}
Add(Memory,8348965,364,280)
{
}
Add(Hub,8368213,301,329)
{
link(onEvent1,8348965:doValue,[(329,335)(329,286)])
link(onEvent2,8129614:doWork2,[])
}
Add(Button,9075495,125,287)
{
Left=275
Top=465
Width=110
Height=30
Font=[@Arial Unicode MS,16,0,128,204]
Caption="Стоп"
Data=Integer(1)
link(onClick,6076420:doEvent1,[])
}
Add(LineBreak,6332117,777,350)
{
Color=255
link(Out,10039189:doReset,[])
Primary=[1453015,-399,-105]
}
Add(LineBreak,8644213,287,238)
{
Color=255
link(Out,13960487:doEvent1,[])
Primary=[10903092,336,280]
}
Add(CounterEx,6912705,217,329)
{
Point(doReset)
link(onNext,11615174:doCompare,[])
}
Add(Hub,6076420,175,287)
{
link(onEvent1,8348965:doClear,[])
link(onEvent2,6912705:doReset,[(202,300)(202,342)])
}
Add(If_else,11615174,259,329)
{
Type=3
Op2=Integer(1)
link(onTrue,8368213:doEvent1,[])
}
Add(RichEdit,3997311,434,448)
{
Left=5
Top=245
Width=105
Height=205
Strings=#9:552055723|10:1718820670|9:552055723|
ScrollBars=3
}
Add(StringTable,10784606,1015,567)
{
Left=115
Top=245
Width=395
Height=205
Columns=#6:Id=150|11:Райтинг=150|11:Страница=90|
Grid=0
}
Add(FormatStr,6051772,959,567)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,10784606:doAdd,[])
link(Str1,1011251:Var3,[(965,404)])
link(Str2,10039189:Count,[(972,392)(839,392)])
link(Str3,5846534:Var,[])
}
Add(Hub,11065286,784,420)
{
OutCount=3
link(onEvent1,7833261:doText,[])
link(onEvent2,12313502:doValue,[])
link(onEvent3,6051772:doString,[(833,440)(833,573)])
}
Add(Memory,12313502,847,427)
{
}
Add(LineBreak,6600245,784,462)
{
Color=255
link(Out,12313502:doClear,[(841,468)(841,440)])
Primary=[322142,-406,-210]
}
Add(GetDataEx,1011251,735,399)
{
link(Data,7546410:Text,[])
}
Add(GetDataEx,16336754,476,287)
{
link(Data,7777817:Count,[])
}
Add(LineBreak,5465387,497,308)
{
Type=1
link(Data,16336754:Var3,[(503,292)])
Primary=[5846534,476,231]
}
Add(ArrayRW,650311,448,511)
{
link(onRead,10485886:doCompare,[])
link(Array,3997311:Array,[])
}
Add(CounterEx,4228535,392,511)
{
Min=-1
Max=100000
Default=-1
Point(doReset)
link(onNext,650311:doRead,[])
}
Add(HubEx,10633391,350,511)
{
link(onEvent,4228535:doNext,[])
}
Add(If_else,10485886,504,511)
{
Type=5
link(onTrue,2986841:doEvent1,[])
}
Add(HubEx,8129614,348,336)
{
link(onEvent,9092256:doCompare,[])
}
Add(Label,16257546,784,203)
{
@Color=11184895
Left=305
Top=195
Width=21
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="на"
Alignment=1
}
Add(Label,6489578,784,210)
{
@Color=11184895
Left=410
Top=195
Width=78
Height=25
Font=[@Arial Unicode MS,12,0,32896,204]
Caption="странице."
Alignment=1
}
Add(Edit,6682021,553,280)
{
@Hint=#53:Номер страницы для формирования адреса след. страницы|
@Color=16755370
Left=335
Top=190
Width=75
Height=40
Font=[@Arial Unicode MS,16,0,128,204]
Text="1"
DataType=1
ReadOnly=0
AddHint(107,-10,197,26,@Hint)
}
Add(Label,9713937,987,343)
{
@Color=11184895
Left=210
Top=140
Width=30
Height=45
Font=[Arial Rounded MT Bold,33,0,128,0]
Caption="0"
}
Add(Edit,7833261,987,420)
{
@Hint=#38:Место в рейтинге по указанному запросу|0:|
@Color=11184895
Left=210
Top=190
Width=85
Height=40
Font=[MS Sans Serif,15,1,128,1]
Text=""
ReadOnly=0
link(Str,9713937:Caption,[])
AddHint(96,-33,186,39,@Hint)
}
Add(Hub,2986841,581,511)
{
OutCount=3
link(onEvent1,7546410:doText,[(680,517)(680,370)])
link(onEvent2,10903092:In,[])
link(onEvent3,1647417:doWork3,[(949,531)])
}
Add(HubEx,1647417,945,476)
{
link(onEvent,16722992:doTimer,[])
}
UPD: Добавил список.
карма: 2

1
Голосовали:inter1
Редактировалось 4 раз(а), последний 2020-05-08 14:21:58