Вверх ↑
Этот топик читают: Гость
Ответов: 537
Рейтинг: 14
#1: 2018-12-06 08:26:46 ЛС | профиль | цитата
Нужно программно найти хоть один нормальный прокси, чтобы страницы сайта нормально подгружались, помогите сделать прокси чекер, скорость работы совсем не нужна
Add(MainForm,2953706,56,98)
{
Width=612
Height=447
Caption="Control"
BorderStyle=3
Position=1
link(onCreate,11364072:Старт,[])
}
Add(MultiElementEx,11364072,161,112)
{
link(Данные о найденном прокси,13705491:doAdd,[])
}
BEGIN_SDK
Add(EditMultiEx,13564860,21,21)
{
WorkCount=#25:Старт=Начать поиск прокси|
EventCount=#25:Данные о найденном прокси|8:onFinish|
VarCount=#24:Найденный рабочий прокси|
Width=853
Height=445
link(Старт,14145216:doEvent1,[(45,27)(45,146)])
}
Add(Hub,14145216,70,140)
{
OutCount=3
link(onEvent1,3207319:doClear,[(268,146)(268,181)])
link(onEvent2,7041654:doNext,[(94,153)(94,111)])
link(onEvent3,5857414:doStart,[])
}
Add(RE_Search,11850979,280,231)
{
Expression="[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\:[0-9]{2,4}"
link(onMatch,1517364:doEvent1,[])
link(onNotFound,8602208:doEvent1,[(320,244)(320,258)])
link(SourceStr,3207319:Text,[])
}
Add(StrList,3207319,280,168)
{
}
Add(Timer,11224109,231,238)
{
Interval=25
Enable=1
link(onTimer,11850979:doExecNext,[])
}
Add(Thread,5857414,105,154)
{
Delay=100
FastStop=0
BusyEvent=1
link(onSyncExec,15767735:doLoadString,[])
}
Add(StrList,12251892,154,77)
{
Strings=#31:http://foxtools.ru/Proxy?page=1|31:http://foxtools.ru/Proxy?page=2|31:http://foxtools.ru/Proxy?page=3|31:http://foxtools.ru/Proxy?page=4|31:http://foxtools.ru/Proxy?page=5|
Point(doGetString)
Point(String)
}
Add(HTTPClient,15767735,154,161)
{
link(URL,12251892:String,[(160,134)(181,134)])
link(onFinish,12518144:doEvent1,[])
}
Add(CounterEx,7041654,105,105)
{
Min=-1
Max=4
Default=-1
link(onNext,12251892:doGetString,[])
}
Add(Hub,1517364,329,231)
{
link(onEvent1,828063:doEvent,[(361,237)(361,209)])
link(onEvent2,11224109:doTimer,[(360,244)(360,283)(213,283)(213,244)])
}
Add(Hub,12518144,217,168)
{
link(onEvent1,3207319:doAdd,[])
link(onEvent2,11850979:doExec,[(255,181)(255,237)])
}
Add(Hub,8602208,329,252)
{
OutCount=3
link(onEvent1,11224109:doStop,[(354,258)(354,279)(220,279)(220,251)])
link(onEvent2,12099293:doStopAll,[(364,265)(364,286)])
link(onEvent3,12099293:doTimer,[])
}
Add(VisualStrings,3825693,413,231)
{
Lines=#1:0|
Width=18
Point(doText)
Point(onText)
link(onText,3353631:doEvent1,[])
}
Add(Hub,3353631,441,231)
{
link(onEvent1,9052667:doGetString,[])
link(onEvent2,9052667:doDelete,[(462,244)(462,223)])
}
Add(Timer,12099293,385,266)
{
Enable=1
AutoStop=1
Point(doStopAll)
link(onTimer,10964892:doEvent2,[(429,272)(429,258)(373,258)(373,244)])
}
Add(Thread,7863833,567,224)
{
Delay=100
FastStop=0
BusyEvent=1
link(onExec,5345749:doLoadString,[])
}
Add(HTTPClient,5345749,616,224)
{
URL="https://www.google.com/"
Point(Proxy)
link(onFinish,14526347:doCompare,[])
link(onError,945699:doEvent2,[(656,251)(656,279)])
link(Proxy,12669619:GetData,[])
}
Add(Hub,6904423,518,210)
{
OutCount=3
link(onEvent1,13391367:doEvent,[(570,216)(570,181)])
link(onEvent2,7863833:doStart,[(550,223)(550,230)])
}
Add(EventFromData,12669619,630,175)
{
}
Add(Timer,7225207,616,266)
{
Interval=30000
Enable=1
Point(doStopAll)
link(onTimer,16480379:doEvent,[])
}
Add(Hub,10964892,385,231)
{
InCount=2
OutCount=1
link(onEvent1,3825693:doText,[])
}
Add(StrList,9052667,469,203)
{
Point(onGetString)
Point(doGetString)
link(onGetString,6904423:doEvent1,[])
}
Add(Debug,13391367,609,175)
{
WEName="1"
VDName=""
link(onEvent,12669619:doData,[])
}
Add(Debug,5677895,588,378)
{
WEName="2"
VDName=""
}
Add(Debug,828063,420,203)
{
WEName="3"
VDName=""
link(onEvent,9052667:doAdd,[])
}
Add(Hub,12935351,763,238)
{
link(onEvent1,7225207:doStopAll,[(789,244)(789,297)(604,297)(604,286)])
link(onEvent2,5877623:doEvent,[])
}
Add(Hub,945699,665,266)
{
InCount=2
link(onEvent1,5345749:doAbort,[(688,272)(688,261)(604,261)(604,244)])
link(onEvent2,5518342:doTimer,[])
}
Add(Timer,5518342,693,273)
{
Interval=11000
Enable=1
AutoStop=1
Point(doStopAll)
link(onTimer,6110695:doEvent,[(737,279)])
}
Add(Debug,16480379,651,266)
{
WEName="4"
VDName=""
link(onEvent,945699:doEvent1,[])
}
Add(Debug,6110695,735,259)
{
WEName="5"
VDName=""
link(onEvent,10964892:doEvent1,[(747,167)(367,167)(367,237)])
}
Add(Debug,5877623,791,245)
{
WEName="6"
VDName=""
link(onEvent,13564860:Данные о найденном прокси,[(815,251)(815,27)])
}
Add(StrMask,14526347,693,231)
{
Mask="*?????*"
link(onTrue,12935351:doEvent1,[])
}
END_SDK
Add(Memo,13705491,259,112)
{
Width=596
Height=409
Align=5
ScrollBars=2
}

