Inhalt eines Editfelds einer Fremdanwendung auslesen? Wie?

[niemandsland]

Morgen,

ich hab da ein Problem:
ich möchte gern den Inhalt aus einem Edit (Textfeld) einer Fremdanwendung holen und es unter bestimmten Umständen auch schreiben. Um mal warm zu werden hab ich mich an einem Beispiel, den Windows Taschenrechner ("calc.exe") versucht. Das klappt ganz gut. Leider komme ich damit bei meinem Programm nicht weiter. Jetzt wollte ich mich an mein eigentliches Programm machen. Doch da fehlt mir die zündende Idee.

Vielleicht kann mir ja hier jemand helfen.

Zuerst mal ein Source

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    myMemo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

const
  WinName = 'Pauls Commander';
  WinClass = NIL;

implementation

{$R *.dfm}

function EnumProc(StHandle: HWND; lines: TStrings): boolean; stdcall;
var
  buffer, desc: array [0..100] of char; // max. 101 Zeichen
begin
  GetClassname(StHandle, buffer, 100); // 100
  GetWindowText(StHandle, desc, 100); // 100
  lines.add(format('ID: %d, Class: %s, Text: %s',[GetDlgCtrlID(StHandle), buffer, desc]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  hwnd:dword;
begin
  myMemo1.clear;
  hwnd := FindWindow(WinClass, WinName);
  if (hwnd = 0) then
  begin
    messagebox(0,'Programm nicht im Speicher!','Warning!',0);
    exit;
  end;
  EnumChildWindows(hwnd,@EnumProc,Integer(myMemo1.Lines));
// Handle, Functioncall, <return result>
end;

Das Beispiel funktionierte beim Windowstaschenrechner (CALC) noch ganz gut. Bei meinem zweiten Programm komme ich aber irgendwie nicht wirklich an mein Textfeld {EDIT}. Und schon gar nicht an den Inhalt dieses Feldes. Kann mir da mal jemand helfen? Ich hab zwar die einzelnen Childwindows soweit aufgelistet... Auch die drei Textfelder sind mit ID enthalten; Allerdings fehlt der Inhalt des Textfeldes.

Wäre für jede Hilfe dankbar!

Achja, nur mal so eine IDee...

Kommt man am Ende einfacher ans Ziel, wenn man sich in das Programm per Hook einklinkt? Wie mach ich das am gescheitesten? Wenn ich jetzt keinen Denkfehler habe, dann läuft die Aktion doch fast auf die gleiche Geschichte hinaus, right?

>Besten Dank im voraus für Eure Mühe!

-NimalA-

[Luckie]

Also wenn du die ID schon hast, dann versuch mal GetDlgItemText.

[Reddog]

Oder mit:

Delphi-Quellcode:

 
...

var
  Text: string;
  count: integer;

begin
  count:= 256;
  SetLength(Text, 256);
  count:= SendMessage(Handle, WM_GETTEXT, count, integer(PChar(Text)));
  SetLength(Text, count);

...

Sollte so gehen. HabS' jetzt nicht getestet, aber vor kurzer Zeit hab ich auch so ein Prog geschrieben.

Reddog.

[niemandsland]

@ Luckie

Danke für Deine schnelle Antwort heute morgen. Ich hab mir auch gleich die Doku -hier- durchgelesen. Und daraufhin die Zeile die ich ins Memo schreibe ein wenig umgestellt! Eigentlich wollte ich den Inhalt sämtlicher Textfelder mal eben mitauslesen... aber irgendwie war das ein Satz mit X.

Ich bin entweder noch nicht wach (bin ich nie!), oder zu blöd -- da blond! :wall:

Ich hab da jetzt ein Problem:

Delphi-Quellcode:

lines.add(format('ID: %d, class: %s, caption: %s, text: %s',[GetDlgCtrlID(AHandle), buf, Caption,(GetDlgItemText(AHandle,(GetDlgCtrlID(AHandle)),pop,256))]));

Achja, pop ist 'nen 256er "array of char"!

Kann mir da vielleicht mal eben jemand auf die Sprünge helfen?

@ Reddog

Danke für die Antwort. Hast Du vielleicht auch eben mal die Syntax für WM_SENDTEXT zur Hand?

Ich werde mich dann damit noch ein wenig vergnügen!

@ ALL

Mal eben eine Frage... mir fällt dazu gerade nichts gescheites ein...

Ich habe in dem Programm (auf das ich zugreifen möchte) 7 oder 8 Textfelder {EDIT} gefunden. Die Inhalte sind recht ähnlich. Wie kann ich da sinnvoll das richtige rausfinden?! Hab schon ein wenig versucht. War aber immer mal das falsche dabei.

Es geht in allen Feldern um Koordinateninfos und Bezugspunkte. Aus diesem Grund will mir auch noch nicht so wirklich was gescheites einfallen.

Hat da jemand was dazu?

-NimalA-

[niemandsland]

@ ALLE DIE GEANTWORTET HABEN!

Danke. Habs in der vergangenen Nacht soweit gelöst. Hatte wohl wirklich 'nen Aussetzer!

Mein einzigsten -Problem- ist jetzt noch, wie simuliere ich das Drücken der Return-Taste bzw. des Mausbutton in der fremden Anwendung? Insbesondere innerhalb eines Edit-Felds?

Besten Dank im voraus für Eure Mühe!

-NimalA-

[SirThornberry]

wenn das Fenster wo der klick erfolgen soll sichtbar ist geht es mit.

Delphi-Quellcode:

mouse_event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUp, x, y, 0, 0);

Anstelle von x und y die Coordinate eintragen wo der Button relativ zum screen liegt. Ansonsten musst du mit Sendmessage ne Nachricht an den Button schicken

[Luckie]

Das mit den Koordinaten ist nicht so gut. Hardcoden geht nicht und vorher immer ermitteln ist auch blöd. Wenn du das Handle des Buttons hast, sende ein BM_CLICK oder ein BN_CLICK (das verwechsele ich immer :?) an den Button.

[niemandsland]

@ Luckie

Nochmals Danke! Bleibt nur noch ein Punkt übrig:

Mein einzigsten -Problem- ist jetzt noch, wie simuliere ich das drücken der Return-Taste innerhalb des Edit-Felds (ebenfalls in der fremden Anwendung?)

-NimalA-

[Reddog]

Ich würde direkt an das Edit-Feld die Messages WM_KEYDOWN + WM_KEYUP senden mit VK_RETURN als wParam. Bei WM_KEYUP muss man noch aufpassen, welche Flags bei lParam gesetzt werden müssen. Soweit ich mich erinnere habe ich immer lParam = 1 or (3 shl 29) gesetzt. Ob das jetzt auch richtig ist, kann ich nicht mit Sicherheit sagen.

Ich gehe auch davon aus, dass du das Handle des EDITs hast.

Reddog.

[niemandsland]

Zitat:

Zitat von Reddog

Ich würde direkt an das Edit-Feld die Messages WM_KEYDOWN + WM_KEYUP senden mit VK_RETURN als wParam. (...)

Ich gehe auch davon aus, dass du das Handle des EDITs hast.

Erstmal Danke für die Antwort!

Ja, klar Handle hab ich. Aber ich kann mir gerade auf Deinen Vorschlag oben keinen Reim machen...
Du meinst etwa:

Delphi-Quellcode:

SendMessageA(<hanlde>, WM_KEYDOWN, VK_RETURN, 0);
SendMessageA(<hanlde>, WM_KEYUP, VK_RETURN, (1or(3shl29)));

Falls ich da jetzt um 1 Uhr in der Nacht nicht ganz folgen kann, so bitte ich mal um ein CodeSchnipsel der die entsprechende Passage enthält! Das wäre jedenfalls super!

Danke!

-NimalA-

[Reddog]

Genau das habe ich gemeint.
Hab's gerade ausprobiert, funktioniert bei mir einwandfrei.

Reddog.

[ghost]

Hi,

der thread iss zwar schon etwas älter ... aber was genau bringt der lparam bei keyup?
wenn ich das so übernehme meckert bei mir der compiler das er ne ")" will und anstelle nen identifier shl29 gefunden hat.

ich versuche hier grade ein vk_return an ein java fenster zu schicken aber das klappt irgendwie nicht wirklich.
settext funktioniert ohne probleme .. blos enter simulieren würde ich schon noch ganz gerne um den text im editfield abzusenden

gibts noch ne andere möglichkeit #13 auf ein editfield zu "simulieren"?

habe das jetzt auch grade noch mal mit einem calc window ausprobiert ... da funzed auch nur das settext command ... VK_BACK zum löschen einer zahl erkennt er auch nicht ... mach ich was falsch?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  text: string;
  len: integer;
begin
  text := '1234';
  SendMessage(AbyEdit,WM_SETTEXT,0,Integer(@text[1]));
  SendMessage(AbyEdit,WM_KEYDOWN,VK_BACK,0);
  SendMessage(AbyEdit,WM_KEYUP,VK_BACK,0);
end;

[jim_raynor]

Zitat:

Zitat von ghost

will und anstelle nen identifier shl29 gefunden hat.

Vielleicht sollte man ganz einfach zwischen shl und 29 ein Leerzeichen lassen ;). shl ist ein Operator zu Bitverschiebung.

[ghost]

oooookay... also mit shl hab ich mich schon mal blamiert ;)

aber das geht trotzdem nicht.
sonst noch jemand ne idee woran das liegen könnte?

der handler zum edit mussja passen, sonst würde ja WM_SETTEXT nicht funktionieren...

[ghost]

Ist das vielleicht ein windows xp problem mit dem keyup / keydown gefrickel? im MSDN steht irgendwas davon, das man die VK_ messages vorher mit MessageTranslate behandeln muss?!?!