Здравствуйте. Задался целью написать автологин в браузерную игру «1100ad.ru»
Сначала захожу на сайт:
Код:
WebBrowser1.Silent:=true;
webbrowser1.Navigate('http://1100ad.ru/');
Затем нужно отправить POST запрос который содержит логин и пароль. Сначала я узнал содержание POST запроса который отправляет браузер если логинится руками.
Выглядит он так:
POST
http://1100ad.com/index.php login_security_code=&ip=&login=Donec2&password=123 456789&lst=0
В POST-запросе видно логин «Donec2» и пароль «123456789»
Далее пишу такой алгоритм:
Код:
procedure TForm1.Button2Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
S: String;
begin
S:='login_security_code=&ip=&login=Donec2&password=123456789&lst=0';
//--------
PostData := VarArrayCreate([1, Length(S) + 1], varByte);
System.Move(S[1], VarArrayLock(PostData)^, Length(S) + 1);
VarArrayUnlock(PostData);
Headers :=
'Content-Type: application/x-www-form-urlencoded'#10#13;
//--------
WebBrowser1.Navigate('http://1100ad.ru/index.php', Flags, TargetFrameName, PostData, Headers);
end;
Админ: Пользуемся тегами для оформления кода!
Но вместо того чтобы заходить в игру, в webbrowser выводится ответ от сервера (как я понял) в виде небольшого текста на белом фоне и дальше ничего не происходит.
Может кто-то подсказать что я делаю не так?