Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2012, 21:32   #1
Effractor
Пользователь
 
Регистрация: 10.02.2012
Сообщений: 24
По умолчанию Проблема с webBrowser

Доброго времени суток ! Написал программу для Mail.ru Мой Мир. Программа авторизовывается и принимает все заявки в друзья. Но почему-то ни одна заявка не принята. Ниже весь код программы?
Код:
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
 
namespace AcceptFriends
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        enum State
        {
            IsAcceptFriends,
            IsLogin,
            IsCenter,
            None
        }
 
        State current = State.None;
 
        private void button1_Click(object sender, EventArgs e)
        {
            current = State.IsLogin;
            webBrowser1.Navigate("http://my.mail.ru/cgi-bin/login");
        }
 
        private void button2_Click(object sender, EventArgs e)
        {
            ListViewItem item = new ListViewItem(textBox1.Text);
            item.SubItems.Add(textBox2.Text);
            listView1.Items.Add(item);
        }
 
        private void button3_Click(object sender, EventArgs e)
        {
            textBox3.Clear();
        }
 
        private void webBrowser1_DocumentCompleted(object sender, WebBrowserDocumentCompletedEventArgs e)
        {
            if (current == State.IsLogin)
            {
                textBox3.AppendText("Авторизация " + listView1.Items[0].SubItems[0].Text + "\n");
                foreach (HtmlElement element in webBrowser1.Document.GetElementsByTagName("input"))
                {
                    if (element.Name == "Login")
                    {
                        element.InnerText = listView1.Items[0].SubItems[0].Text;
                    }
 
                    if (element.Name == "Password")
                    {
                        element.InnerText = listView1.Items[0].SubItems[1].Text;
                    }
 
                    if (element.GetAttribute("value") == " Войти ")
                    {
                        element.InvokeMember("click");
                    }
                }
                current = State.IsCenter;
 
            }
 
            if (current == State.IsAcceptFriends)
            {
                textBox3.AppendText("Принятие заявок" + "\n");
                var temp = webBrowser1.Document.GetElementsByTagName("span").Cast<HtmlElement>().Where(element2 => element2.GetAttribute("type") == "friendship:List.AcceptRequest").ToList();
 
                if (temp.Any())
                {
                    foreach (HtmlElement element in temp)
                        element.InvokeMember("click");
                        webBrowser1.Refresh(); // Обновляем страницу, чтобы получить новые заявки
                }
            }
 
            if (current == State.IsCenter)
            {
                current = State.IsAcceptFriends;
                webBrowser1.Navigate("http://my.mail.ru/my/friends_requests?");
            }
 
        }

Последний раз редактировалось Effractor; 27.05.2012 в 21:38.
Effractor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ошибка в WebBrowser - оказалось проблема в internet explorer 9 designer999 Работа с сетью в Delphi 13 06.01.2011 07:04
WebBrowser проблема с кодом Hausedark Общие вопросы Delphi 4 07.07.2010 20:08
В чём проблема? (Работа с WebBrowser) Lauri Общие вопросы Delphi 0 01.04.2010 11:26
WebBrowser проблема с загрузкой страницы и последующей обработкой OkeaH Общие вопросы Delphi 3 15.02.2009 01:43
WebBrowser kuzmich Компоненты Delphi 0 16.12.2007 11:30