Hallo,

ich habe hier einen Code um den IE6 fernzusteuern, der auch sehr gut funktioniert:

zusammenfalten · markieren

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.

Wenn es so einfach ist mußt du "nur" die neuen Windows-Klassennamen herausfinden. z.B. WinSpy sollte dir hier sehr gut Hilfe leisten.

Mal schauen wie du die Vista-Firewall damit bei aktiven User Account Control überlisten willst (Ich hoffe doch das änderungen dadurch geschützt sind).

Zitat von Bernhard Geyer:

Wenn es so einfach ist mußt du "nur" die neuen Windows-Klassennamen herausfinden. z.B. WinSpy sollte dir hier sehr gut Hilfe leisten.

Mal schauen wie du die Vista-Firewall damit bei aktiven User Account Control überlisten willst (Ich hoffe doch das änderungen dadurch geschützt sind).

Die VistaFirewall muss man in der StandardKonfiguration garnicht überlisten.
ALLES nach aussen hin ist erlaubt.

Mir gehts nur um die (neue) erweiterte Konfiguration wo man auch Verbindungen nach aussen hin blocken kann.
Das ist zwar so versteckt und so fuckelig gemacht das es nur 0,1% der User nutzen werden, aber eben auf diese Art auch leicht zu umgehen.

Warum machst du es nicht so?

markieren

Delphi-Quellcode:

var
  IE: OleVariant;
begin
    IE := CreateOleObject('InternetExplorer.Application');
    IE.Visible := True;
    IE.Navigate('www.freemail.de');
end;

Zitat von toms:

Warum machst du es nicht so?

markieren

Delphi-Quellcode:

var
  IE: OleVariant;
begin
    IE := CreateOleObject('InternetExplorer.Application');
    IE.Visible := True;
    IE.Navigate('www.freemail.de');
end;

Weil das nicht sinn der Sache ist. Die Daten muessen im Prozess des Browsers (bspw. Dll-Injection) rausgesendet werden. Damit wird der Browser sozusagen als Portal ins Internet vorbei an der Firewall missbraucht. Ist rechtlich aber fragwuerdig.

greetz
Mike

Zitat von Bernhard Geyer:

Wenn es so einfach ist mußt du "nur" die neuen Windows-Klassennamen herausfinden. z.B. WinSpy sollte dir hier sehr gut Hilfe leisten.

Genau. Die Fenster Struktur hat nämlich im IE 7 geändert.

Zitat von toms:

Zitat von Bernhard Geyer:

Wenn es so einfach ist mußt du "nur" die neuen Windows-Klassennamen herausfinden. z.B. WinSpy sollte dir hier sehr gut Hilfe leisten.

Genau. Die Fenster Struktur hat nämlich im IE 7 geändert.

Wo bekomm ich WinSpy?

Zitat von snapman:

Wo bekomm ich WinSpy?

Hier

Zitat von JasonDX:

Zitat von toms:

Warum machst du es nicht so?

markieren

Delphi-Quellcode:

var
  IE: OleVariant;
begin
    IE := CreateOleObject('InternetExplorer.Application');
    IE.Visible := True;
    IE.Navigate('www.freemail.de');
end;

Weil das nicht sinn der Sache ist. Die Daten muessen im Prozess des Browsers (bspw. Dll-Injection) rausgesendet werden. Damit wird der Browser sozusagen als Portal ins Internet vorbei an der Firewall missbraucht. Ist rechtlich aber fragwuerdig.

greetz
Mike

Das ist nicht ganz korrekt! Die Windows Firewall ist SO mies, die lässt sich sogar mit dem OLE Code umgehen!
Gibt allerdings noch ein problem, wenn ich den Code so übernehme, gehen 2 Fenster offen, wenn ich

IE := CreateOleObject('InternetExplorer.Application');
IE.Navigate('www.freemail.de');

es so mache nur 1 aber es ist halt sichbar...wenn ich visible auf false setze geht ein sichtbares und scheinbar 1 unsichtbares auf..
frage nun: wie komm ich ohne das sichtbare aus?

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