Там точек по наставлял, кучу.
Надо просто по клику получить более мененее рабочее соединение с инетом, но через прокси. И чтобы эта система не висла постоянно, по запросу выдавала рабочий прокси. Не понятно по чему, но компонент HTTP_Get та и от netspirit такая же . Да схемка так себе, может у вас наработки есть, один прокси по запросу раз примерно в час и все
А почему вчера форум не был доступен?

Редактировалось 2 раз(а), последний 2018-12-06 08:41:47
карма: 4

0
vip
#1.1контекстная реклама от партнеров
Ответов: 4621
Рейтинг: 746
#2: 2018-12-06 12:50:08 ЛС | профиль | цитата
Основной алгоритм:


Add(MainForm,2621548,448,203)
{
Width=237
Height=144
Caption="Control"
BorderStyle=3
Position=1
}
Add(Button,4179996,245,483)
{
Left=5
Top=5
Caption="Check"
link(onClick,15161843:doEnum,[])
}
Add(Label,16315044,448,245)
{
Left=5
Top=30
Width=63
Height=17
Caption="Proxy found:"
}
Add(Edit,6903838,805,252)
{
Left=5
Top=50
Width=210
Text=""
}
Add(StrList,12251892,336,413)
{
Strings=#31:http://foxtools.ru/Proxy?page=1|31:http://foxtools.ru/Proxy?page=2|31:http://foxtools.ru/Proxy?page=3|31:http://foxtools.ru/Proxy?page=4|31:http://foxtools.ru/Proxy?page=5|
Point(doGetString)
Point(String)
}
Add(HTTPClient,15767735,406,483)
{
link(onFinish,853199:doSearch,[])
link(onError,4104696:doWork,[])
}
Add(ArrayEnum,15161843,350,483)
{
onBreakEnable=0
link(onItem,15767735:doLoadString,[])
link(onEndEnum,6164583:doData,[(394,496)(394,538)])
link(Array,12251892:Array,[])
}
Add(LineBreakEx,4104696,448,504)
{
Caption="stop1"
}
Add(LineBreakEx,7579285,287,490)
{
Caption="stop1"
Type=1
link(OnEvent,15161843:doStop,[])
}
Add(If_else,2281214,532,686)
{
Op2=Integer(200)
link(onTrue,11366708:doEvent1,[])
link(Op1,4608268:Status,[(538,674)(509,674)(509,728)(468,728)])
AddHint(36,14,33,13,Op2)
}
Add(BlockFind,853199,616,490)
{
IncludeBlock=1
StartBlock="class="ch" value=""
EndBlock="" onclick=""
link(onSearch,10209571:doAdd,[])
link(onEndSearch,6056243:doEvent1,[(656,503)(656,517)])
AddHint(-72,-42,107,13,StartBlock)
AddHint(54,-44,68,13,EndBlock)
}
Add(InfoTip,6079713,238,392)
{
Info=#37:Заполнение списка прокси для проверки|
Width=631
Height=179
}
Add(InfoTip,3121425,238,595)
{
Info=#25:Проверка прокси по списку|
Width=631
Height=179
}
Add(StrList,10209571,770,490)
{
}
Add(Hub,6056243,672,511)
{
link(onEvent1,2854916:In,[(693,517)(693,510)])
link(onEvent2,10209571:doClear,[(753,524)(753,503)])
}
Add(LineBreak,15696560,259,679)
{
@Color=5570730
Caption="check"
link(Out,3233109:doEnum,[])
Primary=[2854916,441,-175]
}
Add(LineBreakEx,557806,672,714)
{
Caption="stop2"
}
Add(LineBreakEx,8217240,322,686)
{
Caption="stop2"
Type=1
link(OnEvent,3233109:doStop,[])
}
Add(LineBreakEx,15788334,784,546)
{
Caption="lst"
Type=3
link(_Data,10209571:Array,[])
}
Add(LineBreakEx,15557486,385,651)
{
Caption="lst"
Type=2
}
Add(ArrayEnum,3233109,385,679)
{
link(onItem,4608268:doLoadString,[])
link(Array,15557486:getVar,[])
}
Add(HTTPClient,4608268,462,679)
{
URL="http://myip.ru/index_small.php"
ConnectTimeout=15000
SendTimeout=5000
RecvTimeout=5000
Point(Proxy)
link(onFinish,2281214:doCompare,[])
link(Proxy,9589657:getVar,[])
AddHint(-24,59,159,13,URL)
}
Add(LineBreakEx,9589657,476,651)
{
Caption="item"
Type=2
}
Add(LineBreakEx,3130232,385,728)
{
Caption="item"
Type=3
link(_Data,3233109:Item,[])
}
Add(Hub,11366708,644,686)
{
OutCount=3
link(onEvent1,15027768:doData,[])
link(onEvent2,8510934:doWork,[])
link(onEvent3,557806:doWork,[(665,706)(665,720)])
}
Add(LineBreakEx,8510934,672,693)
{
Caption="stop1"
}
Add(LineBreakEx,4322499,735,658)
{
Caption="item"
Type=2
}
Add(DoData,15027768,735,686)
{
link(onEventData,11683420:doWork,[])
link(Data,4322499:getVar,[])
}
Add(LineBreakEx,2744231,455,532)
{
Caption="rslt"
}
Add(LineBreakEx,6185351,756,252)
{
Caption="rslt"
Type=1
link(OnEvent,6903838:doText,[])
}
Add(DoData,6164583,406,532)
{
Data=String(Не найдено)
link(onEventData,2744231:doWork,[])
}
Add(LineBreakEx,11683420,798,686)
{
Caption="rslt"
}
Add(InfoTip,13367803,735,161)
{
Info=#16:Результат поиска|
Width=141
Height=179
}
Всё остальное типа параллельных потоков - доделай сам. В случае перебора списка адресов в параллельном потоке очистку списка после перебора тоже нужно перенести туда же.

