nesco, Только что сделал, ссылки в тексте думаю сам найдешь?
------------ Дoбавленo в 20.05:
Add(MainForm,2953706,21,105)
{
Width=706
Height=132
}
Add(TCP_Client,10132356,497,273)
{
Port=80
link(onRead,7740039:doCharset,[])
link(IP,225990:GetData,[])
}
Add(HTTP_FileUpload,9943678,217,273)
{
URL="http://www.radikal.ru/action.aspx"
Host="radikal.ru"
Name="attach"
VarsList=#6:upload|12:GEO_POINT_ID|1:O|1:M|0:|
Point(VarsValue)
link(onBuild,11726978:doEvent1,[])
link(VarsValue,765973:GetData,[])
}
Add(Hub,11726978,448,273)
{
link(onEvent1,10132356:doOpen,[])
link(onEvent2,10132356:doSend,[(480,286)(480,293)])
}
Add(Button,5706670,119,273)
{
Left=115
Top=55
link(onClick,15167720:doExecute,[])
}
Add(EventFromData,225990,497,217)
{
link(onEvent,820334:doIPByHost,[])
}
Add(Host,820334,567,210)
{
link(onIPByHost,225990:doData,[(611,223)(611,211)(485,211)(485,223)])
link(HostName,2183037:Value,[])
}
Add(Memory,2183037,574,133)
{
Default=String(radikal.ru)
}
Add(ODialog,15167720,168,273)
{
link(onExecute,9943678:doBuild,[])
}
Add(Charset,7740039,553,273)
{
Type=7
link(onCharset,5170041:doSearch,[])
}
Add(EventFromData,765973,231,224)
{
link(onEvent,8054435:doGetIndex,[])
}
Add(StrList,8054435,280,182)
{
Strings=#6:upload|12:GEO_POINT_ID|1:O|1:M|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,11911447:doGetString,[(338,195)(338,230)])
}
Add(StrList,11911447,364,182)
{
Strings=#3:yes|0:|3:yes|3:500|0:|
Point(doGetString)
Point(onGetString)
link(onGetString,765973:doData,[(414,195)(414,162)(219,162)(219,230)])
}
Add(BlockFind,5170041,609,273)
{
IncludeBlock=1
StartBlock="input id="input_link_1" value=""
EndBlock="""
link(onSearch,12155821:doText,[])
}
Add(Edit,12155821,658,273)
{
Left=175
Top=55
Width=465
}
Вот таким образом находить