Вверх ↑
Ответов: 294
Рейтинг: 64
#1: 2009-11-21 18:16:12 ЛС | профиль | цитата
PainShaft писал(а):
вставить сюда http://users.auto.ru/


В общем если я правильно понял и нужна автоматическая регистрация - то капчу придется все-равно вводить ручками.
А так - есть пара способов.
1. Пример от andrestudio с формированием html формы (там авторизация на mail.ru):
http://hiasm.com/forum.html?q=3&t=52255

2. Через TCP_Client.
Пример второго варианта во вложении. Осталось только добавить обновление ссылки на капчу (http://s.auto.ru/users/verification/********.gif) и вводить с нее цифры в соответствующее поле.


Add(MainForm,2953706,210,231)
{
Width=962
Height=483
}
Add(URLBuilder,548856,315,231)
{
Args=#8:regemail|12:regpassword1|12:regpassword2|7:code_id|4:code|6:accept|8:_submit_|
link(onBuild,16238210:doAdd,[])
link(regemail,4543370:Text,[(321,191)(209,191)])
link(regpassword1,2276518:Text,[(328,186)(251,186)])
link(regpassword2,3415688:Text,[(335,181)(293,181)])
link(code_id,6159768:Text,[])
link(code,1488153:Text,[(349,182)(384,182)])
link(accept,6416291:Text,[(356,186)(426,186)])
link(_submit_,6161767:Text,[(363,192)(468,192)])
}
Add(Edit,4543370,203,140)
{
Left=5
Top=10
Width=240
Text="pochta@pochta.ru"
}
Add(Edit,2276518,245,140)
{
Left=5
Top=35
Width=240
Text="MYpassword"
}
Add(Edit,3415688,287,140)
{
Left=5
Top=60
Width=240
Text="MYpassword"
}
Add(Edit,6159768,336,140)
{
Left=5
Top=85
Width=240
Text="a289c489.gif"
}
Add(Edit,1488153,378,140)
{
Left=5
Top=110
Width=240
Text="88888"
}
Add(Edit,6416291,420,140)
{
Left=5
Top=140
Width=240
Text="yes"
}
Add(Edit,6161767,462,140)
{
Left=5
Top=165
Width=240
Text="Зарегистрироваться"
}
Add(TCP_Client,7445937,490,231)
{
Port=80
IP="217.107.214.21"
link(onRead,13932382:doAdd,[])
link(Data,16238210:Text,[(503,219)(435,219)(435,288)(398,288)])
}
Add(Button,16065390,259,231)
{
Left=10
Top=195
Caption="Step1"
link(onClick,548856:doBuild,[])
}
Add(Hub,6895326,448,231)
{
link(onEvent1,7445937:doOpen,[])
link(onEvent2,7445937:doSend,[(475,244)(475,251)])
}
Add(RichEdit,13932382,553,231)
{
Left=255
Top=10
Width=330
Height=430
ScrollBars=3
}
Add(StrList,16238210,392,231)
{
Strings=#15:POST / HTTP/1.1|229:Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/x-silverlight, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*|30:Referer: http://users.auto.ru/|19:Accept-Language: ru|47:Content-Type: application/x-www-form-urlencoded|11:UA-CPU: x86|131:User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; FDM)|19:Host: users.auto.ru|19:Content-Length: 167|22:Connection: Keep-Alive|23:Cache-Control: no-cache|28:Cookie: chauth=1; chcookie=1|0:|
link(onChange,6895326:doEvent1,[])
}
Add(BlockFind,8875233,553,294)
{
StartBlock="<!--- BEGIN CENTER_BLOCK -->"
EndBlock="<!--- END CENTER_BLOCK -->"
link(onSearch,12117628:doFromText,[])
link(Text,13932382:Text,[])
}
Add(Button,13220279,504,294)
{
Left=10
Top=230
Caption="Step2"
link(onClick,8875233:doSearch,[])
}
Add(WebBrowser,12117628,602,266)
{
Left=595
Top=10
Width=350
Height=430
Point(doFromText)
}


карма: 0

2
Голосовали:PainShaft, Валерий