Выполнить какое-либо действие спустя 10 минут - Delphi - Ответ 6414654

@kylukov · 10.07.2014, 15:14 **[ТС]**

О спасибо большое, подскажите как правильнее еще добавить в таймер что бы когда он включался открывалась определенная страница на которой он будет колотить кнопку вот что у меня имеется:

Delphi

   procedure TForm4.FormCreate(Sender: TObject);
begin
  form4.Timer1.Enabled:=false;                                            //это я выключаю счетчик при создании формы
end;
 
 
procedure TForm4.Button1Click(Sender: TObject);
begin
  webbrowser1.Navigate('www.сайт.ru');                 //открываю сайт кнопкой
end;
 
procedure TForm4.Button2Click(Sender: TObject);
var
i:integer;
s:string;
html_tag:variant;
begin
html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements;    //ищу поля и логинюсь
 for i:=0 to (html_tag.length-1) do
 begin
 if (html_tag.item(i).name='email') then
  html_tag.item(i).value:='почта@gmail.com';
 
  if (html_tag.item(i).name='password') then
  html_tag.item(i).value:='пароль';
 
  if (html_tag.item(i).value='ВХОД') then
  html_tag.item(i).click;
 
 end;
 
end;
 
 
procedure TForm4.Button3Click(Sender: TObject);
begin
form4.Timer1.Interval:=6000;                                      //запуск интервала работы счетчика
form4.Timer1.Enabled:=true;
end;
 
procedure TForm4.Timer1Timer(Sender: TObject);
var
  i:integer;
  s:string;
  html_tag:variant;
begin
 
webbrowser1.Navigate('http://сайт.ru/castle.php?a=workshop_farm&id=4');       // подскажите как реализовать вот это что бы при запуске счетчика программа открывала заданную страницу и после уже выполняла поиск и нажатие кнопки на веб странице  как написано ниже
 
  if (html_tag.item(i).value='ДОБЫВАТЬ') then               
  html_tag.item(i).click;
 
end;

А то ошибка вылетает программа авторизацию проводит нужную страницу открывает при запуске счетчика http://сайт.ru/castle.php?a=workshop_farm&id=4 но вылетает ошибка так как оформил код неправильно.
Подскажите пожалуйста я уже совсем близко у своей мечты

Добавлено через 27 минут
В общем забубенил вот так

Delphi

procedure TForm4.Timer1Timer(Sender: TObject);
var
  i:integer;
  html_tag:variant;
    s:string;
 
  begin
         begin
    webbrowser1.Navigate('http://сайт.ru/castle.php?a=workshop_farm&id=4');
  end;
html_tag:=WebBrowser1.OleObject.Document.forms.item(0).elements;
 for i:=0 to (html_tag.length-1) do
   begin
  if (html_tag.item(i).value='ДОБЫВАТЬ') then
  html_tag.item(i).click;
   end;
  end;

Страница открывается но кнопка почему то не нажимается

Добавлено через 32 минуты
Попробовал просто через кнопку нажать, но как оказалось код кнопку не видит хотя тот же код при авторизации кнопку видит и жмет

HTML5

<div class="workshop_button">
<input type='submit' class='cmd_all green  cmd_row4 cmd_arow4 ' value='ДОБЫВАТЬ' onClick='startMake();'>
</div>
</div>

при авторизации работает а при клике нет

Delphi

1 2	if (html_tag.item(i).value='ДОБЫВАТЬ') then html_tag.item(i).click;

почему?

Вернуться к обсуждению:
Выполнить какое-либо действие спустя 10 минут Delphi