Редактировалось 4 раз(а), последний 2018-12-06 12:58:56
карма: 26

0
Разработчик
Ответов: 26066
Рейтинг: 2120
#3: 2018-12-06 14:43:56 ЛС | профиль | цитата
Sersey писал(а):
компонент HTTP_Get

А можно получить схему на этом компоненте для исследования?

Редактировалось 1 раз(а), последний 2018-12-06 14:45:19
карма: 22

0
Ответов: 1328
Рейтинг: 69
#4: 2018-12-06 20:03:11 ЛС | профиль | цитата
Sersey, там api есть http://api.foxtools.ru/v2/Help/Proxy
карма: 2

0
Ответов: 537
Рейтинг: 14
#5: 2018-12-06 20:04:48 ЛС | профиль | цитата
Потом посмотрю
Не могу
просто

Редактировалось 1 раз(а), последний 2018-12-06 20:05:50
карма: 4

0
Ответов: 537
Рейтинг: 14
#6: 2018-12-13 15:21:43 ЛС | профиль | цитата
Netspirit ваш алгоритм не работает правильно, вот например на точку Proxy дается какой то прокси и сразу загрузка, если не ответил то другой Proxy опять дается и на момент когда компонент HTTPClient дает ответ, Proxy может уже сменится, а HTTPClient выдал за рабочий прокси предыдущий прокси. Мне нужно было не скоростной перебор, а главное найти реально адекватный прокси, сделал следующее: одна программа с указанного url загружает список прокси и в реестре его включает, потом запускает другую невидимую прогу с браузером и если в браузере страница загрузилась и найден нужный текст в html, то через TCP_Client сообщает первой программе, что все в порядке, а если нет, то отправляет текст типа не рабочий. Таким образом получилось находить нормальные прокси. Вот ссылка кому пригодится на хороший сайт с проксями http://proxysearcher.sourceforge.net/Proxy%20List.php?type=http&filtered=true&limit=500 limit=500, это сколько нужно прокси на странице.

