Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 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,[])
}


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

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