Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

Ответ
 
Опции темы
Старый 05.12.2016, 23:10   #1
Valimer
Новичок
 
Регистрация: 05.11.2015
Сообщений: 2
Репутация: 10
По умолчанию Выполнение действий в WebBrowser1, ошибка

Код:

var
res,data, code1:Tstrings;
name,phone, code:string;
  i,i1,i2,i3: Integer;
  html: Variant;
  DocS : IHTMLElementCollection;
 Element: IHTMLElement;
a: variant;
begin
form1.WebBrowser1.Navigate('http://m.vk.com/');
 while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
begin
   html := form1.WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i := 0 to (html.Length - 1) do
  begin
    if (html.item(i).name = 'email') then
      html.item(i).value := form1.Edit2.Text;
    if (html.item(i).name = 'pass') then
      html.item(i).value := form1.Edit3.Text;
      DocS:=(form1.WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
end;
end;
 
begin
form1.WebBrowser1.Navigate('http://m.vk.com/login?act=blocked&change_phone#form');
while WebBrowser1.ReadyState<>READYSTATE_COMPLETE do Application.ProcessMessages;
form1.WebBrowser1.Navigate('http://m.vk.com/login?act=blocked&current_phone#form');
DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
Element.click;
end;
 
//... тут получаем код и вводим его в edit6.text;
 
     html := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i1 := 0 to (html.Length - 1) do
  begin
    if (html.item(i1).name = 'code') then
      html.item(i1).value := edit6.Text;
      DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
  end;
 
     html := WebBrowser1.OleObject.Document.forms.item(0).elements;
  for i2 := 0 to (html.Length - 1) do
  begin
    if (html.item(i2).name = 'pass') then
      html.item(i2).value := form1.Edit1.Text;
     DocS:=(WebBrowser1.Document as IHTMLDocument2).all.tags('input') as IHTMLElementCollection;
  Element:=DocS.item(DocS.Length-1,0)as IHTMLElement;
  Element.click;
  end;
end;

При выполнении данного кода вылезают куча ошибок, как исправить? я так понимаю действия выполняются быстрее чем бразуер успевает прогружаться, искал на форумах что-то, но не особо нашел что-то
Valimer вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одновременное выполнение действий koljsch Общие вопросы C/C++ 8 10.01.2013 06:41
AJAX.Выполнение нескольких действий PR0Z0N JavaScript, Ajax 3 08.12.2011 18:00
Выполнение действий по таймеру Terran Общие вопросы Delphi 3 25.09.2011 16:02
Авторизация и выполнение действий. Rock'n'rolla Работа с сетью в Delphi 13 25.01.2010 22:05
выполнение нескольких действий??? zzzzz HTML и CSS 2 11.12.2008 12:59




01:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru