Add(MainForm,2953706,224,70)
{
Width=646
Height=441
Caption="GosBot"
}
Add(Button,13740030,226,126)
{
Left=280
Top=375
Width=150
Caption="Получить данные"
link(onClick,1180256:doEvent1,[])
}
Add(TCP_Client,2835578,561,126)
{
Port=80
link(onRead,8469102:doFromText,[])
link(IP,1681406:Value,[(567,115)(547,115)(547,170)(510,170)])
}
Add(Hub,1180256,273,126)
{
link(onEvent1,7661396:doIPByHost,[])
link(onEvent2,551287:doString,[])
}
Add(FormatStr,6264388,390,147)
{
Mask="POST /ege/search.php/search.php HTTP/1.1
Host: ege.stavedu.ru
Connection: Close
Content-Length: %1
Content-Type: application/x-www-form-urlencoded
%2"
link(onFString,2835578:doSend,[(492,153)(492,146)])
link(Str1,14928741:Result,[])
}
Add(Edit,6909335,287,73)
{
Left=280
Top=325
Width=150
Text="1234"
Alignment=2
DataType=1
}
Add(Edit,3572651,329,74)
{
Left=280
Top=350
Width=150
Text="567890"
Alignment=2
DataType=1
}
Add(FormatStr,551287,308,133)
{
Mask="doc_s=%1&doc_n=%2&sea=%C8%F1%EA%E0%F2%FC"
link(onFString,10747343:doEvent1,[])
link(Str1,6909335:Text,[(314,119)(293,119)])
link(Str2,3572651:Text,[(321,119)(335,119)])
}
Add(Length,14928741,390,92)
{
}
Add(Hub,10747343,357,133)
{
link(onEvent1,14928741:doLength,[(381,139)(381,98)])
link(onEvent2,6264388:doString,[(381,146)(381,153)])
}
Add(Label,5998689,287,34)
{
Left=185
Top=330
Width=85
Height=17
Caption="Серия паспорта"
}
Add(Label,10952041,328,34)
{
Left=185
Top=350
Width=88
Height=17
Caption="Номер паспорта"
}
Add(WebBrowser,8469102,609,98)
{
Width=638
Height=315
Align=2
Point(doFromText)
}
Add(Host,7661396,446,119)
{
link(onIPByHost,1681406:doValue,[])
link(HostName,622803:Value,[])
}
Add(Memory,622803,453,75)
{
Default=String(ege.stavedu.ru)
}
Add(Memory,1681406,504,126)
{
link(onData,2835578:doOpen,[])
}
|
Ответов: 1841
Рейтинг: 370
|
|||
|
Вот ещё один вариант...
|
|||
| карма: 1 |
|



Поиск
Друзья
Администрация