Hallo,
ich habe hier einen Code um den IE6 fernzusteuern, der auch sehr gut funktioniert:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var IEHandle, AdressCB: HWND;
buffer: array[0..MAX_PATH] of char;
begin
WinExec('C:\Programme\Internet Explorer\iexplore.exe',SW_SHOW);
sleep(400);
IEHandle := FindWindow('IEFrame', nil);
AdressCB := FindWindowEx(IEHandle, 0, 'WorkerW', nil);
AdressCB := FindWindowEx(AdressCB, 0, 'ReBarWindow32', nil);
AdressCB := FindWindowEx(AdressCB, 0, 'ComboBoxEx32', nil);
AdressCB :=FindWindowEx(AdressCB, 0, 'ComboBox', 0);
AdressCB :=FindWindowEx(AdressCB, 0, 'Edit', 0);
SendMessage(AdressCB, WM_SETTEXT, 0, Integer(PChar('www.freemail.de')));
SendMessage(AdressCB, WM_SETFOCUS, 0, 0);
SendMessage(AdressCB, WM_KEYDOWN, VK_RETURN,0 );
SendMessage(AdressCB, WM_KEYUP, VK_RETURN, 0);
end;
Allerdings geht das Ganze beim IE7 nichtmehr (bis auf das Starten der Anwendung)!
Kann mir hier jemand weiterhelfen?
Wozu brauch ich das ganze? Soll für eine Demo sein, die zeigen soll wie einfach das Windows Nachrichtensystem missbraucht werden kann.
(z.b. mit SW_HIDE starten und dann pers. Daten senden durch die Firewall)
Da unter Vista der IE7 Standard ist, sollte es hier eben auch laufen.