просто возьми HTTP_GET !!! там и поля есть функций больше!
и чекалка ужасная да и большая слишком
вот на тебе поужасней (зато будет покруче твоей (тоже когда то увлекался этим вот клепал ):
Add(MainForm,7750149,7,119)
{
Width=330
Height=149
Color=-16777215
Caption="Turbo Proxy Checker v1"
BorderStyle=1
Point(Handle)
link(onCreate,638850:doEvent1,[])
}
Add(StrList,6115134,259,168)
{
link(FileName,13853511:Value,[(272,155)(71,155)(71,254)(188,254)])
}
Add(Button,12341495,98,210)
{
Left=165
Top=5
Width=105
Caption="ОткрытьСтарт"
Point(doEnabled)
link(onClick,5842872:doExecute,[])
}
Add(ODialog,5842872,140,210)
{
link(onExecute,13853511:doValue,[])
}
Add(Memory,13853511,182,210)
{
link(onData,9346463:doEvent1,[])
}
Add(Label,8157585,273,266)
{
Left=5
Top=30
Width=25
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="0 : 0"
}
Add(FormatStr,4509870,231,266)
{
Mask="%2 : %1"
link(onFString,8157585:doText,[(268,272)(268,272)])
link(Str1,3213921:Var2,[(237,240)(272,240)])
link(Str2,2876853:##count,[(244,254)(402,254)(402,296)(559,296)])
}
Add(ChanelToIndex,13426828,91,273)
{
link(onIndex,8828312:doEvent1,[])
}
Add(GlobalVar,9361259,546,56)
{
Name="TimeOut"
}
Add(Hub,9346463,224,210)
{
OutCount=5
link(onEvent1,6115134:doLoad,[(248,216)(248,202)])
link(onEvent2,13426828:doWork1,[(250,223)(250,261)(79,261)(79,279)])
link(onEvent3,7474429:doData,[(284,230)(284,300)])
link(onEvent4,15693218:doTimer,[(270,237)(270,349)])
}
Add(DoData,11265365,476,63)
{
Data=String(2000)
link(onEventData,9361259:doValue,[(520,69)(520,62)])
link(Data,5595786:Text,[(482,51)(433,51)])
}
Add(Hub,5556718,896,539)
{
}
Add(StrList,14740755,791,413)
{
link(onChange,4791677:doString,[(835,419)(835,479)(723,479)(723,538)])
}
Add(Label,15779324,784,532)
{
Left=100
Top=30
Width=35
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="Bad: 0"
}
Add(FormatStr,4791677,735,532)
{
DataCount=1
Mask="Bad: %1"
link(onFString,15779324:doText,[])
link(Str1,14740755:Count,[(741,495)(741,495)(804,495)])
}
Add(Label,612220,784,350)
{
Left=200
Top=30
Width=36
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="God: 0"
}
Add(FormatStr,8180055,742,385)
{
DataCount=1
Mask="God: %1"
link(onFString,612220:doText,[(779,391)(779,356)])
link(Str1,11688642:Count,[(748,362)(755,362)])
}
Add(StrList,11688642,742,294)
{
link(onChange,8180055:doString,[(786,300)(786,328)(730,328)(730,391)])
}
Add(Edit,5595786,427,7)
{
Left=65
Top=5
Width=95
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Text="5000"
link(onEnter,88765:doWork1,[(471,20)(471,43)(459,43)])
}
Add(Label,14030074,301,63)
{
Left=10
Top=5
Width=47
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="Таймаут"
}
Add(HubEx,88765,455,63)
{
link(onEvent,11265365:doData,[])
}
Add(ArrayRW,7356774,441,252)
{
Point(Count)
link(onRead,2388035:doEvent1,[])
link(Array,6115134:Array,[(447,232)(279,232)])
}
Add(Label,16095686,287,532)
{
Left=155
Top=55
Width=53
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="Потоки: 0"
}
Add(Hub,2388035,490,252)
{
link(onEvent2,2876853:##add,[])
}
Add(StrList,8349546,413,560)
{
link(FileName,5662658:Result,[(426,548)(450,548)(450,618)(475,618)])
}
Add(StrList,6934649,455,686)
{
link(FileName,13701842:Result,[(468,674)(503,674)(503,807)(538,807)])
}
Add(Application,10649511,532,665)
{
}
Add(StrCat,13701842,532,763)
{
Str2="Bad.txt"
link(onStrCat,6934649:doSave,[(576,769)(576,755)(443,755)(443,727)])
link(Str1,1094087:Part,[])
}
Add(FilePartElm,1094087,532,714)
{
Mode=0
Point(Part)
link(onPart,13701842:doStrCat,[(574,720)(574,750)(520,750)(520,769)])
link(FileName,10649511:AppFileName,[])
}
Add(Timer,5894754,567,581)
{
link(onTimer,5331182:doEvent1,[])
}
Add(Hub,5331182,609,581)
{
link(onEvent1,1094087:doPart,[(635,587)(635,653)(520,653)(520,720)])
link(onEvent2,10357179:doPart,[(630,594)(630,629)(453,629)(453,531)])
}
Add(Application,9631297,469,476)
{
}
Add(StrCat,5662658,469,574)
{
Str2="Good.txt"
link(onStrCat,8349546:doSave,[(513,580)(513,590)(401,590)(401,601)])
link(Str1,10357179:Part,[])
}
Add(FilePartElm,10357179,469,525)
{
Mode=0
Point(Part)
link(onPart,5662658:doStrCat,[(511,531)(511,561)(457,561)(457,580)])
link(FileName,9631297:AppFileName,[])
}
Add(Hub,107836,609,252)
{
link(onEvent1,11688642:doAdd,[(663,258)(663,300)])
link(onEvent2,8349546:doAdd,[(635,265)(635,415)(401,415)(401,566)])
}
Add(Hub,1444076,616,329)
{
link(onEvent1,14740755:doAdd,[(688,335)(688,419)])
link(onEvent2,6934649:doAdd,[(642,342)(642,517)(443,517)(443,692)])
}
Add(CounterEx,8154481,378,336)
{
Max=999999999
Point(doMax)
Point(onThroughMax)
link(onNext,7356774:doRead,[(426,342)(426,258)])
link(onThroughMax,876259:doEvent1,[(422,349)(422,373)(387,373)(387,398)])
}
Add(DoData,7474429,329,294)
{
link(onEventData,8154481:doMax,[(369,300)(369,349)])
link(Data,3213921:Var3,[(335,229)])
}
Add(GetDataEx,3213921,266,224)
{
link(Data,6115134:Count,[])
}
Add(EnumProcess,9907204,497,168)
{
Name="project25.exe"
Point(doFindName)
Point(onFind)
Point(doGetMemoryInfo)
Point(onGetMemoryInfo)
Point(Name)
link(onFind,1624261:doTimer,[(541,181)(541,171)(401,171)(401,160)])
link(onGetMemoryInfo,3345946:doOperation,[(573,188)(573,160)])
link(Name,10956065:Part,[(510,149)(762,149)])
}
Add(Label,9793214,805,154)
{
Left=5
Top=55
Width=120
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="Загрузка памяти: 0 мб"
}
Add(Hub,638850,154,133)
{
OutCount=4
link(onEvent1,10956065:doPart,[(462,139)(462,104)])
link(onEvent2,88765:doWork2,[(312,146)(312,69)])
link(onEvent3,9907204:doFindName,[(332,153)(332,195)])
link(onEvent4,608050:doWinInfo,[(180,160)(180,321)(44,321)(44,482)])
}
Add(Hub,876259,399,392)
{
link(onEvent1,15693218:doStop,[(425,398)(425,377)(289,377)(289,356)])
}
Add(Math,3345946,616,154)
{
OpType=3
Op2=1024
link(onResult,3721302:doOperation,[])
}
Add(Math,3721302,665,154)
{
OpType=3
Op2=1024
link(onResult,12766021:doOperation,[])
}
Add(Math,12766021,707,154)
{
OpType=35
Op2=0.01
link(onResult,16371007:doString,[])
}
Add(Timer,1624261,413,154)
{
Interval=100
Enable=1
link(onTimer,9907204:doGetMemoryInfo,[(471,160)(471,202)])
}
Add(FormatStr,16371007,749,154)
{
DataCount=1
Mask="Загрузка памяти: %1 мб"
link(onFString,9793214:doText,[])
}
Add(FormatStr,11947265,238,532)
{
DataCount=1
Mask="Потоки: %1"
link(onFString,16095686:doText,[])
link(Str1,4853842:Var1,[(244,520)(223,520)])
}
Add(Application,8331105,672,35)
{
}
Add(FilePartElm,10956065,756,98)
{
Point(Part)
link(FileName,8331105:AppFileName,[(762,76)(678,76)])
}
Add(Hub,8828312,140,273)
{
link(onEvent1,12341495:doEnabled,[(166,279)(166,247)(86,247)(86,216)])
}
Add(ProcessInfo,842062,168,525)
{
Point(ThreadCount)
link(onInfo,8075969:doEvent1,[(225,531)(225,507)(177,507)(177,482)])
}
Add(DoData,1951842,77,525)
{
Data=String(10712)
link(onEventData,842062:doInfo,[])
link(Data,608050:ProcessID,[(83,517)(76,517)])
}
Add(WinInfo,608050,56,476)
{
Point(ProcessID)
link(onWinInfo,6088506:doTimer,[])
link(Handle,7750149:Handle,[(62,314)(13,314)])
}
Add(Timer,6088506,105,476)
{
Interval=300
Enable=1
link(onTimer,1951842:doData,[(149,482)(149,506)(65,506)(65,531)])
}
Add(MultiElementEx,2876853,553,252)
{
Mode=1
link(Good,107836:doEvent1,[])
link(Bad,1444076:doEvent1,[(601,265)(601,335)])
}
BEGIN_SDK
Add(EditMultiEx,2611289,7,28)
{
WorkCount=#7:##clear|5:##add|
EventCount=#4:Good|3:Bad|0:|8:onEvent1|
VarCount=#7:##count|
DataCount=#5:Array|8:doEvent3|
Width=839
Height=473
Point(##clear)
Point(##add)
Point(##count)
link(##add,7004741:doCompare,[(25,41)(25,62)])
}
Add(HTTP_Get,7014310,385,182)
{
URL="http://whatismyip.akamai.com"
Point(Proxy)
link(onDownload,13493322:doConvert,[(429,195)(429,188)])
link(Proxy,12827566:Var,[])
}
Add(StreamConvertor,13493322,441,182)
{
Mode=6
link(onResult,881717:doCompare,[])
}
Add(If_else,881717,490,182)
{
link(onTrue,1078225:doEvent1,[(604,188)(604,111)])
link(onFalse,16608377:doEvent1,[(608,195)(608,223)])
link(Op2,4204187:Var,[])
}
Add(MultiStrPart,14571343,252,273)
{
Char=":"
link(Str,4996238:Var3,[(258,240)])
}
Add(Hub,145508,308,182)
{
OutCount=3
link(onEvent1,7014310:doDownload,[])
link(onEvent2,14571343:doSplit,[(334,195)(334,253)(240,253)(240,279)])
link(onEvent3,16529450:doTimer,[(354,202)(354,230)])
}
Add(LineBreak,5829987,252,315)
{
Type=1
link(Data,14571343:Part1,[])
Primary=[4204187,245,-161]
}
Add(Hub,1078225,686,105)
{
InCount=5
OutCount=5
link(onEvent1,3222766:doData,[])
link(onEvent2,10316057:doEvent1,[(744,118)(744,367)(313,367)(313,272)])
link(onEvent3,1448221:doEvent1,[(712,125)(712,79)(327,79)(327,125)])
link(onEvent4,15674397:doEvent1,[(712,132)(712,391)(64,391)(64,209)])
}
Add(Hub,15202690,693,287)
{
InCount=5
OutCount=5
link(onEvent1,9527016:doData,[])
link(onEvent2,1448221:doEvent2,[(726,300)(726,374)(51,374)(51,132)])
link(onEvent3,15674397:doEvent2,[(718,307)(718,400)(38,400)(38,216)])
}
Add(Timer,16529450,385,224)
{
Interval=1500
Enable=1
AutoStop=1
Point(doInterval)
link(onTimer,12942236:doEvent1,[])
}
Add(Hub,16608377,637,217)
{
InCount=5
OutCount=5
link(onEvent1,15202690:doEvent1,[(676,223)(676,293)])
link(onEvent2,10316057:doEvent2,[(665,230)(665,359)(322,359)(322,279)])
}
Add(Hub,10316057,350,266)
{
InCount=5
OutCount=5
link(onEvent1,16529450:doStop,[(374,272)(374,237)])
}
Add(Hub,12942236,448,224)
{
InCount=5
OutCount=5
link(onEvent1,15202690:doEvent2,[(578,230)(578,300)])
}
Add(Hub,1448221,343,119)
{
InCount=5
OutCount=5
link(onEvent1,7014310:doStop,[(371,125)(371,195)])
}
Add(DoData,5730330,147,168)
{
Data=String(0)
link(onEventData,13887237:doEvent1,[(195,174)(195,188)])
}
Add(Hub,13887237,210,182)
{
InCount=2
OutCount=1
}
Add(LineBreak,12704356,105,252)
{
Type=1
link(Data,13198843:Var1,[(111,240)])
Primary=[12827566,301,-98]
}
Add(GetDataEx,4996238,238,235)
{
link(Data,2302398:Value,[])
}
Add(LineBreak,9599420,147,252)
{
Type=1
link(Data,13198843:Var2,[])
Primary=[11021594,623,-175]
}
Add(GetDataEx,13198843,147,235)
{
Angle=1
link(Data,646624:Var1,[])
}
Add(LineBreak,14525980,189,252)
{
Type=1
link(Data,646624:Var2,[])
Primary=[5461016,581,7]
}
Add(GetDataEx,646624,189,235)
{
Angle=1
link(Data,4996238:Var1,[])
}
Add(DoData,3222766,770,105)
{
link(onEventData,2611289:Good,[(831,111)(831,34)])
link(Data,11021594:Var,[])
}
Add(DoData,9527016,770,287)
{
link(onEventData,2611289:Bad,[(831,293)(831,41)])
link(Data,5461016:Var,[])
}
Add(DoData,1141328,147,98)
{
link(onEventData,33734:doEvent1,[])
link(Data,13961960:Var,[])
}
Add(GlobalVar,13961960,147,63)
{
Name="TimeOut"
}
Add(Hub,33734,189,98)
{
link(onEvent1,16529450:doInterval,[(294,104)(294,244)])
link(onEvent2,5730330:doData,[(215,111)(215,143)(135,143)(135,174)])
}
Add(Hub,138638,98,98)
{
link(onEvent1,1141328:doData,[])
link(onEvent2,2302398:doValue,[(210,111)(210,188)])
}
Add(Memory,2302398,238,182)
{
link(onData,145508:doEvent1,[])
}
Add(Hub,15674397,77,203)
{
InCount=5
OutCount=5
link(onEvent1,10054149:doData,[])
}
Add(DoData,10054149,105,203)
{
link(Data,2611289:Array,[(111,112)(13,112)])
}
Add(StrMask,7004741,42,56)
{
Mask="*.*.*.*:*"
link(onTrue,138638:doEvent1,[(86,69)(86,104)])
}
END_SDK
Add(GetDataEx,4853842,217,560)
{
Angle=3
link(Data,842062:ThreadCount,[(209,565)])
}
Add(Hub,8075969,189,476)
{
OutCount=4
link(onEvent1,11947265:doString,[(217,482)(217,538)])
link(onEvent2,13777245:doData,[(238,489)(238,601)])
link(onEvent3,7098160:doConvert,[(325,496)(325,328)])
link(onEvent4,4509870:doString,[(217,503)(217,272)])
}
Add(LedLadder,519725,364,595)
{
Left=284
Width=40
Height=121
Align=3
Color=-16777215
Kind=1
Spacing=1
Count=40
MinMid=600
MidMax=1200
Max=1400
NoSegColorMin=-16777216
NoSegColorMid=10789024
NoSegColorMax=8421504
}
Add(DoData,13777245,266,595)
{
link(onEventData,4027193:doValue,[])
link(Data,4853842:Var3,[(272,565)])
}
Add(Memory,4027193,322,595)
{
link(onData,519725:doPosition,[])
}
Add(TrackBar,1229236,133,49)
{
Left=5
Top=85
Width=275
Color=-16777215
HintPosition=0
Max=1400
Position=500
Point(doEnabled)
link(onPosition,11758059:doValue,[(177,55)(177,62)])
}
Add(Convertor,7098160,448,322)
{
Mode=1
link(onResult,4780174:doValue,[])
link(Data,4027193:Value,[(454,308)(375,308)(375,639)(328,639)])
}
Add(Memory,4780174,490,322)
{
link(onData,8163035:doCompare,[(534,328)(534,365)(476,365)(476,384)])
}
Add(DoData,15435786,630,364)
{
Data=String(500)
link(onEventData,12109754:doWork1,[(676,370)])
}
Add(DoData,4389646,630,399)
{
Data=String(0)
link(onEventData,12109754:doWork2,[])
}
Add(If_else,8163035,490,378)
{
Type=4
link(onTrue,4114493:doEvent1,[])
link(Op1,4780174:Value,[])
link(Op2,11758059:Value,[(503,233)(195,233)])
}
Add(Memory,11758059,189,56)
{
Default=Integer(500)
link(onData,13899342:doText,[])
}
Add(Hub,4114493,532,378)
{
link(onEvent1,15435786:doData,[(553,384)(553,370)])
link(onEvent2,5448428:doTimer,[(560,391)(560,398)])
}
Add(Timer,5448428,574,392)
{
Interval=3000
Enable=1
AutoStop=1
link(onTimer,4389646:doData,[(618,398)(618,405)])
}
Add(HubEx,12109754,672,399)
{
Angle=1
link(onEvent,15693218:doInterval,[(676,438)(282,438)(282,363)])
}
Add(Label,13899342,238,56)
{
Left=235
Top=65
Width=22
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,65280,1]
Caption="500"
}
Add(StyleXP,12389223,182,14)
{
}
Add(Timer,15693218,301,343)
{
Interval=0
Enable=1
Point(doInterval)
link(onTimer,8154481:doNext,[(355,349)(355,342)])
}
хоть и функции прикрученные некрасиво сделаны но зато серце в контейнере вроде норм