Ruzzi
13.03.2010, 19:59
Потратив десятки часов на чеканье аккаунтов для одной игрушки в соц сетях чуть не съехал с катушек. Но тут в мозгу звякнуло "Я же программист какого я всё ручками делаю...". Начал поиск инфы в интернете. Собственно пишу программу которая берёт мыло и пасс, заходит на него добавляет фотку, добавляет приложению на свою страницу и регает в нём персонажа(а регать там вообщем то ничего не надо просто передаётся запрос). Вот что уже есть:
implementation
var S,Y,L,vid,auth_key:string;
{$R *.dfm}
procedure TForm1.ChekClick(Sender: TObject);
var Data:TStringList;
var Reg:TStringList;
begin Data:=TStringList.Create; Data.Add('page=http://my.mail.ru/'); Data.Add('Login='+editmail.Text); Data.Add('Domain='+domain.Text); Data.Add('Password='+editpassword.Text);
try
S:=IdHTTP1.Post('http://my.mail.ru/cgi-bin/auth', Data); except
end;
Y:=IdHTTP1.Get('http://my.mail.ru/mail/'+editmail.Text);
if Pos('logout', Y)<>0 then
otv.Caption:='On'
else
otv.Caption:='Off';
Reg:=TStringList.Create;
Reg.Add('action=register');
Reg.Add('object=auth');
if otv.Caption='On' then
IdHTTP1.Get('http://my.mail.ru/mail/hwndap8f/app-canvas?appid=420353');
sleep(1000);
IdHTTP1.Get('http://my.mail.ru/cgi-bin/app/inst?appid=420353&ref=&uaflag_notify=1&uaflag_news=1&uaflag_widget=1');
sleep(1000);
IdHTTP1.Post('http://soc.it-territory.ru/entry_point.php?action=register&object=auth',Reg);
end;
Прога уже сама заходит на страничку и добавляет её с свои приложения, но с регистрацией персонажа всё не так просто вышло. Сниффер не показал post data.
Пришлось выдирать это из всего запроса вот что нарылось
vid'2528774459443015291app_friends actionregisteruid form nick3Хиро Накамураcfg phair30 cbody0 gender1 pbody phead5 kind chairauth_keyA22daad5a95388fdbcddb27ca972873 b4partner photo_http://avt.appsmail.ru/mail/2jrekhbl/_avatarbigprofileAhttp://my.mail.ru/mail/2jrekhbl/
//Это сам запрос
<iframe class="app" marginheight="0" marginwidth="0" src="http://soc.it-territory.ru/images/game/game.html?app_id=420353&session_key=0dcc03de9e2ed6ca4ba1abec14e687a7&authentication_key=22daad5a95388fdbcddb27ca972873b 4&is_app_user=1&oid=2528774459443015291&vid=2528774459443015291&window_id=CometName_191a18bd1f5d6694a86aa13d9828d7 d2&ext_perm=notifications,stream,widget" class="widget" frameborder="0" scrolling="no" width="760px" id="420353" height="1260"></iframe>
//Это выдрано из хтмл кода странички
vid=2528774459443015291
app_friends
action=register
uid=form
nick=
cfg=phair
30=cbody
0=gender
1=pbody
phead=5
kind=chair
auth_key=auth_key
//А это примерно что мне удалось расшифровать. Параметры и значения post.
Ачатовцы, прошу у вас помощи! Кто может объяснить как добавить загрузку фотки, а там пост запрос с тремя значениями и я хз как его отправить. И разобраться с регистрацией персонажа. Отписывайтесь сюды, кто желает помочь в асю (561347487). Если разберусь с ней для ачатовцев будет в паблике.
implementation
var S,Y,L,vid,auth_key:string;
{$R *.dfm}
procedure TForm1.ChekClick(Sender: TObject);
var Data:TStringList;
var Reg:TStringList;
begin Data:=TStringList.Create; Data.Add('page=http://my.mail.ru/'); Data.Add('Login='+editmail.Text); Data.Add('Domain='+domain.Text); Data.Add('Password='+editpassword.Text);
try
S:=IdHTTP1.Post('http://my.mail.ru/cgi-bin/auth', Data); except
end;
Y:=IdHTTP1.Get('http://my.mail.ru/mail/'+editmail.Text);
if Pos('logout', Y)<>0 then
otv.Caption:='On'
else
otv.Caption:='Off';
Reg:=TStringList.Create;
Reg.Add('action=register');
Reg.Add('object=auth');
if otv.Caption='On' then
IdHTTP1.Get('http://my.mail.ru/mail/hwndap8f/app-canvas?appid=420353');
sleep(1000);
IdHTTP1.Get('http://my.mail.ru/cgi-bin/app/inst?appid=420353&ref=&uaflag_notify=1&uaflag_news=1&uaflag_widget=1');
sleep(1000);
IdHTTP1.Post('http://soc.it-territory.ru/entry_point.php?action=register&object=auth',Reg);
end;
Прога уже сама заходит на страничку и добавляет её с свои приложения, но с регистрацией персонажа всё не так просто вышло. Сниффер не показал post data.
Пришлось выдирать это из всего запроса вот что нарылось
vid'2528774459443015291app_friends actionregisteruid form nick3Хиро Накамураcfg phair30 cbody0 gender1 pbody phead5 kind chairauth_keyA22daad5a95388fdbcddb27ca972873 b4partner photo_http://avt.appsmail.ru/mail/2jrekhbl/_avatarbigprofileAhttp://my.mail.ru/mail/2jrekhbl/
//Это сам запрос
<iframe class="app" marginheight="0" marginwidth="0" src="http://soc.it-territory.ru/images/game/game.html?app_id=420353&session_key=0dcc03de9e2ed6ca4ba1abec14e687a7&authentication_key=22daad5a95388fdbcddb27ca972873b 4&is_app_user=1&oid=2528774459443015291&vid=2528774459443015291&window_id=CometName_191a18bd1f5d6694a86aa13d9828d7 d2&ext_perm=notifications,stream,widget" class="widget" frameborder="0" scrolling="no" width="760px" id="420353" height="1260"></iframe>
//Это выдрано из хтмл кода странички
vid=2528774459443015291
app_friends
action=register
uid=form
nick=
cfg=phair
30=cbody
0=gender
1=pbody
phead=5
kind=chair
auth_key=auth_key
//А это примерно что мне удалось расшифровать. Параметры и значения post.
Ачатовцы, прошу у вас помощи! Кто может объяснить как добавить загрузку фотки, а там пост запрос с тремя значениями и я хз как его отправить. И разобраться с регистрацией персонажа. Отписывайтесь сюды, кто желает помочь в асю (561347487). Если разберусь с ней для ачатовцев будет в паблике.