Редактировалось 1 раз(а), последний 2018-12-13 15:32:36
карма: 4

0
Ответов: 4621
Рейтинг: 746
#7: 2018-12-13 15:42:01 ЛС | профиль | цитата
Sersey писал(а):
на момент когда компонент HTTPClient дает ответ, Proxy может уже сменится, а HTTPClient выдал за рабочий прокси предыдущий прокси
Ничего он не выдаст. Первый компонент ArrayEnum перебирает список с адресами страниц. Каждый адрес выдаётся событием onItem. Событие onItem вызывает метод HTTPClient.doLoadString. Так вот. Пока метод doLoadString не отработает - не завершится событие onItem и не выдастся следующая страница. А метод doLoadString не отработает, пока не выполнится запрос и не отработает событие HTTPClient.onFinish. А HTTPClient.onFinish не отработает пока не отработает всё, что к нему прицеплено по такому же принципу. Так же работает второй ArrayEnum, который перебирает список прокси, полученных перед ним: onItem выдаёт очередной прокси на второй HTTPClient, тот отрабатывает, проверяется результат его работы и в негативном случае ничего не происходит - цепочка по onItem завершается, ArrayEnum выдаёт второй адрес и всё повторяется. А если второй HTTPClient дал положительный результат, то прокси найден - всем компонентам ArrayEnum указывается прекратить перебор и выдачу страниц/адресов.

