Создание простейшего бота - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе
20.04.2011, 10:08
#1
Разведчик
Регистрация: 14.02.2011
Сообщений: 3
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
Создание простейшего бота
Здравствуйте, у меня такой вопрос, есть браузерная игра в контакте, мне нужно автоматизировать одно действие, я сниффером поймал нужный запрос, проблема в том, что я не знаю как это правильно вставить в код программы, чтобы при нажатии на кнопку запускалось это действие и повторялось допустим каждые 10 минут. Есть программка xstarter, в нее вставляю url и параметр и ставлю таймер, все отлично работает. Вот эти параметры:
URL: [Ссылки могут видеть только зарегистрированные пользователи. ]
Параметр: method=startBattle&sig=d6a93f799a266e2e60e8139622c a1cd9&user=5134812&boss%5Fid=6&key=4126eeec4fded3d 806a5174a4169a928
Заранее спасибо.
20.04.2011, 12:34
#2
Сержант
Регистрация: 01.09.2010
Сообщений: 163
Популярность: 32
Сказал(а) спасибо: 135
Поблагодарили 48 раз(а) в 36 сообщениях
Re: Создание простейшего бота
Если ты новичок, тогда используй Autoit.Ну а если на Delphi
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
Http : TidHttp;
CM : TidCookieManager;
Data : TStringList;
s, g : String;
begin
try
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
Http.AllowCookies := true;
Http.CookieManager := CM;
Http.HandleRedirects := true;
Http.Request.Host:='109.234.156.250';
Http.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0';
Http.Request.Accept:='text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
Http.Request.AcceptLanguage:='ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
Http.Request.AcceptCharSet:='windows-1251,utf-8;q=0.7,*;q=0.7';
Http.Request.Referer:='http://cs4287.vkontakte.ru/u3691205/52d96e1188a225.zip';
Data.Add('method=office');
Data.Add('sig=4b4d194a083007aa538f49d2a0cd6b5c');
Data.Add('key=' + Edit2.Text);
Data.Add('getidea=1');
Data.Add('user=' + Edit1.Text);
s := Http.Post('http://109.234.156.250/prison/universal.php?office', Data);
g:=copy(s,pos('<money>',s)+length('<money>'),pos('</money>',s)-pos('<money>',s)-length('<money>'));
Label1.Caption:=g;
finally
Data.Free;
CM.Free;
Http.Free;
end;
end;
Код не мой, скоппировал в теме ниже!
Последний раз редактировалось Hellost; 20.04.2011 в 12:43 .
09.05.2011, 02:54
#3
Разведчик
Регистрация: 28.03.2011
Сообщений: 0
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Re: Создание простейшего бота
10.05.2011, 17:14
#4
Разведчик
Регистрация: 18.04.2011
Сообщений: 0
Популярность: 14
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 1 сообщении
Re: Создание простейшего бота
idHTTP1 кинь на форму..
вкладка indyClients
Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 01:40 .