Делаю небольшую программу для себя(браузерная игра botva.ru и qraut.de)
Посмотрел сниффером какие параметры надо передавать пост запросом на сервер это:
do_cmd=login ; server=; email=; password=;
в итоге например будет так:
[Ссылки могут видеть только зарегистрированные пользователи. ]
Сам код:
Код:
switch(ComboBox1->ItemIndex)
{
case 0: URL="http://g1.botva.ru/login.php"; break;
case 1: URL="http://g2.botva.ru/login.php"; break;
case 2: URL="http://g3.botva.ru/login.php"; break;
}
List->Add("do_cmd=login");
List->Add("server=" + IntToStr(ComboBox1->ItemIndex + 1));
List->Add("email=" + Edit1->Text);
List->Add("password=" + Edit2->Text);
Memo1->Lines->Add(IdHTTP1->Post(URL, List));
List->Free;
1) ругается на несоответствие типов Memo1->Lines->Add(IdHTTP1->Post(URL, List)); URL - String; List - TStringList;
2) в делфи все работало, вход происходил.
3) как ко всему этому подключить еще webbrowser?
Надо при нажатии на кнопку "вход" WebBrowser1->Navigate(WideString(ComboBox1->Items->Strings[ComboBox1->ItemIndex]));
А затем производить авторизацию... и если мы зашли, в вебраузере должен быть редирект на главную страничку персонажа, а если нет то там выдаст страничку где будет: "данные не верны и т.д. и т.п."
Последний раз редактировалось ice_man933; 17.07.2012 в 22:18.