Редактировалось 1 раз(а), последний 2018-12-13 15:43:03
карма: 26

0
Ответов: 537
Рейтинг: 14
#8: 2018-12-13 16:13:57 ЛС | профиль | цитата
Ну и попробуйте найденным прокси таким методом загрузить страницу в браузере
Вот как подставить прокси реестр для IE
Add(Registry,8349074,210,119)
{
@Hint=#8:Включить|
HKey=1
Key="Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Value="ProxyEnable"
DataType=0
Data="1"
Point(doDeleteValue)
AddHint(52,-1,64,13,@Hint)
}
Add(Registry,3847683,210,182)
{
@Hint=#3:Отк|
HKey=1
Key="Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Value="ProxyServer"
Point(doDeleteValue)
AddHint(53,8,34,13,@Hint)
}


Нужно получить от прокси не то что он типа живой и шлет 200, а реально загрузить страницу с Интернета, а HTTP_Get-ы виснут

Редактировалось 1 раз(а), последний 2018-12-13 16:21:07
карма: 4

0
Ответов: 4621
Рейтинг: 746
#9: 2018-12-13 16:36:27 ЛС | профиль | цитата
Sersey писал(а):
а реально загрузить страницу с Интернета
Ну, и что мешает на выходе из второго HTTPClient проверять не статус, а текст страницы? Вот только как ты собираешься проверять текст страницы? Искать по тексту какую-то заранее известную часть?
карма: 26

