Anderes Programm komplett steuern

[Uncle Cracker]

Also ich habe jetzt mal mit XSpy geguckt aber das hat mir nicht wirklich viel geholfen und eine genau ID konnte ich mit EDA oder so auch nicht finden, dass mir weiterhilft

Ich konnte jedoch die Position des Edits auf dem Formular herausfinden, hilft mir das irgendwie weiter?

Kennt vielleicht noch jemand eine andere Methode das Edit zufinden, indem man alle Edits auf dem Formular durchgeht oder so?


Danke UC

[Luckie]

Was ist das für ein Proggramm? Kannst du es hier hochladen, damit man sich das direkt mal ankucken kann? Allerdings sollte das Prorgamm ein Setup benötigen, bin ich aus dem Rennen

[Cuchulainn]

Ich arbeite im Moment an einem Programm, das auch ein anderes fernsteuert. Ich kann dir im Lauf des Tages einige Quelltextbeispiele schicken, wenn ich mehr Zeit habe. Beschreib mal bitte, was du genau machen möchtest.

[Uncle Cracker]

Also es ist das Programm PESpin, das ist ein Packer wie UPX, nur etwas besser.
Hier zu bekommen: http://wasm.ru/tools/8/pespin.zip (läuft ganz ohne Setup )

Ich möchte das Programm steuern, dass ich alles Vollautomatisch machen kann und nicht immer alles manuell konfigurieren muss, dass dauert bei vielen Dateien ziemlich lange.


@Cuchulainn Wäre nett, wenn du mir ein paar Beispiele schicken würdest bzw. hier posten könntest


Danke UC

[Motzi]

Also ich hab mir das Prog mal kurz angeguckt und soweit ich das gesehn hab haben alle Controls eindeutige IDs oder eine eindeutige Kombination aus Classname und Caption...

Lad dir mal die neue Version meines X-Spy runter (gibts seit gestern), mit der kannst du dir dann den FindWindow-Code auch vollautomatisch erstellen lassen - entweder über Classname und/oder Caption oder die ControlID...

[Uncle Cracker]

Also ich habe das jetzt mal probiert mit X-Spy, ich habe auch die IDs usw. bekommen, doch irgendwie bekomme ich das mit dem setzten des Text nicht hin, obwohl es doch so hier gehen müsste:

Delphi-Quellcode:

var
  wnd: HWND;
  s: string;
begin
  wnd :=  FindWindow('#32770', 'PESpin v0.41');
  wnd :=  FindWindowEx(wnd, 0, 'Edit', 'have a little snack?');  //wnd :=  GetDlgItem(wnd, 11);
  if wnd <> 0 then
  begin
    s := 'Test';
    SendMessage(wnd, WM_SETTEXT, 0, Integer(@s[1]));
  end;
end;

Was mache ich denn falsch? Vielleicht kann mir nochmal jemand helfen.


Danke UC