РокетБанк [debit_cards][sale] Точка банк Эквайринг [sale] Восточный Экспресс Дебетовая карта [debit card][sale]

Помогите создать чекер Lotro на делфи!

Wektor

Пользователь
#1
Я новичок!
Саит игры:
У Вас недостаточно прав для просмотра ссылок. Войдите или зарегистрируйтесь.

Не парсит почему то подскажите как сделать чтоб парсил!
Вот код:
unit LotroChekers;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Memo1: TMemo;
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function Pars(T_, ForS, _T: string): string;
var a, b: integer;
begin
Result := '';
if (T_ = '') or (ForS = '') or (_T = '') then Exit;
a := Pos(T_, ForS);
if a = 0 then Exit else a := a + Length(T_);
ForS := Copy(ForS, a, Length(ForS) - a + 1);
b := Pos(_T, ForS);
if b > 0 then
Result := Copy(ForS, 1, b - 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TStringlist;
HTML,go:string;

Pars1,Pars2:string;
begin
go:='
У Вас недостаточно прав для просмотра ссылок. Войдите или зарегистрируйтесь.

Data:=TStringlist.Create;
Data.Add('login='+ Edit1.Text);
Data.Add('password='+ Edit2.Text);
Data.Add('authsave=0');
HTML:=idHTTP1.Post(go,data);
if pos('href="/support/"',HTML)<>0 then
begin
ShowMessage('Мы авторизировались');
Pars1:=Pars('У вас на счету:</td><td class=c><b> ',HTML,'марок</b>');
Memo1.Lines.Add('На счету'+ Pars1);
end
else
begin
ShowMessage('Ошибка авторизации');
Memo1.Lines.Add('Ошибка авторизации');
end;
end;

end.

Также подскажите как сделать чтобы!
Чекать с базы а не по одному аккаунту!
Использование прокси!
Создание текстовиков good и bad
Прощу все разьеснять так как я нуб и многово еще не понимаю.
Когда даете код говорите куда его вставлять!
Буду очень благодарен за помошь!Всем +!
 

MIRKA

Проверенный
#2
переходи на synapse, не юзай инди хоррор =D
C#:
var
  HTML: TStringList;
  Data: TStringStream;
  HTTP: THTTPSend;
  Pars1: string;
begin
  HTTP := THTTPSend.Create;
  HTML := TStringList.Create;
  Data := TStringStream.Create;

  Data.Clear;
  HTTP.Headers.Clear;
  HTTP.Document.Clear;

  Data.WriteString('{"email":"' + sEdit1.Text + '","password":"' + sEdit2.Text + '"}');
  HTTP.Document.LoadFromStream(Data);
  if HTTP.HTTPMethod('POST', 'URL') then
  begin
    HTML.LoadFromStream(HTTP.Document);
    if (Pos('"authentication_token":"', HTML.Text) > 0) then
    begin
      ShowMessage('Мы авторизировались');
      Pars1 := Pars('"cash":',HTML.Text,',');
      sMemo1.Lines.Add('На счету: ' + Pars1);
      sMemo2.Lines.Add('Good: ' + HTTP.ResultCode.ToString);
    end
    else
    begin
      ShowMessage('Ошибка авторизации');
      sMemo1.Lines.Add('Ошибка авторизации');
      sMemo2.Lines.Add('Bad: ' + HTTP.ResultCode.ToString);
    end;
  end;
  FreeAndNil(HTML);
  FreeAndNil(HTTP);
  FreeAndNil(Data);
получишь результат
 

Similar threads

Сверху