|
избежание бана - Общение разработчиков - Программирование для Perfect World, общение и обсуждене разработок |
27.07.2011, 19:32
|
#16
|
|
|
|
Разведчик
|
Регистрация: 02.06.2011
Сообщений: 15
Популярность: -37
Сказал(а) спасибо: 36
Поблагодарили 4 раз(а) в 4 сообщениях
|
Re: избежание бана
finkrer, бота ясное дело))) а вот что бы хотя бы обьнил где что искать и куда копать)))
________________
|
|
|
09.09.2011, 12:44
|
#17
|
|
|
|
Сержант
|
Регистрация: 18.12.2009
Сообщений: 152
Популярность: 1075
Сказал(а) спасибо: 45
Поблагодарили 204 раз(а) в 67 сообщениях
|
Re: избежание бана
А какие проблемы с ответом обратно? Пишите ответ в общий чат - обычный посыл кодов клавиш.
Код:
function Unfreeze: Boolean;
var
BytesCountOfWrite: DWORD;
unfreeze_flag: Byte;
unfreeze_addr: dword;
ini: TMemIniFile;
begin
unfreeze_flag := 1;
ini := TMemIniFile.Create(ExtractFilePath(Application.ExeName)+'adresses.txt');
unfreeze_addr := StrToIntDef('$'+ini.ReadString('common', 'unfreeze_addr', '0'), 0);
ini.Free;
Result := unfreeze_addr > 0;
if Result then
WriteProcessMemory(hProcess, ptr(unfreeze_addr), @unfreeze_flag, 1, BytesCountOfWrite); // unfreeze
end;
Код:
procedure SendOneChar( window: HWND; oneChar: Char);
{ Send One Character to target Window }
var
lparam: LongInt;
key : WORD;
begin
lparam := $00000001;
key := Word( oneChar );
PostMessage( window, WM_CHAR, key, lparam );
sleep(100);
end;
Код:
procedure SendText(Text: String);
begin
if not Unfreeze then
SetForegroundWindow(hWindow);
PostMessage(hWindow, WM_KEYDOWN, VK_RETURN, longint($20000000));
PostMessage(hWindow, WM_KEYUP, VK_RETURN, longint($C0000000));
Sleep(100);
for I := 1 to length(Text) do
SendOneChar(hWindow, Text[i]);
PostMessage(hWindow, WM_KEYDOWN, VK_RETURN, longint($20000000));
PostMessage(hWindow, WM_KEYUP, VK_RETURN, longint($C0000000));
end;
Последний раз редактировалось gurin; 09.09.2011 в 13:50.
|
|
|
09.09.2011, 13:30
|
#18
|
|
|
|
Разведчик
|
Регистрация: 05.03.2011
Сообщений: 40
Популярность: 841
Сказал(а) спасибо: 1
Поблагодарили 9 раз(а) в 8 сообщениях
|
Re: избежание бана
Application.ProcessMessages;
Это в коде ни к чему.
________________
Dinmaite пишет с меня, когда он на работе.
|
|
|
09.09.2011, 13:50
|
#19
|
|
|
|
Сержант
|
Регистрация: 18.12.2009
Сообщений: 152
Популярность: 1075
Сказал(а) спасибо: 45
Поблагодарили 204 раз(а) в 67 сообщениях
|
Re: избежание бана
Да, действительно. Убрал.
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 23:48.
|
|