Добрый день, хотел бы узнать как можно авторизоваться на сайте minecraft.net? Ну например вписывая в Edit1 - Логин; Edit2 - Пароль, пробовал отловить запрос через Http analyzer но это не Post запрос, помогите! не пинайте!
Добрый день, хотел бы узнать как можно авторизоваться на сайте minecraft.net? Ну например вписывая в Edit1 - Логин; Edit2 - Пароль, пробовал отловить запрос через Http analyzer но это не Post запрос, помогите! не пинайте!
Для начала, нужно узнать все параметры запроса. Если это не POST, то, возможно, GET?
Не советовал бы использовать indy..
Но простой пример отправки покажу.
Код:
var
data, url, params : string; // объявляем 3 переменные типа string;
begin
url := 'http://minecraft.net/login.php'; // куда будет отправлен запрос (для примера)
params := 'login=admin&password=pass'; // параметры запроса (для примера); вид: ключ=значение; разделяются символом &
data := idhttp.get(url + '?' + params); // отправка запроса и присваивание результата в переменную data
end;
Не советовал бы использовать indy..
Но простой пример отправки покажу.
Код:
var
data, url, params : string; // объявляем 3 переменные типа string;
begin
url := 'http://minecraft.net/login.php'; // куда будет отправлен запрос (для примера)
params := 'login=admin&password=pass'; // параметры запроса (для примера); вид: ключ=значение; разделяются символом &
data := idhttp.get(url + '?' + params); // отправка запроса и присваивание результата в переменную data
end;
У вас скайп есть? там будет проще общаться, нежели гадить форум) мой скайп denis12747 Добавьте пожалуйста!
Для сайта [Ссылки могут видеть только зарегистрированные пользователи. ]
Код:
procedure TForm2.Button1Click(Sender: TObject);
var
StrPage, ssylka:string;
log:TstringList;
begin
ssylka:='http://profibot.net/ru/account/welcome'; //Ссылку нужную сам подставь. на скрине 1 видно где взять её
log:=TstringList.Create;
log.Add('_l='+Edit1.Text); //логин берётся из Edit1
log.Add('_p='+Edit2.Text); //пароль из Edit2
log.Add('send=Вход');
StrPage:=IdHTTP1.Post(ssylka,log);
if pos ('signout',StrPage)<>0 then //Если в исходном коде есть "signout" значит все ок и мы залогинились.
Label1.Caption:='Авторизация прошла успешно!'
else
Label1.Caption:='Неверный логин и/или пароль!';