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

[WestSide[72]]

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

Верно, она еще ведет логи в файл logi.txt там можно посмотреть сколько раз за ночь вылетал бот ))) с следующим обновлением увеличу колличество окон сделаю работу в неактивном окне и вывод времени в логах. Тестить пока бесполезно )

[AEBus]

WestSide зачем тебе 2 твина?

[WestSide[72]]

Цитата: Сообщение от Nitrogen WestSide зачем тебе 2 твина?

я пароли от них забыл

[AEBus]

А функция восстановления паролей не катит?

[WestSide[72]]

Цитата: Сообщение от Nitrogen А функция восстановления паролей не катит?

Нет, регистрация на мыло от 10 Minute Mail.

[WestSide[72]]

Нужен кто то, кто шарит с дельфи, конкретно с SendMessage

[Dinmaite]

спрашивай

[WestSide[72]]

Цитата: Сообщение от Dinmaite спрашивай

procedure TForm1.Button1Click(Sender: TObject);
var
  h,w: thandle;
  s,d: string;
  p,z: pchar;
  log:TextFile;
begin
s := 'BotPirates';
h := findwindow(nil, pchar(s));
if h=0
then
begin
ShellExecute(0,0,'Bot.exe',0 , 0, 0);
sleep(5000);
postmessage(h, WM_KEYDOWN, VK_TAB, 0);
sleep(30);
postmessage(h, WM_KEYUP, VK_TAB, 0);
postmessage(h, WM_KEYDOWN, VK_TAB, 0);
sleep(30);
postmessage(h, WM_KEYUP, VK_TAB, 0);
showmessage('Bot offline');

end
else
showmessage('Bot online');
end;

Что неверно в коде? 2нажатия таб происходят на самой программе а не на боте.
А если вот так то нормально, и действия происходят на окне бота.

procedure TForm1.Button1Click(Sender: TObject);
var
  h,w: thandle;
  s,d: string;
  p,z: pchar;
  log:TextFile;
begin
s := 'BotPirates';
h := findwindow(nil, pchar(s));
if h=0
then
begin
showmessage('Bot offline');

end
else
postmessage(h, WM_KEYDOWN, VK_TAB, 0);
sleep(30);
postmessage(h, WM_KEYUP, VK_TAB, 0);
postmessage(h, WM_KEYDOWN, VK_TAB, 0);
sleep(30);
postmessage(h, WM_KEYUP, VK_TAB, 0);
showmessage('Bot online');
end;

По SendMessage:

procedure ClickButton(wind:PChar; caption: string);
var wnd, TheChild: HWND;
caption1: string;
begin
wnd := findwindow(nil,wind);
SetLength(caption1, GetWindowtextLength(wnd));
GetWindowText(wnd, @caption1[1], length(caption1) + 1);
TheChild := FindWindowEx(wnd, 0, nil, PChar(caption));
SendMessage(TheChild, BM_CLICK, 0, 0);
end;

как этот код заставить тыкнуть кнопку старт в боте? =\

[Dinmaite]

1 код, проверь получаешь ли ты хендл.
2 код лучше используй sendmessage (postmessage не ожидает ответа от приложения)
3 код ты точно получаешь хендл кнопки? Если да попробуй сам имитировать сообщение BM_CLICK (This message causes the button to receive the WM_LBUTTONDOWN and WM_LBUTTONUP messages, and the button's parent window to receive a BN_CLICKED notification code.).
Если и так не выйдет, можешь попробовать передать кнопке нажатие клавиши "пробел".

[WestSide[72]]

Цитата: Сообщение от Dinmaite 1 код, проверь получаешь ли ты хендл. 2 код лучше используй sendmessage (postmessage не ожидает ответа от приложения) 3 код ты точно получаешь хендл кнопки? Если да попробуй сам имитировать сообщение BM_CLICK (This message causes the button to receive the WM_LBUTTONDOWN and WM_LBUTTONUP messages, and the button's parent window to receive a BN_CLICKED notification code.). Если и так не выйдет, можешь попробовать передать кнопке нажатие клавиши "пробел".

Я попрошу с примерами т.к. мои знания в дельфи минимальны...

[Dinmaite]

Дело в том что у меня нет этого бота, и желания его ставить тоже нет.

попробуй вместо:
SendMessage(TheChild, BM_CLICK, 0, 0);
писать:
SendMessage(TheChild, WM_LBUTTONDOWN, 0, 0);
SendMessage(TheChild, WM_LBUTTONUP, 0, 0);
или:
SendMessage(TheChild, WM_CHAR, VK_SPACE, 0);
или:
SendMessage(TheChild, WM_KeyDown, ord(' '), 0);
SendMessage(TheChild, WM_KeyDownUp, ord(' '), 0);
(что аналогично
SendMessage(TheChild, WM_KeyDown, 32, 0);
SendMessage(TheChild, WM_KeyDownUp, ord(' '), 0); )

[pitbyll2]

Переделай плиз прогу под новый бот для обновленного клиента!

[AEBus]

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

Поэтому тему закрываю