[Подсказка] Исходник Бота в тюряге

[lolopo123]

Добрый день я хочю поделится с новечками в программирование и выкладываю кусок бота в тюряге этот кусок отвечяет за выполнение в первой тюрьме барыжить зубными счетками

procedure TForm1.Button1Click(Sender: TObject);
var
  k:Tstrings;
l:string;
begin
 k:=Tstringlist.Create;
 k.Add('user='+edit2.Text); //здесь мы вводим ид
 k.Add('method=doCityAction'); //это поставленная переменная что вы на зоне
 k.Add('action_id=2');  // номер движухи самой
  k.Add('key='+edit1.Text); // здесь мы вводим аут кей
  k.Add('action_type=3'); // сколько энергии тратится
 k.Add('city=1'); // номер тюрьми(например: Бутырка -1)
l:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?doCityAction', k); // здесь мы отпровляем ваш составленный пост запрос 
if Pos('<data><energy></energy></data>',i) <>0 then // тут идет проверка исходного кода
ShowMessage('Выполненно')
else
ShowMessage('не выполненно')
end;


end.

помог ставь спасибо)

[*xalyava*]

Цитата: Сообщение от lolopo123 так пойдет?

procedure TForm1.Button1Click(Sender: TObject);
var
  k:Tstrings;
l:string;
begin
 k:=Tstringlist.Create;

try
 k.Add('user='+edit2.Text); //здесь мы вводим ид
 k.Add('method=doCityAction'); //это поставленная переменная что вы на зоне
 k.Add('action_id=2');  // номер движухи самой
  k.Add('key='+edit1.Text); // здесь мы вводим аут кей
  k.Add('action_type=3'); // сколько энергии тратится
 k.Add('city=1'); // номер тюрьми(например: Бутырка -1)
l:=IdHTTP1.Post('http://109.234.156.251/prison/universal.php?doCityAction', k); // здесь мы отпровляем ваш составленный пост запрос 
if Pos('<data><energy></energy></data>',i) <>0 then // если движуха выполнена то
ShowMessage('Выполненно') // выполнено
else // если нет
ShowMessage('не выполненно') // не выполнено

finally
k.free;
end;


end.

я думаю так будет понятнее

[doctor_flasher]

Где try? Почему ты k не освобождаешь? Плохо, когда новичек пытается учить новичков

[Andry lomakin]

if Pos('<data><energy></energy></data>',i) <>0 then // если движуха выполнена то
я учу делфи сам вот не пойму что это такое ошибку выдает

[StormQD]

Цитата: Сообщение от Andry lomakin if Pos('<data><energy></energy></data>',i) <>0 then // если движуха выполнена то я учу делфи сам вот не пойму что это такое ошибку выдает

Дак конечно будет ошибка... У него этот Pos ни как не обозначен в этой процедуре...

Добавлено через 38 минут
Даже точнее не в этой процедуре, а я предполагаю, что Pos - это функция парсинга, которую ТС почему- то решил не выложить...

[Hermein]

Цитата: Сообщение от StormQD а я предполагаю, что Pos - это функция парсинга

[Ссылки могут видеть только зарегистрированные пользователи. ]
Аналог Substring - в C#
Кстати бредовый исходник, если даже регистр учитывается...то Pos('<data><energy></energy></data>',i) всегда будет 0 возвращать ибо между <energy> и </energy> всегда есть число, если кончится энергия там вообще error идет

[zodik123]

if Pos('<data><energy></energy></data>',i

ошибка) надо вот так

if Pos('<data><energy></energy></data>',l

так как ты указал в начале l:string

[ToSTeР]

Цитата: Сообщение от zodik123 if Pos('<data><energy></energy></data>',i ошибка) надо вот так if Pos('<data><energy></energy></data>',l так как ты указал в начале l:string

Разницы нет

[VeTaL_UA]

Цитата: Сообщение от ToSTeР Разницы нет

Ну, как бы, оно читает с несуществующей переменной, что ниок.