0
Ответов: 537
Рейтинг: 14
#10: 2018-12-13 17:20:49 ЛС | профиль | цитата
Вот реально работающий вариант
Первая программа можно назвать как угодно
Add(MainForm,2953706,21,105)
{
Width=378
Height=520
Point(onClose)
link(onCreate,20680:doOpen,[])
link(onClose,10961299:In,[])
}
Add(TCP_Server,20680,98,119)
{
Port=180
Point(onServerConnect)
link(onRead,5565080:doEvent1,[])
}
Add(StrMask,17127,196,119)
{
@Hint=#17:Не рабочий прокси|
Mask="*Not working proxy*"
link(onTrue,1406161:doEvent2,[(340,132)(340,118)])
AddHint(-35,-27,112,13,@Hint)
}
Add(StrMask,5819029,196,182)
{
@Hint=#13:Прокси найден|
Mask="*Proxy found*"
link(onTrue,14836860:doData,[])
AddHint(-13,-22,92,13,@Hint)
}
Add(Hub,5565080,147,119)
{
link(onEvent1,17127:doCompare,[])
link(onEvent2,5819029:doCompare,[(179,132)(179,188)])
}
Add(DoData,14836860,392,189)
{
link(onEventData,10689649:doMessage,[])
link(Data,14944569:Var3,[])
}
Add(Message,10689649,441,189)
{
Caption=" "
}
Add(Hub,1406161,364,105)
{
InCount=2
OutCount=1
link(onEvent1,14944569:doTimer,[])
}
Add(LineBreak,798673,350,133)
{
Caption="-"
link(Out,14944569:In,[(383,139)(383,118)])
Primary=[10961299,-287,-7]
}
Add(ChildPanelEx,14944569,392,105)
{
}
BEGIN_SDK
Add(EditMultiEx,5451878,21,21)
{
WorkCount=#20:doTimer=Поиск прокси|13:In=Без прокси|
VarCount=#21:Var3=Найденный прокси|
Width=860
Height=522
link(doTimer,1370865:doTimer,[(39,27)(39,251)])
link(In,3242367:In,[(28,34)(28,41)])
link(Var3,2400639:Var3,[(27,429)(710,429)(710,306)])
}
Add(Panel,3524473,35,105)
{
Top=25
Width=292
Height=451
}
Add(Hub,1927663,168,245)
{
InCount=2
OutCount=5
link(onEvent2,15835921:In,[])
link(onEvent4,5281088:doStart,[])
link(onEvent5,16572310:doEvent1,[(194,279)(194,314)(123,314)(123,342)])
}
Add(Thread,5281088,203,266)
{
Delay=100
FastStop=0
BusyEvent=1
link(onSyncExec,7328036:doDownload,[])
}
Add(Hub,16520156,490,287)
{
OutCount=3
link(onEvent1,4888040:doSelect,[(513,293)(513,244)])
link(onEvent2,11292391:doData,[(532,300)(532,272)])
link(onEvent3,4888040:doDelete,[(523,307)(523,230)])
}
Add(VisualStrings,834192,462,287)
{
Lines=#1:0|
Width=18
Point(onText)
Point(doText)
link(onText,16520156:doEvent1,[])
}
Add(Hub,16150932,434,287)
{
InCount=2
OutCount=1
link(onEvent1,834192:doText,[])
}
Add(Registry,3104829,693,357)
{
HKey=1
Key="Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Value="ProxyEnable"
DataType=0
Data="1"
Point(doDeleteValue)
}
Add(Registry,7218032,693,315)
{
HKey=1
Key="Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Value="ProxyServer"
Point(doDeleteValue)
link(Data,2400639:Var2,[])
}
Add(Hub,13370594,658,322)
{
link(onEvent1,7218032:doWrite,[])
link(onEvent2,3104829:doWrite,[(682,335)(682,370)])
}
Add(Hub,16094046,658,343)
{
InCount=2
link(onEvent1,7218032:doDeleteValue,[(686,349)(686,335)])
link(onEvent2,3104829:doDeleteValue,[(678,356)(678,377)])
}
Add(EventFromData,13185056,693,266)
{
}
Add(Hub,1684880,651,266)
{
OutCount=3
link(onEvent1,13185056:doData,[])
link(onEvent2,13370594:doEvent1,[(677,279)(677,303)(646,303)(646,328)])
link(onEvent3,5767290:doEvent1,[])
}
Add(LineBreak,5086939,616,343)
{
link(Out,16094046:doEvent1,[])
Primary=[3242367,-581,-308]
}
Add(If_else,4928536,105,245)
{
Op2=Integer(0)
link(onTrue,1927663:doEvent1,[])
link(onFalse,16150932:doEvent2,[(147,258)(147,300)])
link(Op1,6274244:Var,[])
}
Add(LineBreak,13322885,546,308)
{
Type=1
link(Data,4888040:Count,[])
Primary=[6274244,-441,-91]
}
Add(HTTP_Get,7328036,294,273)
{
URL="http://proxysearcher.sourceforge.net/Proxy%20List.php?type=http&filtered=true&limit=100"
link(onDownload,11011255:doConvert,[])
link(onStop,531515:doExec,[(356,300)(356,237)])
}
Add(StreamConvertor,11011255,336,280)
{
Mode=6
link(onResult,12443176:doText,[(376,286)(376,216)])
}
Add(LineBreak,5783965,616,357)
{
link(Out,16094046:doEvent2,[(652,363)(652,356)])
Primary=[15835921,-413,-105]
}
Add(Timer,11796166,203,329)
{
Interval=15000
Enable=1
AutoStop=1
Point(doStopAll)
link(onTimer,1927663:doEvent2,[(244,335)(244,319)(157,319)(157,258)])
}
Add(Hub,16572310,133,336)
{
link(onEvent1,7717622:doEvent1,[(161,342)(161,356)])
link(onEvent2,11796166:doTimer,[(155,349)(155,335)])
}
Add(Hub,7717622,175,350)
{
InCount=2
OutCount=1
link(onEvent1,11796166:doStopAll,[(196,356)(196,349)])
}
Add(Hub,5767290,742,280)
{
link(onEvent1,589299:doEvent1,[])
link(onEvent2,416505:In,[])
}
Add(LineBreak,2305331,119,357)
{
link(Out,7717622:doEvent2,[])
Primary=[416505,651,-70]
}
Add(RE_Search,531515,385,231)
{
Expression="[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\:[0-9]{2,4}"
link(onMatch,2600724:doEvent1,[])
link(onNotFound,4317552:doEvent1,[(422,244)(422,258)])
link(SourceStr,12443176:Text,[])
}
Add(Timer,793455,434,189)
{
Interval=50
Enable=1
link(onTimer,531515:doExecNext,[(479,195)(479,179)(373,179)(373,244)])
}
Add(Hub,2600724,427,231)
{
link(onEvent1,4888040:doAdd,[(490,237)(490,216)])
link(onEvent2,793455:doTimer,[(453,244)(453,218)(427,218)(427,195)])
}
Add(Hub,4317552,427,252)
{
link(onEvent1,793455:doStop,[(462,258)(462,230)(422,230)(422,202)])
link(onEvent2,16150932:doEvent1,[(453,265)(453,279)(422,279)(422,293)])
}
Add(Hub,589299,805,280)
{
OutCount=3
link(onEvent1,3477366:doStrCat,[])
link(onEvent2,12451845:doExec,[(829,293)(829,335)])
}
Add(WinExec,12451845,840,329)
{
link(FileName,3477366:Result,[])
}
Add(Dir,941042,840,231)
{
}
Add(StrCat,3477366,840,280)
{
Str2="Proxy Checker.exe"
link(Str1,941042:CurrentDir,[])
}
Add(Timer,1370865,56,245)
{
Interval=3000
Enable=1
AutoStop=1
link(onTimer,4928536:doCompare,[])
AddHint(-6,-31,39,13,Interval)
}
Add(GetDataEx,2400639,693,301)
{
link(Data,13185056:GetData,[])
}
Add(ListBox,4888040,539,210)
{
Left=5
Top=5
Width=280
Height=445
Point(doSelect)
Point(onSelect)
Point(String)
}
Add(StrList,12443176,385,189)
{
}
Add(DoData,11292391,560,266)
{
link(onEventData,1684880:doEvent1,[])
link(Data,4888040:String,[])
}
END_SDK
Add(Button,8336322,294,105)
{
Top=5
Caption="Найти"
link(onClick,1406161:doEvent1,[])
}

