Ввод текста в адрес

[Sibedir]

1. Скопируй себе
FindWindowByText
write_value
Write_String

2. И напиши

...
var
  s: String;
  Size: Cardinal;
  Adr: Pointer;
  wt: String;
begin
  wt := 'awplanet';
  s := 'Нужная строка';
  Adr := $XXXXXXXX;
  Size := Length (s);
  if Write_String (wt, Adr, Size, s) <> 0 then
    ShowMessage ('Ошибка');
end;

[xRamzeSx]

var
  s: String;
  Size: Cardinal;
  Adr: Pointer;
  wt: String;
begin
  wt:= 'www.awplanet.com';
  s:= 'Нужная строка';
  Adr:= $7D9658;
  Size:= Length (s);
  if Write_String (wt, Adr, Size, s) <> 0 then
    ShowMessage ('Ошибка');
end;

Появляется ошибка:
Incompatible types: 'Pointer' and 'Integer'

P.S: Для чего это: s:= 'Нужная строка';?

[BOBAH13]

Adr:= Pointer($7D9658); или Integer(Adr) := $7D9658;

Детский сад...

[Sibedir]

P.S: Для чего это: s:= 'Нужная строка';?

А кто его знает? Это тайна не доступная нашему примитивному разуму.

Почти серьезно:
Помнится мне ты хотел какую-то строку в другом процессе изменить. Наверное мне это показалось.

Младшая группа...

[xRamzeSx]

var
s: String;
Size: Cardinal;
Adr: Pointer;
wt: String;
begin
wt:= 'www.awplanet.com';
s:= Edit10.Text;
Adr:= Pointer($7D9658);
Size:= Length (s);
if Write_String5 (wt, Adr, Size, s) <> 0 then
  ShowMessage ('Ошибка');
end;

Отправляется только 1 символ. Русские буквы кодируются на английские.

Смотрел, смотрел...
"Детсадовская" тема переезжает к студентам.
В разделе "Общие вопросы Delphi" держать ее просто пошло...

То ТС - вы хоть одну книгу по программированию прочитали ?
Или предпочитаете "методом тыка" ?

[Sibedir]

Меня уже забанили в этой игре. Больше 2-х недель прошло.
Уточни:
- что за строка
- что в ней хранится (имя героя, назнание предмета)
- конкретное значение строки ('xRamzeSx', 'Пушка', 'Гамбургер')
- что возвращает Read_String
- что пытаешся туда записать
- что в итоге получается в строке

[xRamzeSx]

- Строка чата
- Что пишем, то и получаем

function read_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    if ch<>en then s:=s+chr(ch);
  until ch=en;
  result:=s;
  hend:=c-1;
end;

- любой текст, включая русские, английские буквы, числа
- получается 1 символ. Русские буквы транслируются на английские

P.S: брал ваш read_string, итог тот же

[Sibedir]

Ну, xRamzeSx, это уже не серьезно. Я попросил вас написать конкретные значения строк, вы мне опять свои абстакции рисуете.
Типа того:
-------------------------------------------------------------------------------------------------
1-2. Строка чата
3-4. Если там написано "Привет!", функция

function read_str(ca:cardinal;en:integer;var hend:cardinal):string;
var
s:string;
c:cardinal;
ch:int64;
begin
  c:=ca;
  s:='';
  repeat
    ch:=0;
    read_value(c,1,ch);
    ch:=ch;
    c:=c+1;
    if ch<>en then s:=s+chr(ch);
  until ch=en;
  result:=s;
  hend:=c-1;
end;

...

Adr:= Pointer($7D9658);
s := read_str ($Adr;0;hend):string;

записывает в s значение "@⌂U!"

5. При записи в этот адрес

wt:= 'www.awplanet.com';
s:= 'Прювет?';
Adr:= Pointer($7D9658);
Size:= Length (s);
if Write_String5 (wt, Adr, Size, s) <> 0 then
  ShowMessage ('Ошибка');
end;

6. получаем в строке чата: "#↑♀?"
-------------------------------------------------------------------------------------------------
Повтори попытку

З.Ы.: Строка чата ни чего на сервер не отправит - 99,999%. Поэтому запись туда безсмыслена. Смысл имеет только чтение от туда.
И не забываем, что записываемая строка должна быть той же длинны (по крайней мере не больше), что и длинна строки хранящейся в подопытной программе. Ибо ваша программа не умеет управлять диспетчером памяти других программ.
...
Не-е-е, не-е-е. Даже не думай, для этого вот такой бубен нужен
бубен.jpg

[xRamzeSx]

Закройте тему.

[Sibedir]

Зря обижаешься, xRamzeSx. От добра добра не ищут.