- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
procedure TClickerAdvertising.Start(Item: TTaskItem);
procedure StartTask(AURL: string);
procedure SearchInYandex(Keywords, Domen: string);
procedure SendSearchRequest;
procedure CheckSearchRequest;
procedure SearchLinkAndClick;
function FindLinkInList: IHTMLElement;
procedure CheckValidateTransition;
procedure MoveAndGoBack(Domen: string; MoveCount, MoveDelay: Integer);
function GetRandomElement: IHTMLElement;
procedure FindAdvertLinkAndClick(AdvertType: TAdvertType; var AdvertLink: string);
procedure ClickFromLinkToAdvert;
procedure ClickFromGoogleAds;
procedure SendReport(AURL: string);
function GetIP: string;
begin
//...
end;