Совет в написании бота.

[ZaRDaK]

var bmp : TBitMap;
col : TColor;
R , G , B : Byte;
begin
bmp := TBitMap.Create;
bmp.LoadFromFile('1.bmp'); //имя загружаемого файла
col := bmp.Canvas.Pixels[1,1]; //координаты пикселя, цвет которого тебе нужен
R := GetRValue(col); //получение R G B пикселя
G := GetGValue(col);
B := GetBValue(col);
bmp.Destroy;
end;

[zlex]

FullVenic, эти боты работают на ява скриптах, которые в одно время админы могут прикрыть. К примеру у ресурса имеется определенный код типа "abcd" и подлетев в игре к нему, бот посылает запрос на сервер "abcd" и собирает этот ресурс. Если админы добавят пару символов в скрипт ресурса, то бот будет ссылаться на "abcd", а на деле у ресурса будет код "abcd=я_не_бот", то тут-то и боту конец.

Тем более мне не готовый бот нужен, а сам хочу его написать. Только пока что дела не позволяют начать. Надеюсь уж сегодня я приступлю к работе =) там уж и появятся конкретные вопросы по теме

[KobolD]

Честно говоря не знаю как устроена структура игры, но я когда то писал бота для икариама, так я в своей программе на форме размещал webbrowser1, грузил в него игру и анализировал код документа, а потом просто программно клика по нужным мне объектам.

[zlex]

Сообщение от KobolD

анализировал код документа

Парсил всмысле? Каждый раз? На сколько мне известно сервер засекает парсировку.

Сделав скрин, его нужно сохранить в файл? или можно перебирать пиксели изображения прямо из памяти?

Подскажите как прописать клик мышкой?
код типа:
x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

не канает
----------------------------------------------------
отредактировано:
помогло setcursorpos(x,y);

[KobolD]

Сообщение от zlex

Парсил всмысле? Каждый раз? На сколько мне известно сервер засекает парсировку.

Да нет, там получается так что ты при загрузке кода страницы сразу его "копируешь" в переменную типа webbrowserdocument (или что то типа того) и уже с ней работаешь, надо только поставить отлов события на изменение страницы, чтобы в переменной всегда актуальная информация была. Я в четверг вечером могу тебе наработки прислать для икариама на VB, если я их случайно не потер. оставь тока контакты какиенить.
И скинь адрес игры, я хоть посмотрю, структура похожа или нет.
Кстати посмотри программу AutoIt или UIpilot (есть еще какие то аналоги но я не помню как называются) может проще будет писать, там как раз есть функция анализа цвета изображения по координатам и кликание мышкой по координатам.

[zlex]

KobolD, спасибо за информацию. Было бы интересно глянуть на упомянутые проги. Адрес игры darkorbit.ru
мой скайп: mr-zlex

[DomiNick]

x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

Эм...... Это что вообще за ужасть-то такая? о___о
(про первую часть кода)

Парсил всмысле? Каждый раз? На сколько мне известно сервер засекает парсировку.

Он не засекает, просто игра может слегка изменить структуру html и вы сразу же попадётесь, с поличным... =\\
Уже не раз давал ссыль: А давайте я вам расскажу общие принципы как ловятся большинство ботов

Сделав скрин, его нужно сохранить в файл? или можно перебирать пиксели изображения прямо из памяти?

Нет. Лишняя трата времени... Скрин делается при помощи апи-функции в HDC и незачем его оттуда куда-то копировать...

Вы в сборник статей-то заглядывали? Там есть всё нужное, почти готовое...

[zlex]

Ужас этот нашёл в инете =)
Да, со скрином всё окей. В статьи эти глядел, канешн может пропустил, но готового не нашёл)

Сделал скрин определенной области экрана, нашел в нём определённый пиксель, RGB которого входят в интервал. но пока что где-то напутал с координатами, и кликает не туды, но с этим завтра разберусь. думаю, проблема возникнет только с быстродействием программы, а так работать должна

[FullVenic]

Рома
Я тебя добавил в скайп. На каком языке будешь писать?

[zlex]

Кто подскажет, как можно программно вызвать клик ЛК мыши?
Что-нибудь проще этого:

x := Round(x * (65535 / Screen.Width));
y := Round(y * (65535 / Screen.Height));
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);

....