IE fernsteuern - Mein Code geht unter IE7 nichtmehr

[snapman]

Zitat von toms:

Zitat von snapman:

sieht für mich ziemlich gleich aus (zu den Handles oben), oder seht ihr nen unterschied?

Schau nochmals genau hin. Die Struktur ist nicht gleich.

IEFrame
-WorkerW
--ReBarWindow32
---Address Band Root
----ComboBoxEx32
-----ComboBox
------Edit

Selektioniere im WinSpy mal Edit "www.freemail.de" und klicke in der Toolbar auf "Code".
Dann wird der Findwindow Code automatisch erzeugt.

Dank dir!
so geht es nun auch unter Vista (der Startpfad ist natürlich ggf. zu ändern):

Delphi-Quellcode:

WinExec('C:\Program Files (x86)\Internet Explorer\iexplore.exe',SW_SHOW);
sleep(1000);

  wnd:= FindWindow('IEFrame', nil);
  wnd := FindWindowEx(wnd, 0, 'WorkerW', nil);
  wnd := FindWindowEx(wnd, 0, 'ReBarWindow32', nil);
  wnd := FindWindowEx(wnd, 0, 'Address Band Root', nil);
  wnd := FindWindowEx(wnd, 0, 'ComboBoxEx32', nil);
  wnd := FindWindowEx(wnd, 0, 'ComboBox', nil);
  wnd := FindWindowEx(wnd, 0, 'Edit', nil);

SendMessage(wnd, WM_SETTEXT, 0, Integer(PChar('www.freemail.de')));

SendMessage(wnd, WM_SETFOCUS, 0, 0);
SendMessage(wnd, WM_KEYDOWN, VK_RETURN,0 );
SendMessage(wnd, WM_KEYUP, VK_RETURN, 0);