[Программа] ForBotPirates by WestSide

[Bac9l007]

Здрасте =)
Представляю вам свою программу, её задача проверить запущено ли окно "Bot" если запущено она афкается на 5секунд потом снова проверяет, программа зацикленна на проверке каждые 5секунд, если бота нет то она запускает его, тыкает Start добавляет 3окна ботов постепенно и тыкает Старт ботов.
Программа будет дорабатываться, в архиве лежит единственный работающий из известных мне, бот.
Чуть незабыл, программа ведет логи, т.к. мои знания в дельфи слабы я не смог привязать вывод времени записи логов
Но уже можно узнать сколько раз за ночь вылетал бот.
Во время работы бота требуется закрыть все программы которые могут выскачить поверх всех окон.
и свернуть пв. наверху оставить самого бота и программу. )

Все права на ForBotPirates принадлежат WestSide.

Все права на BotPirates принадлежат itrax.

Если что
Bac9l007:=WestSide; =)

[witcherD]

время так

   t: TSYSTEMTIME;
...
  GetLocalTime(t);
...
//  t.wHour
//  t.wMinute

P. S. специалист в делфи - Dinmaite =)

[AEBus]

Выложи пожалуйста отчет [Ссылки могут видеть только зарегистрированные пользователи. ] для своей программы

[Nickolas]

Вирустотал
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]

[alexsoid]

а че он тыкает в окошко снизу (скилов) и нажимает стрелочки

Добавлено через 39 минут
а никак не сделать чтобы он добовлял только одно окно

[Bac9l007]

Цитата: Сообщение от alexsoid а че он тыкает в окошко снизу (скилов) и нажимает стрелочки Добавлено через 39 минут а никак не сделать чтобы он добовлял только одно окно

Мои знания в дельфе не позволили мне сделать нажатие клавиш таб верх вниз и прочее для неактивного окна поэтому для корректной работы надо свернуть все кроме BotPirates и моей утилиты, во время работы программы действия на компе низя делать, при вылете BotPirates утилита снова запустит бота и добавит 3окна, пока это максимальное ограничение окон. если хотите меньше то введите в ненужные поля цифру 1 или другой знак, программа проведет его добавление но окно будет ненайдено и пропущено.

[pahannn]

очень жаль,значит бот получается неполноценный?

[Bac9l007]

Цитата: Сообщение от pahannn очень жаль,значит бот получается неполноценный?

бот полноценный, все функции доступны только во время его работы нельзя ничего делать на компе, я его писал чтобы чисто на ночь ставить.

[DoctorWho]

Цитата: Сообщение от Bac9l007 Мои знания в дельфе не позволили мне сделать нажатие клавиш таб верх вниз и прочее для неактивного окна поэтому для корректной работы надо свернуть все кроме BotPirates и моей утилиты, во время работы программы действия на компе низя делать, при вылете BotPirates утилита снова запустит бота и добавит 3окна, пока это максимальное ограничение окон. если хотите меньше то введите в ненужные поля цифру 1 или другой знак, программа проведет его добавление но окно будет ненайдено и пропущено.

client:=findwindow(nil,pchar(Edit2.text));
sendmessage(client,WM_KEYDOWN,VK_UP,0);

[НЕТилиДа]

Это программа служит для того чтобы не вылетал бот ? Тоесть бот вылетел и автоматом снова зашел
И какая задержка всего этого действия ?
( я просто ставлю бота на хил вот и интересно бао не умрет пока релог идет )

[Shown45]

Цитата: Сообщение от НЕТилиДа Это программа служит для того чтобы не вылетал бот ? Тоесть бот вылетел и автоматом снова зашел И какая задержка всего этого действия ? ( я просто ставлю бота на хил вот и интересно бао не умрет пока релог идет )

Задержка ни какая как бот и вылетит, так снова поставит.

[noxyuHaHuk]

Цитата: Сообщение от НЕТилиДа Это программа служит для того чтобы не вылетал бот ? Тоесть бот вылетел и автоматом снова зашел И какая задержка всего этого действия ? ( я просто ставлю бота на хил вот и интересно бао не умрет пока релог идет )

Запуск бота происходит в течении 5секунд после вылета, а старт бота где то еще через 20 - 25сек

Добавлено через 2 минуты

Цитата: Сообщение от DoctorWho client:=findwindow(nil,pchar(Edit2.text)); sendmessage(client,WM_KEYDOWN,VK_UP,0);

попробовал это, нифига не произошло компилятор не ругался но в BotPirates действий никаких не было. (


noxyuHaHuk:=WestSide;

[НЕТилиДа]

Цитата: Сообщение от noxyuHaHuk Запуск бота происходит в течении 5секунд после вылета, а старт бота где то еще через 20 - 25сек Добавлено через 2 минуты попробовал это, нифига не произошло компилятор не ругался но в BotPirates действий никаких не было. ( noxyuHaHuk:=WestSide;

от моего бао ничего не останется

[noxyuHaHuk]

Цитата: Сообщение от НЕТилиДа от моего бао ничего не останется

зачем тебе бао? для друлей скорпионы и големы норм )))

Добавлено через 7 минут
Опять тему с гео ботом удалили =)

[Хакерок:)]

Получаетсо эта программа решает практически единственную проблему БотПиратеса: Вылет. Молодец автор, лови спасибку за старание. Как ток будет возможность потестить - сразу.