Вторая, нужно назвать программу Proxy Checker и они две программы должны быть в одной папке
Add(MainForm,5525323,308,238)
{
Width=604
Height=605
Caption=""
TaskBar=1
link(onCreate,96010:doOpen,[])
}
Add(WebBrowser,12464106,245,119)
{
Width=588
Height=567
Align=5
URL=""
Silent=0
link(onProgress,5636425:doData,[(293,146)(293,132)])
}
Add(StrMask,14042897,252,168)
{
Mask="*https://2ip.ru/*"
link(onFalse,6657720:doText,[])
link(onTrue,7822940:doText,[(296,181)(296,195)])
link(Str,12464106:Page,[])
}
Add(VisualStrings,6657720,308,168)
{
Lines=#17:Not working proxy|
Point(doText)
Point(onText)
link(onText,729125:doEvent1,[])
}
Add(VisualStrings,7822940,308,189)
{
Lines=#11:Proxy found|
Point(doText)
Point(onText)
link(onText,729125:doEvent2,[(348,195)(348,181)])
}
Add(Hub,729125,357,168)
{
InCount=2
link(onEvent1,96010:doSend,[(388,174)(388,272)])
link(onEvent2,13112188:doTimer,[(383,181)(383,223)(240,223)(240,265)])
}
Add(Timer,14821286,161,175)
{
Interval=21000
AutoStop=1
Point(doStopAll)
link(onTimer,1624465:doEvent2,[])
}
Add(Timer,13112188,252,259)
{
Enable=1
AutoStop=1
link(onTimer,5525323:doClose,[])
}
Add(TCP_Client,96010,399,252)
{
Port=180
IP="127.0.0.1"
}
Add(Hub,1624465,217,168)
{
InCount=2
OutCount=1
link(onEvent1,14042897:doCompare,[])
}
Add(ChangeMon,5636425,308,126)
{
link(onData,8795682:doCase,[])
}
Add(Case,8795682,357,126)
{
Value=Integer(0)
link(onTrue,4799915:doEvent1,[])
}
Add(Timer,5731855,441,140)
{
Interval=5000
Enable=1
AutoStop=1
Point(doStopAll)
link(onTimer,1624465:doEvent1,[(482,146)(482,166)(205,166)(205,174)])
}
Add(Hub,4799915,399,133)
{
OutCount=4
link(onEvent1,14821286:doStopAll,[(425,139)(425,111)(150,111)(150,195)])
link(onEvent2,5731855:doStopAll,[(427,146)(427,160)])
link(onEvent3,5731855:doTimer,[(427,153)(427,146)])
link(onEvent4,5525323:doCaption,[(430,160)(430,217)(296,217)(296,244)])
}
Add(Timer,9443350,98,119)
{
Interval=500
AutoStop=1
link(onTimer,4041571:doText,[])
}
Add(VisualStrings,4041571,140,119)
{
Lines=#15:https://2ip.ru/|
Width=81
Point(doText)
Point(onText)
link(onText,12464106:doNavigate,[])
}


