Форум по программированию Delphi Sources

 



Вернуться   Форум по программированию Delphi Sources > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.08.2010, 15:02
zoinx2010 zoinx2010 вне форума
Прохожий
 
Регистрация: 25.08.2010
Сообщения: 2
Репутация: 10
Вопрос Бот для рулетки

Помогите сделать бот для игры в рулетку в одной из игр нужно чтобы прога сама ввыбирала поле которое указать и в поле ставки ставила сколько указать и так каждые 10 минут)
Ответить с цитированием
  #2  
Старый 25.08.2010, 16:14
Аватар для friz
friz friz вне форума
Местный
 
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
По умолчанию

ну что бы прога ставила ставки это можно сделать, баналько кликая по координатам..а вот что бы могла реагировать на выйгрыш или нет ..это уже трудно
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
Ответить с цитированием
  #3  
Старый 25.08.2010, 17:14
zoinx2010 zoinx2010 вне форума
Прохожий
 
Регистрация: 25.08.2010
Сообщения: 2
Репутация: 10
По умолчанию

Цитата:
Сообщение от friz
ну что бы прога ставила ставки это можно сделать, баналько кликая по координатам..а вот что бы могла реагировать на выйгрыш или нет ..это уже трудно
как это сделать?
Ответить с цитированием
  #4  
Старый 26.08.2010, 09:55
Аватар для friz
friz friz вне форума
Местный
 
Регистрация: 04.04.2008
Адрес: Минск
Сообщения: 596
Версия Delphi: 2007 & JAVA EE
Репутация: 10670
По умолчанию

вот код для мышки:
Код:
procedure mouseclick(pt: tpoint; backcursor: boolean = true);

// Переводим экранные координаты к принятым в mouse_event
function screentoabsolute(const pt: tpoint): tpoint;
begin
result.x := round(pt.x * 65535 / screen.width);
result.y := round(pt.y * 65535 / screen.height);
end;

var
oldpt: tpoint;
begin
if backcursor then
oldpt := screentoabsolute(mouse.cursorpos);
pt := screentoabsolute(pt);
{Переместим курсор мыши}
mouse_event(mouseeventf_absolute or mouseeventf_move, pt.x, pt.y, 0, 0);
{Нажамаем левую кнопку мыши}
mouse_event(mouseeventf_absolute or mouseeventf_leftdown, pt.x, pt.y, 0, 0);
{Отпускаем левую кнопки мыши}
mouse_event(mouseeventf_absolute or mouseeventf_leftup, pt.x, pt.y, 0, 0);
if backcursor then
{Перемещаем кнопку мыши обратно}
mouse_event(mouseeventf_absolute or mouseeventf_move, oldpt.x, oldpt.y, 0, 0);
end;
__________________
Последний раз редактировалось Admin, Сегодня в 10:32.
Ответить с цитированием
Ответ



ASPack

Продукт ASPack предназначен для архивации исполняемых файлов под Win32 и защиты от непрофессионального реверс-инжиниринга. ASPack позволяет уменьшать размер файлов и библиотек до 70%, что также позволяет сокращать время загрузки таких приложений в локальных сетях и Интернет.


Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:34.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources", 2004-2018

ВКонтакте   Facebook   Twitter