избежание бана

[bazuka09]

finkrer, бота ясное дело))) а вот что бы хотя бы обьнил где что искать и куда копать)))

[gurin]

А какие проблемы с ответом обратно? Пишите ответ в общий чат - обычный посыл кодов клавиш.

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;

[Dinmaite[Work]]

Application.ProcessMessages;
Это в коде ни к чему.

[gurin]

Да, действительно. Убрал.