Нажмите Найти в первой программе и смотрите на экран.

Редактировалось 2 раз(а), последний 2018-12-13 17:26:40
карма: 4

0
Ответов: 537
Рейтинг: 14
#11: 2018-12-13 20:48:10 ЛС | профиль | цитата
Делал значит, например браузер в панели EX и когда прокси не подошел, то удаляю панель команда Clear и создаю новую панель с браузером, и там одни ошибки выходят, пришлось делать две независимые проги, чтобы главная не смогла дать ошибку. https://www.youtube.com/watch?v=qVkbkBbWXOw для настроения
карма: 4

0
Ответов: 4621
Рейтинг: 746
#12: 2018-12-14 11:50:14 ЛС | профиль | цитата
Sersey писал(а):
Ну и попробуйте найденным прокси таким методом загрузить страницу в браузере
Только что:

А что у тебя там в браузере не отображается или "HTTP_Get виснет" - я не в курсе.
карма: 26

0
Ответов: 537
Рейтинг: 14
#13: 2019-04-06 23:07:47 ЛС | профиль | цитата
Все таки ссыль на проксик http://proxysearcher.sourceforge.net/Proxy%20List.php?type=http&filtered=true&limit=100 Netspirit Ваша прога берет первый- же и тпа работает. Загрузите сайт через него, хоть бы 2ip.ru. Если сложная тема, то забудьте, сам разгибу. Просто попросил помочь

Редактировалось 2 раз(а), последний 2019-04-06 23:39:49
карма: 4

0
Ответов: 4621
Рейтинг: 746
#14: 2019-04-08 11:02:29 ЛС | профиль | цитата
Обрати внимание на использование протокола http: в адресе, который зашит в схеме для проверки, и протокол https: в адресе, который тебе нужен. Прокси, найденный для адреса http:, может не подходить для адресов https:. Достаточно поставить https: адрес в схеме в месте проверки.
карма: 26

0
Ответов: 537
Рейтинг: 14
#15: 2019-04-09 18:26:36 ЛС | профиль | цитата
Спасибо проверю
карма: 4

0
15
Сообщение
...
Прикрепленные файлы
(файлы не залиты)