Автоматический вход на mail.ru

@97mik · Регистрация: 08.04.2009

Author24 — интернет-сервис помощи студентам

Подскажите пожалуста если у меня есть edit1 и edit2 как сделать чтобы заходилось в mail.ru в логин вводилось text.edit1 а в пароль text.edit2 и нажималось войти

@iama · 20.08.2010, 21:29

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  LoginInfo: TStringList;
  Response: TStringStream;
begin
  try
    LoginInfo := TStringList.Create;
    Response := TStringStream.Create('');
    LoginInfo.Add('username=MyName');
    LoginInfo.Add('password=MyPass');
    IdHTTP1.Post('http://mywebsite.xxx/login.php',LoginInfo,Response);
    Showmessage(Response.DataString);
  finally
    begin
      Response.Free;
      LoginInfo.Free;
    end;
  end;
end;

@97mik · 21.08.2010, 00:03 **[ТС]**

Ничего непонятно но всё равно спасибо!

@iama · 21.08.2010, 09:21

а как оно может быть понятно, коль теория у вас - борозда непаханная?

Fix777 · 21.08.2010, 15:36

Если через WebBrowser то так..

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  ovElements: OleVariant;
  i: Integer;
begin
   ovElements := WebBrowser1.OleObject.Document.Forms.Item( 0 ).Elements;
   for i := 0 to ( ovElements.Length-1 ) do
   begin
      // Вставляем логин   <input type="text" name="u_login" value="" />
      if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'INPUT' ) then
            if ( ovElements.item( i ).name = 'u_login' ) then
               ovElements.Item( i ).Value := (edit1.Text);    // Ваш логин
 
      // Вставляем пароль   <input type="password" name="u_passwd" value="" />
      if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'INPUT' ) then
            if ( ovElements.item( i ).name = 'u_passwd' ) then
               ovElements.Item( i ).Value := (edit2.Text);   //  Ваш пароль
 
      // Жмем на кнопку
      if ( AnsiUpperCase( ovElements.Item( i ).tagName ) = 'INPUT' ) then
         if ( AnsiUpperCase( ovElements.Item( i ).type ) = 'SUBMIT' ) or
            ( AnsiUpperCase( ovElements.Item( i ).type ) = 'BUTTON' ) then
            if ( AnsiUpperCase( ovElements.item( i ).Value ) = 'ВХОД' ) then  // Название кнопки
                ovElements.Item( i ).Click;
   end;
end;

Только уж имена элементов сам смотри.. (в исходном коде страницы)

@velikijmerlin · 22.08.2010, 01:18

iama, эм, а разве так пустит на маил? я сам как то пробовал делать что - то подобное, но у меня не получилось, просто либо знаний не хватает либо не так делал что то

@Markus_13 · 22.08.2010, 02:30

iama, эм, а разве так пустит на маил? я сам как то пробовал делать что - то подобное, но у меня не получилось, просто либо знаний не хватает либо не так делал что то

Если сильно захотеть - пустят куда угодно

Вот рабочая прога-логинер на мэйл.ру:

@velikijmerlin · 22.08.2010, 11:27

Markus_13, пасиб, глянемс

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
		1
	Автоматический вход на mail.ru 20.08.2010, 01:19. Показов 4925. Ответов 7 Метки нет (Все метки) Подскажите пожалуста если у меня есть edit1 и edit2 как сделать чтобы заходилось в mail.ru в логин вводилось text.edit1 а в пароль text.edit2 и нажималось войти 0

@97mik 12 / 12 / 5 Регистрация: 08.04.2009 Сообщений: 879
	21.08.2010, 00:03 [ТС]	3
	Ничего непонятно но всё равно спасибо! 0

@iama 1360 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	21.08.2010, 09:21	4
	а как оно может быть понятно, коль теория у вас - борозда непаханная? 1

@velikijmerlin Junior Developer 44 / 44 / 7 Регистрация: 08.06.2009 Сообщений: 261
	22.08.2010, 01:18	6
	iama, эм, а разве так пустит на маил? я сам как то пробовал делать что - то подобное, но у меня не получилось, просто либо знаний не хватает либо не так делал что то 0

@velikijmerlin Junior Developer 44 / 44 / 7 Регистрация: 08.06.2009 Сообщений: 261
	22.08.2010, 11:27	8
	Markus_13, пасиб, глянемс 0