Другие темы раздела
Delphi Проверка слов написанных через запятую в Edit Как реализовать проверку слов написанных через запятую в Edit, должно в итоге работать как этот кусок кода, в данный момент у меня то что ниже, но не знаю как можно реализовать чтобы работало так как я описал выше... if ((Pos('a', str)=0) and (Pos('b', str)=0) and (Pos('c', str)=0) and (str>'')) then P.S на ум только лезет следующее: 1. используя Delimiter убираем запятые и записываем в... https://www.cyberforum.ru/ delphi-beginners/ thread1225282.html	Как использовать SendReadTwitter.DLL (raxp'a) в отдельном потоке? Delphi Приветствую! Я пользуюсь библиотекой SendReadTwitter и вот сейчас появилась проблема. Я использую библиотеку в динамично созданном потоке. Авторизация проходит успешно, но когда доходит до отправки твиттера пишет вот такую ошибку в компиляторе, и твит не поститься. Пробовал создать отдельный проект новый без потоков, и все работает. Проверка на авторизацию есть, твит начинает поститься...
Delphi Открытие документа OpenOffice Writer Помогите пожалуйста, вот собственно код: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, sSpeedButton, sSkinManager, ComCtrls, ExtCtrls, PDirSelected, TrayIcon, uOpenOffice, Math, Comobj; type https://www.cyberforum.ru/ delphi-beginners/ thread1225212.html	Delphi Если файл изменился, то скопировать его в другое место Интересует, как сравнить, что время изменилось. В Memo2.Lines вывожу дату создания файла в таймере. Если изменяю файл, то цифры в мемо сразу меняются. Но не получается скопировать Я наверно огорода нагородил unit Unit1; interface uses Winapi.Windows, IOUtils, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,... https://www.cyberforum.ru/ delphi-beginners/ thread1225150.html
Как устроен "and"? Delphi Предположим, у нас есть: x := 1; y := 2; if (x>1) and (y>1) then ... Если (x>1) уже дает false, будет ли проверяться (y>1)?	Delphi Не запускается программа. В логах "Application Error" День добрый. Программирую на php, но пришлось сегодня на работе столкнуться с программой написанной на Delphi. При запуске на exe выбивает ошибку. Мне нужно только её запустить. На компе стоит XP, Net Framework 3.5, BDE. В BDEADMIN прописал путь к файлам. В папке с файлами лежит инсталяшка abidesktop, после установки которой тоже выбивает ошибку. В логах ошибка - "Application Error". В... https://www.cyberforum.ru/ delphi-beginners/ thread1225070.html
Delphi В Stringgrid точку поменять на запятую Всем привет! Подскажите пожалуйста как в Stringgrid точку заменить на запятую. Сделал следующее - в Stringgrid я копировал файл .CSV! Отделителем целой части от дробной является точка! Нужна запятая чтобы провести в дальнейшем простые математические действия. Буду признателен за любую полезную информацию:) https://www.cyberforum.ru/ delphi-beginners/ thread1225040.html	Табулирование символов при выводе и ошибка "Illegal type in Write/Writeln statement" Delphi Добрый день, дорогие форумчане. Столкнулся с такой проблемой... Хочу я к примеру создать таблицу массивов: Element-1 Element-2 1 1 2 2 3 3 4 4 5 5
Delphi Найти длину диагонали самого большого из квадратов, зная площадь Даны площади нескольких квадратов. Найти длину диагонали самого большого из них. https://www.cyberforum.ru/ delphi-beginners/ thread1224952.html	Delphi Изменить записи в MainMenu https://www.cyberforum.ru/ delphi-beginners/ thread1224945.html Вроде всё просто, но почему то ничего не идёт. Пытаюсь перевести меню, но ничего не меняется, что делаю не так? Form4.MainMenu1.Items.Caption:='File'; Form4.N4.Caption:='save the drawing as'; Form4.N2.Caption:='Image'; Form4.N5.Caption:='Original scale'; Form4.N3.Caption:='about this app'; Form4.N7.Caption:='about this app'; Form4.N6.Caption:='window';
Delphi Из С++ в Delphi Переведите, пожалуйста, код программы в Delphi. CDateYearWeek::CDateYearWeek() { m_y=00; m_m=00; m_d=00; } CDateYearWeek::~CDateYearWeek() {}	Delphi Определить номер дня недели в году для указанной даты Помогите создать классы: определить номер дня недели в году для указанной даты. Например, 8 февраля 2006 года – шестая неделя. https://www.cyberforum.ru/ delphi-beginners/ thread1224910.html

	10.07.2014, 15:14