PDA

Просмотр полной версии : rPE


786512
31.01.2008, 23:59
Прога rPE на подобе wpe pro только функций больше.Кто пользуется отпишитесь.Вот ссылочка на прогу: home.arcor.de/foobaar/rPE.rar

dfdf124
17.05.2008, 16:41
у меня есть куча фильтров, только толи они не пашут, толи не правильно юзаю их, отпишитесь ктонить )

RIKI
17.05.2008, 17:25
*beer* спасибо за ссылочку:)) прога норм)эта прога на подоби автокорма для гомосятины,только записывает больше движений,проще опен коры и мира аи нечего нет,если тебе нужен здравый ботосапиенс читай мануал) А ТАК СТАВЛЮ 2 БАЛЛА ПРОГЕ ( несмотря на то, что у неё стоит системный мониторинг)подборка схожа с арт манией)) 1+ за то что мониторит,2+ за то что качественно повторяет движения,а в остольном всё - вердикт: отправь её в корзину

4epT
18.05.2008, 14:24
dfdf124, ты фильтры-то выкладывай ;)

fantom
18.05.2008, 15:40
Фильтры на даблы
library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
CurHex: string;
i : integer;
begin
CurHex := GetBufferAsHex(buf, len);
if (pos('7200',CurHex) <> 0) and (pos('002E00',CurHex) <> 0) then
begin
@Send_Callback := pSendWs1;
for i := 0 to 300 do // the number how often this packet should be send
begin
sleep(7); // delay you can chhose however you like (time in ms)
SendPacket(s,CurHex);
end;
end;
result := 0;
end;

procedure DLL_Load;
begin
IntLog('D:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.


Однако есть одна проблема, когда он их начинает отсылать... Клиент зависает пока все пакеты не отошлються =(

delaz
05.06.2008, 23:53
Я эту проблемку иправил вродь ( с зависанием) нужно поиграться с значениями sleep и i. Например у меня оптимальным являеться слип 4 а и от 0 до 420. Идет лаг секунды на 2, но за это время пускает 8 даблов. Так же если поставить слип 0, а I от 0 до 100-120 то можна получить двойной(мб у кого тройной) дабл вообще без лагов. Главное не ставить слишком большое значение I иначе тупо дисконектит от сервера.
ЗЫ по своему опыту могу сказать что значения зависят от коннекта к инету, и скорее всего вам прийдется настраивать их самому.

Puff
11.06.2008, 16:28
как я понял эта прога записывает мои движения и потом повторяет?
если да,т оскажи те как можно сделать так что бы она на VanRO чампу ела берю,кастовала Сферки,Фури,Сферки?

delaz
12.06.2008, 13:23
для этого лучше впе использовать, там проще. главное пдобрать правильно delay

Tuzz
12.06.2008, 15:22
проще юзать для этого бота

takep
14.11.2008, 01:04
Я эту проблемку иправил вродь ( с зависанием) нужно поиграться с значениями sleep и i. Например у меня оптимальным являеться слип 4 а и от 0 до 420. Идет лаг секунды на 2, но за это время пускает 8 даблов. Так же если поставить слип 0, а I от 0 до 100-120 то можна получить двойной(мб у кого тройной) дабл вообще без лагов. Главное не ставить слишком большое значение I иначе тупо дисконектит от сервера.
ЗЫ по своему опыту могу сказать что значения зависят от коннекта к инету, и скорее всего вам прийдется настраивать их самому.

глупый. надо сделать функцию спама пакетами, и запускать её как поток

Jozo
14.11.2008, 01:08
Как понять?

takep
14.11.2008, 13:41
просто выненсти в отдельную функцию цикл где идет отправка пакетов, там можно ставить любой слип - ничо виснуть не будет
и вызвать её при помощи CreateThread() или StartASThread(лучше эта)

Jozo
14.11.2008, 18:32
Из всего что ты сказал я понял только где идет отправка пакетов, там можно ставить любой слип - ничо виснуть не будет
А поподробнее можно на примере DS
library rPE_ex;

uses
windows,
Winsock2,
winsock,
rpefuncs;

function Send_WS1(s: TSocket; var Buf : PChar; len, flags: Integer; pSendWs1, pRecvWs1, pSendWs2, pRecvWs2: Pointer; var IsWorking : Boolean):Integer; stdcall;
var
CurHex: string;
i : integer;
begin
CurHex := GetBufferAsHex(buf, len);
if (pos('7200',CurHex) <> 0) and (pos('002E00',CurHex) <> 0) then
begin
@Send_Callback := pSendWs1;
for i := 0 to 420 do // the number how often this packet should be send
begin
sleep(4); // delay you can chhose however you like (time in ms)
SendPacket(s,CurHex);
end;
end;
result := 0;
end;

procedure DLL_Load;
begin
IntLog('C:\rpe_log.log');
end;

procedure DLL_UnLoad;
begin
Running := false;
EndLog;
end;

procedure DLLMain(dwR: integer);
begin
case dwR of
DLL_PROCESS_ATTACH:
DLL_Load;
DLL_PROCESS_DETACH:
DLL_UnLoad;
end;
end;

exports
Send_WS1;
begin
Running := true;
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.