Отправка ТЕКСТА в неактивное окно.

[onefinal]

Получаю хендл окна, потом ему отправляю ентер ( VK_Return) проходит нормально, но вот как отправить предложение туда же ?
пробую так

PHP код:

s:=edit1.text;

 sendMessage(Wnd, WM_IME_KEYDOWN,VK_Return,0 );
 sleep(100);
    //SetWindowText(Wnd, PChar(s));
  postmessage(wnd, WM_Char, 0, lParam(s));
  showmessage(PChar(s)); 


помогите пож )

[volvo877]

Окно чужое? Тогда читай MSDN внимательнее:

However, SetWindowText cannot change the text of a control in another application.

и

To set the text of a control in another process, send the WM_SETTEXT message directly instead of calling SetWindowText.

[onefinal]

 postmessage(Wnd, WM_SETTEXT, 0, lParam(s));

не срабатывает (((

[volvo877]

Почему PostMessage, а не SendMessage? Чтобы проблем найти? Вот ты их нашел уже. Почему строка не приводится к PChar?

sendmessage(Wnd, WM_SETTEXT, 0, Integer(PChar(s)));

прекрасно работает.

[onefinal]

Мне оно просто меняет заголовок, а нужно что бы отправило нажатие клавиш(

[onefinal]

Вот смотри, мб я накосячил

unit Spamer;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,tlhelp32, StdCtrls;
 
type
  TForm1 = class(TForm)
    btRefresh: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
  
    procedure Label1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btRefreshClick(Sender: TObject);


  private
    procedure GetProcessList();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   Wnd: HWND;
    EDITCtrl : HWND;
   buff: array [0..127] of Char;
implementation

{$R *.dfm}

procedure TForm1.GetProcessList;
var
  Wnd: HWND;
  buff: array [0..127] of Char;
begin
  form1.combobox1.Items.Clear; // Î÷èùàåì ñïèñîê ïðîöåññîâ â ôîðìå
  Wnd := GetWindow(Handle, GW_HWNDFIRST);
  while Wnd <> 0 do
  begin
    // Íåêîòîðûå îêíà ïîêàçûâàòü íåíóæíî
    if (Wnd <> Application.Handle) and // Ñîáñòâåííîå îêíî
      (GetWindowText(Wnd, buff, SizeOf(buff)) <> 0) // Îêíà áåç çàãîëîâêîâ
      then
    begin
      GetWindowText(Wnd, buff, SizeOf(buff));
     form1.combobox1.Items.Add(StrPas(buff)); // Äîáàâëåíèå çàïèñè â ñïèñîê
    end;
    Wnd := GetWindow(Wnd, GW_HWNDNEXT);
  end;
end;



 
procedure TForm1.FormCreate(Sender: TObject);
begin
  GetProcessList;

end;



procedure TForm1.Label1Click(Sender: TObject);
begin

      if combobox1.ItemIndex>=0
  then label1.Caption:=combobox1.Items[combobox1.ItemIndex]
  else label1.Caption:='Íè÷åãî íå âûáðàíî';
  Wnd :=  FindWindow(nil, PChar(label1.Caption));
   EDITCtrl := FindWindowEx(Wnd, 0, 'EDIT', nil);
     //showmessage( FloatToStr(Wnd));
end;


procedure TForm1.btRefreshClick(Sender: TObject);
var
s:string;

begin
s:=edit1.text;
//Text:= 'Hello World';
 sendMessage(Wnd, WM_Char,VK_Return,0 );
 sleep(100);


    //SetWindowText(Wnd, PChar(s));
   sendMessage(Wnd, WM_Char, 0, Integer(PChar(s)));
   //SetWindowText(Wnd,PChar('Hello'));
  //postmessage(wnd, WM_Char,);
  showmessage(PChar(s));
end;

end.

[Putin-mode]

Сообщение от onefinal

Вот смотри, мб я накосячил

unit Spamer;

Для спама что ли программа?

[onefinal]

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

[onefinal]

up Помогите домучить

[onefinal]

блин Люди форум создан для помощи а не для игнора!