SendMessage

[Zo_Om4eG]

Имеется окно Minecraft, хотел бы посылать в это окно по нажатию кнопки текст из edit. Как это реализовать? Пробовал отправлять через SendMessage, не получается.

На данный момент код:

Цитата: var General: TGeneral; Wnd: HWND; ProcessId: Integer; hProcess: Integer; procedure TGeneral.ConnectClick(Sender: TObject); begin Wnd:=FindWindow(nil, PChar('Minecraft')); GetWindowThreadProcessId(Wnd,@ProcessId); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,Pro cessId); end;

P.S. Гугл не помог.

[Dinmaite]

И где SendMessage?
Ты копаешь в сторону работы с памятью, причем не работая с ней вообще, а только подключаясь к процессу.

[Zo_Om4eG]

Цитата: Сообщение от Dinmaite И где SendMessage?

Был SendMessage, но я убрал его, ибо код не работал.

Цитата: const MY_MESSAGE = WM_USER + 4242; begin SendMessage(Wnd, MY_MESSAGE, 0, DWORD(PChar(Edit1.text))); end;

P.S. Брал с гугла. Вообще, я еще плохо знаком с SendMessage, могу реализовать только нажатие одной клавиши в окне, а вот как отправить целое сообщение - беда.

[Dinmaite]

Сообщения вида WM_USER + x "созданы" для использования программистами, при этом программа-получатель должна их корректно обрабатывать, что в общем случае значит - должна быть написана Вами.

С другой стороны вы можете отправлять текст сообщения циклично, по одной букве.

[Zo_Om4eG]

Хм, если отправлять циклично по одной букве тоже возникает проблема. Само нажатие клавиши("нажал", "отпустил":

Цитата: SendMessage(Wnd, WM_KEYDOWN, VK_F2, 0); SendMessage(Wnd, WM_KEYUP, VK_F2, 0);

Проблема:

Цитата: procedure TGeneral.SendClick(Sender: TObject); var a:array of string; i:integer; begin setlength(a,length(Edit1.text)); for i:=0 to length(Edit1.text)-1 do begin a[i]:=copy(Edit1.text,i+1,1); SendMessage(Wnd, WM_KEYDOWN, ... , 0); SendMessage(Wnd, WM_KEYUP, ... , ); end; end;

Как указать на месте точек как раз эти самые символы? a[i]

P.S. PostMessage(Edit1.Handle, WM_CHAR, Ord("A"), 0); - отрыл в нете. PostMessage(Wnd, WM_CHAR, Ord(a[i]), 0) - верно?

[VeTaL_UA]

Сначала нужно выучить основы языка, а только потом писать программы для других.

[Zo_Om4eG]

Ну, я и так изучаю язык) Что-то могу, что-то нет. Постепенно изучаю.

Добавлено через 3 часа 31 минуту
Вот для блокнота:

Цитата: var Wnd: HWND; ProcessId: Integer; hProcess: Integer; a: array of string i: integer; begin Wnd:=FindWindow(PChar('notepad'), nil); wnd := FindWindowEx(wnd, 0, 'Edit', nil); GetWindowThreadProcessId(Wnd,@ProcessId); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,Pro cessId); for i:=1 to length(Edit1.text) do begin SendMessage(Wnd, WM_CHAR, Word(Edit1.text[i]), 0); end;

Возможно ли переделать как-нибудь для minecraft?
Имеется, но не работает:

Цитата: var Wnd: HWND; ProcessId: Integer; hProcess: Integer; a: array of string i: integer; begin Wnd:=FindWindow(nil, PChar('Minecraft')); GetWindowThreadProcessId(Wnd,@ProcessId); hProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,Pro cessId); for i:=1 to length(Edit1.text) do begin SendMessage(Wnd, WM_CHAR, Word(Edit1.text[i]), 0); end;