HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуОтслеживание поисковой позиции файла на сайте ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 9906
Рейтинг: 351
#16: 2020-05-06 00:56:25 ЛС | профиль | цитата
Tad писал(а):
Увидел...

Ну и
карма: 9

0
Ответов: 212
Рейтинг: 2
#17: 2020-05-06 13:37:46 ЛС | профиль | цитата
Не отвечает пока не закончит процесс. Но, главное, частенько выкидывает, закрывается с ошибкой
карма: 0
Незнание HiAsm не снижает возможностей, но сильно увеличивает схему
0
Ответов: 1926
Рейтинг: 172
#18: 2020-05-07 17:44:48 ЛС | профиль | цитата
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]
}
карма: 9
Учебник по HiAsm | Видеоуроки | Мои программы
0
Ответов: 16884
Рейтинг: 1239
#19: 2020-05-07 20:57:07 ЛС | профиль | цитата
3042, Забрать кнопку, чтобы не игрался. 

Add(MainForm,2953706,84,301)
{
 Width=516
 Height=309
 Font=[MS Sans Serif,14,1,255,1]
 Caption="РЕЙТИНГ"
 BorderStyle=1
 Position=1
 Point(onClose)
}
Add(HTTP_Get,9236709,308,301)
{
 Wait=0
 link(onDownload,13366773:doConvert,[])
 link(onStop,12391342:doSearch,[(348,328)(348,370)])
}
Add(StreamConvertor,13366773,357,308)
{
 Mode=6
 link(onResult,13106472:doValue,[])
}
Add(BlockFind,12391342,357,364)
{
 StartBlock="<script data-react-helmet="true" type="application/ld+json">"
 EndBlock="</script>"
 link(onSearch,4886994:doSearch,[])
 link(Text,13106472:Value,[(363,352)(405,352)])
}
Add(BlockFind,4886994,399,364)
{
 IncludeBlock=1
 StartBlock=""url":""
 EndBlock="""
 Point(doStop)
 link(onSearch,3601484:doEvent1,[])
 link(onEndSearch,1946375:doCompare,[(437,377)(437,419)])
}
Add(Button,5211380,98,217)
{
 Left=400
 Top=10
 Width=90
 Height=30
 Font=[@Arial Unicode MS,16,0,128,204]
 Caption=">>>"
 Point(doVisible)
 link(onClick,13960487:doEvent1,[])
}
Add(Hub,3601484,441,364)
{
 link(onEvent1,12763334:doOperation,[(465,370)(465,237)])
 link(onEvent2,7439446:doExec,[])
}
Add(Label,9713937,525,231)
{
 @Color=11184895
 Left=210
 Top=190
 Width=20
 Height=29
 Font=[Courier,19,1,128,204]
 Caption="0"
}
Add(Math,12763334,476,231)
{
 Op2=1
 Point(doClear)
 link(onResult,9713937:doText,[])
 link(Op1,5085512:Var1,[(482,219)(470,219)(470,271)])
}
Add(If_else,4206624,175,147)
{
 Type=2
 link(onTrue,11447291:doOperation,[])
 link(Op1,3438475:Text,[(181,133)(132,133)])
 link(Op2,16682673:Var2,[])
}
Add(Edit,3438475,126,84)
{
 Left=210
 Top=140
 Width=75
 Height=40
 Font=[@Arial Unicode MS,16,0,128,204]
 Text="20"
 DataType=2
}
Add(Edit,6682021,182,42)
{
 @Hint=#53:Номер страницы для формирования адреса след. страницы|
 @Color=16755370
 Left=330
 Top=220
 Width=75
 Height=40
 Font=[@Arial Unicode MS,16,0,128,204]
 Text="-1"
 DataType=2
 AddHint(62,-10,197,26,@Hint)
}
Add(LineBreak,2814973,42,147)
{
 Caption="Счет. стр."
 Color=65280
 link(Out,4206624:doCompare,[])
 Primary=[4436292,553,266]
}
Add(Math,11447291,231,147)
{
 Op2=1
 ResultType=0
 Point(doClear)
 link(onResult,9374681:doEvent1,[])
 link(Op1,16682673:Var3,[(237,131)])
}
Add(GetDataEx,16682673,182,126)
{
 link(Data,6682021:Text,[])
}
Add(Hub,9374681,273,147)
{
 link(onEvent1,3766391:doWork3,[(296,153)(296,96)(165,96)])
 link(onEvent2,12005414:In,[])
}
Add(Hub,13960487,140,217)
{
 OutCount=6
 link(onEvent1,4342560:doWork1,[(159,223)(159,207)(46,207)(46,223)])
 link(onEvent2,3856675:doData,[(166,230)(166,114)(114,114)(114,48)])
 link(onEvent3,11447291:doClear,[(222,237)(222,160)])
 link(onEvent4,12763334:doClear,[])
 link(onEvent6,4980757:doWork2,[])
}
Add(LineBreak,14957278,63,259)
{
 Caption="След. стр."
 Color=16776960
 link(Out,4980757:doWork3,[(165,265)])
 Primary=[12005414,245,-105]
}
Add(Edit,7833261,546,371)
{
 @Hint=#38:Место в рейтинге по указанному запросу|0:|
 @Color=11184895
 Left=210
 Top=220
 Width=95
 Height=40
 Font=[MS Sans Serif,15,1,128,1]
 Text=""
 ReadOnly=0
 link(Str,5085512:Var3,[(552,271)])
 AddHint(-78,-206,186,39,@Hint)
}
Add(RE_Search,7439446,469,371)
{
 ModifierR=1
 link(onMatch,7833261:doText,[])
 link(Expression,7546410:Text,[])
}
Add(Edit,7546410,476,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(-174,81,123,13,@Hint)
}
Add(HubEx,4980757,161,252)
{
 link(onEvent,7510618:doString,[])
}
Add(If_else,1946375,546,413)
{
 Op2=String()
 link(onTrue,4436292:In,[])
 link(onFalse,9236709:doStop,[(583,426)(583,449)(297,449)(297,314)])
 link(Op1,7833261:Text,[])
}
Add(Label,8370220,84,343)
{
 @Color=11184895
 Left=305
 Top=230
 Width=21
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="на"
 Alignment=1
}
Add(Label,7184490,84,350)
{
 @Color=11184895
 Left=410
 Top=230
 Width=78
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="странице."
 Alignment=1
}
Add(Label,2854996,84,357)
{
 @Color=11184895
 Left=5
 Top=105
 Width=186
 Height=150
 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(DoData,3856675,126,42)
{
 Data=Integer(-1)
 link(onEventData,3766391:doWork2,[])
}
Add(HubEx,3766391,161,42)
{
 link(onEvent,6682021:doText,[])
}
Add(FormatStr,7510618,189,252)
{
 Mask="https://www.shutterstock.com/search/%1?image_type=vector&page=%2"
 link(onFString,6818506:doText,[])
 link(Str1,14355956:EditText,[])
 link(Str2,11447291:Result,[(202,229)(237,229)])
}
Add(Edit,6818506,231,252)
{
 Left=15
 Top=55
 Width=480
 Font=[MS Sans Serif,8,0,255,1]
 link(onChange,9474355:doEvent1,[])
}
Add(ComboBox,14355956,175,189)
{
 Left=190
 Top=15
 Width=195
 Height=21
 Font=[MS Sans Serif,10,1,0,1]
 Strings=#15:rural landscape|
 ReadOnly=0
 Point(EditText)
}
Add(Label,3521556,84,364)
{
 @Color=11184895
 Left=10
 Top=15
 Width=173
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="Поисковый запрос:"
 AutoSize=1
 Alignment=1
}
Add(Application,3299145,308,259)
{
}
Add(Hub,9474355,273,252)
{
 OutCount=3
 link(onEvent1,13106472:doClear,[(393,258)(393,321)])
 link(onEvent2,3299145:doProcessMessages,[])
 link(onEvent3,9236709:doDownload,[(297,272)(297,307)])
}
Add(GetDataEx,5085512,476,266)
{
 link(Data,12763334:Result,[])
}
Add(Memory,13106472,399,308)
{
 Default=String()
}
Add(ChanelToIndex,4342560,56,217)
{
 link(onIndex,5211380:doVisible,[])
}
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 207
Рейтинг: 14
#20: 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="&quot;,&quot;id&quot;:&quot;"
 EndBlock="&quot;}"
 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: Добавил список.

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

1
Голосовали:inter1
Ответов: 16884
Рейтинг: 1239
#21: 2020-05-08 22:03:51 ЛС | профиль | цитата
inter1, пробуй.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1рейтинг.rar [2.1KB] [414]
Ответов: 9906
Рейтинг: 351
#22: 2020-05-09 04:53:01 ЛС | профиль | цитата
Tad, у меня остались вопросы:

1.  Если ты поставил HTTP_Get.Wait=false, то за каким лядом ты исполняешь doProcessMessages. Если хочешь, чтобы мельтешило в <Картинок обследовано>, то его надо ставить в другое место (хотя и непонятно зачем это).

2.   Почему оба BlockFind-а не останавливаются первым же нахождением. Может более одного и не бывает на данном конкретном сайте... Сегодня. Но, профессионально программист должен отработать все варианты. ИМХО.
Например, на какой-то странице не сработал 1-й BlockFind: означает ли это что его не будет и на последующих страницах.

3.  Все-таки блокировка кнопки необходима. С последующей реанимацией, естественно. Просто/непросто - надо, и все. ИМХО.

4. А чего это за супер напряги с RE_Search? Обыкновенного Position не хватает, что ли...

5.  Какого черта ты до сих пор не влепил всего лишь DeferredEvent в разрыв <След. стр.>. Религия не позволяет, что ли...
Ну сколько можно говорить про кольцевания.
Вот я не вечен же: это что, так и останется "утерянными знаниями предыдущих цивилизаций"
Блин...

Редактировалось 3 раз(а), последний 2020-05-09 04:55:43
карма: 9

0
Ответов: 9906
Рейтинг: 351
#23: 2020-05-09 06:58:10 ЛС | профиль | цитата
Хотя я не уверен, что DeferredEvent поможет при HTTP_Get.Wait=false ...
Подумать надо.

--- Добавлено в 2020-05-09 07:02:46

Подумал: должно помочь.

Редактировалось 1 раз(а), последний 2020-05-09 07:02:46
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#24: 2020-05-09 07:42:33 ЛС | профиль | цитата
Galkov,
1. ещё в Edit, которая "ID искомой картинки" нельзя писать 718820670,
(картинки с ID искомой картинки=718820
и с ID искомой картинки=670
найдутся точно на том же месте )
для точного результата нужно писать -718820670".
2. человек поставил RE_Search - пусть стоит.
3. я не нанимался выдать готовый продукт, просто указал топик стартёру на лишние линки и компоненты в его схеме.
Это же относится и к кольцеванию - головная боль топик стартёра.

Редактировалось 4 раз(а), последний 2020-05-09 08:31:23
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#25: 2020-05-09 08:45:14 ЛС | профиль | цитата
Tad писал(а):
для точного результата нужно писать -718820670"

Согласен (пришлось таки заглянуть в html). Тогда во втором BlockFind надо ставить IncludeBlock=true, как и в первом.
Tad писал(а):
я не нанимался выдать готовый продукт

Это не означает, надо выкладывать схемы с принципиальными ошибками.
Кольцевание - принципиальная ошибка.
Особенно, если ее исправление не сложнее всего остального. Невозможно сравнивать даже существенное упрощение схемы - с кольцеванием.
За язык тебя никто не тянул: сам груздем назвался.


В общем, ТВОЮ схему я исполнил бы так:
Add(MainForm,2953706,546,42)
{
 Width=516
 Height=309
 Font=[MS Sans Serif,14,1,255,1]
 Caption="РЕЙТИНГ"
 BorderStyle=1
 Position=1
 Point(onClose)
}
Add(HTTP_Get,9236709,308,238)
{
 link(onDownload,13366773:doConvert,[])
 link(onStop,1946375:doCompare,[(347,265)(347,307)])
}
Add(StreamConvertor,13366773,357,245)
{
 Mode=6
 link(onResult,12391342:doSearch,[])
}
Add(BlockFind,4886994,455,245)
{
 StartBlock=""url":""
 EndBlock="""
 Point(doStop)
 link(onSearch,3601484:doEvent1,[])
}
Add(Button,5211380,91,161)
{
 Left=400
 Top=10
 Width=90
 Height=30
 Font=[@Arial Unicode MS,16,0,128,204]
 Caption=">>>"
 Data=String()
 Point(doEnabled)
 link(onClick,13960487:doEvent1,[])
}
Add(Hub,3601484,504,245)
{
 link(onEvent1,12763334:doOperation,[(529,251)(529,181)])
 link(onEvent2,6754800:doSearch,[])
}
Add(Label,9713937,672,175)
{
 @Color=11184895
 Left=210
 Top=190
 Width=20
 Height=29
 Font=[Courier,19,1,128,204]
 Caption=""
}
Add(Math,12763334,588,175)
{
 Op2=1
 ResultType=0
 Point(doClear)
 link(onResult,3305075:doWork2,[])
 link(Op1,12763334:Result,[(594,166)(608,166)(608,215)(594,215)])
}
Add(If_else,4206624,196,98)
{
 Type=2
 link(onTrue,11447291:doOperation,[(249,104)(249,146)])
 link(Op1,3438475:Text,[(202,89)(139,89)])
 link(Op2,16682673:Var1,[(209,89)])
}
Add(Edit,3438475,133,42)
{
 Left=210
 Top=140
 Width=75
 Height=40
 Font=[@Arial Unicode MS,16,0,128,204]
 Text="20"
 DataType=2
}
Add(Edit,6682021,259,42)
{
 @Hint=#39:Номер страницы для формирования адреса.|
 @Color=16755370
 Left=330
 Top=220
 Width=75
 Height=40
 Font=[@Arial Unicode MS,16,0,128,204]
 Text=""
 DataType=2
 ReadOnly=0
 AddHint(45,3,125,26,@Hint)
}
Add(Math,11447291,259,140)
{
 Op2=1
 ResultType=0
 Point(doClear)
 link(onResult,9374681:doEvent1,[])
 link(Op1,16682673:Var3,[(265,89)])
}
Add(GetDataEx,16682673,259,84)
{
 link(Data,6682021:Text,[])
}
Add(Hub,9374681,301,140)
{
 link(onEvent1,3766391:doWork3,[(326,146)(326,83)(249,83)])
 link(onEvent2,12005414:In,[])
}
Add(Hub,13960487,140,161)
{
 OutCount=6
 link(onEvent1,7389952:doWork1,[(165,167)(165,153)(32,153)(32,167)])
 link(onEvent2,3766391:doWork2,[(172,174)(172,48)])
 link(onEvent3,11447291:doClear,[(235,181)(235,153)])
 link(onEvent4,12763334:doClear,[])
 link(onEvent5,3980379:doEvent1,[])
 link(onEvent6,6620692:doWork2,[])
}
Add(LineBreak,5376830,42,238)
{
 Caption="След. стр."
 Color=16776960
 link(Out,3980267:doDeferredEvent,[])
 Primary=[12005414,294,-91]
}
Add(Edit,7833261,672,231)
{
 @Hint=#38:Место в рейтинге по указанному запросу|0:|
 @Color=11184895
 Left=210
 Top=220
 Width=95
 Height=40
 Font=[MS Sans Serif,15,1,128,1]
 Text=""
 ReadOnly=0
 link(Str,9713937:Caption,[])
 AddHint(-82,-113,186,39,@Hint)
}
Add(Edit,7546410,546,203)
{
 @Hint=#19:ID искомой картинки|
 @Color=11184895
 Left=210
 Top=100
 Width=160
 Height=30
 Font=[MS Sans Serif,14,1,0,1]
 Text="-1718820670""
 AddHint(-139,10,123,13,@Hint)
}
Add(If_else,1946375,672,301)
{
 Type=5
 Op2=String()
 link(onTrue,7389952:doWork2,[(718,307)(718,349)(32,349)(32,174)])
 link(onFalse,6620692:doWork3,[(711,314)(711,342)(179,342)])
 link(Op1,7833261:Text,[])
}
Add(Label,8370220,546,84)
{
 @Color=11184895
 Left=305
 Top=230
 Width=21
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="на"
 Alignment=1
}
Add(Label,7184490,546,91)
{
 @Color=11184895
 Left=410
 Top=230
 Width=78
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="странице."
 Alignment=1
}
Add(Label,2854996,546,98)
{
 @Color=11184895
 Left=5
 Top=105
 Width=186
 Height=150
 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(HubEx,3766391,245,42)
{
 link(onEvent,6682021:doText,[])
}
Add(FormatStr,7510618,210,238)
{
 Mask="https://www.shutterstock.com/search/%1?image_type=vector&page=%2"
 link(onFString,6818506:doText,[])
 link(Str1,14355956:EditText,[])
 link(Str2,11447291:Result,[(223,201)(265,201)])
}
Add(Edit,6818506,259,238)
{
 Left=15
 Top=55
 Width=480
 Font=[MS Sans Serif,8,0,255,1]
 Text=""
 ReadOnly=0
 link(onChange,9236709:doDownload,[])
}
Add(ComboBox,14355956,196,140)
{
 Left=190
 Top=15
 Width=195
 Height=21
 Font=[MS Sans Serif,10,1,0,1]
 Strings=#15:rural landscape|
 ReadOnly=0
 Point(EditText)
}
Add(Label,3521556,546,105)
{
 @Color=11184895
 Left=10
 Top=15
 Width=173
 Height=25
 Font=[@Arial Unicode MS,12,0,32896,204]
 Caption="Поисковый запрос:"
 AutoSize=1
 Alignment=1
}
Add(BlockFind,12391342,406,245)
{
 StartBlock="<script data-react-helmet="true" type="application/ld+json">"
 EndBlock="</script>"
 Point(doStop)
 link(onSearch,4886994:doSearch,[])
}
Add(HubEx,3305075,651,175)
{
 link(onEvent,9713937:doText,[])
}
Add(Hub,3980379,630,189)
{
 link(onEvent1,3305075:doWork3,[(655,195)])
 link(onEvent2,13179610:doWork1,[(655,202)])
}
Add(HubEx,13179610,651,231)
{
 link(onEvent,7833261:doText,[])
}
Add(DeferredEvent,3980267,126,238)
{
 link(onDeferredEvent,7510618:doString,[])
}
Add(Position,6754800,539,252)
{
 link(onSearch,3639468:doEvent1,[])
 link(Target,7546410:Text,[])
}
Add(Hub,3639468,588,252)
{
 OutCount=3
 link(onEvent1,13179610:doWork3,[(655,258)])
 link(onEvent2,12391342:doStop,[(620,265)(620,300)(396,300)(396,258)])
 link(onEvent3,4886994:doStop,[(613,272)(613,293)(445,293)(445,258)])
}
Add(ChanelToIndex,7389952,42,161)
{
 link(onIndex,5211380:doEnabled,[])
}
Add(HubEx,6620692,175,196)
{
 Angle=3
 link(onEvent,4206624:doCompare,[(179,104)])
}

Редактировалось 1 раз(а), последний 2020-05-09 08:53:14
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#26: 2020-05-09 09:09:56 ЛС | профиль | цитата
Galkov писал(а):
я исполнил бы так:
Я за.
Только рейтинг считается неправильно.
Счёт страниц начинается с 0 (page=0), а у тебя с 1. Думаешь, я "-1" загонял от "хорошей жизни" ?

--- Добавлено в 2020-05-09 09:42:55

Окончательный вариант ?

Редактировалось 1 раз(а), последний 2020-05-09 09:42:55
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1рейтинг.zip [2.3KB] [430]
Ответов: 212
Рейтинг: 2
#27: 2020-05-09 10:10:19 ЛС | профиль | цитата
3042 писал(а):
inter1, попробуй так и отпишись, заработало ли:

3042, на мгновение подвисает вначале (видимо, пока устанавливает соединение или из-за фаервола),но затем прекрасно работает. Правда, результат не выдает: поле рейтинга остается пустым. "Картинок обследовано 210; Рейтинг __ ; На странице 1." Но на стр. 1 только 100-105 картинок. Что-то сбилось. (( Но, все равно, спасибо. Очень вам всем благодарен, тратите свое время.

--- Добавлено в 2020-05-09 10:52:38

Tad писал(а):
3042, Забрать кнопку, чтобы не игрался.

Tad, это подрывает основы демократии
Но код работает. Вначале тоже подвисает на 1/3 секунды пока соединяется, но потом данные меняются интерактивно, прикручу еще прогрессбар, будет классно. Спасибо!


Joiner писал(а):
inter1, Может так?


Ого! Joiner, это уже ver.2.0! Я хотел как-то так сделать, но не знал как. Теперь программа дает результат сразу по нескольким направлениям. Спасибо!!

Редактировалось 7 раз(а), последний 2020-05-09 11:04:24
карма: 0
Незнание HiAsm не снижает возможностей, но сильно увеличивает схему
0
Ответов: 16884
Рейтинг: 1239
#28: 2020-05-09 11:13:29 ЛС | профиль | цитата
inter1, а так? https://forum.hiasm.com/getfile/39004
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 212
Рейтинг: 2
#29: 2020-05-09 11:20:28 ЛС | профиль | цитата
Galkov, спасибо, работает идеально, без подвисаний даже вначале! Спасибо за столько внимания к моему очень скромному проекту.
Tad писал(а):
inter1, а так? https://forum.hiasm.com/getfile/39004

Tad, аналогично - нет ни каких подвисаний, здорово!
Спасибо вам всем, ребят. Столько помощи и времени, даже неудобно как-то. Хорошие люди здесь собрались.
карма: 0
Незнание HiAsm не снижает возможностей, но сильно увеличивает схему
0
Ответов: 16884
Рейтинг: 1239
#30: 2020-05-09 13:10:43 ЛС | профиль | цитата
inter1, в схему https://forum.hiasm.com/getfile/39004

необходимо добавить оранжевый линк для дальнейшей работы при "НЕ НАЙДЕНО".

Написал "оранжевый", а он на сайте выглядит "грязно-желтым"

Редактировалось 1 раз(а), последний 2020-05-09 13:15:46
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:inter1
ФорумыПомощь по пакетуОтслеживание поисковой позиции файла на сайте ← Ctrl123Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2024
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика