TWebBrowser Quelltext wird nur teilweise ausgelesen?

[Basic-Master]

Hi,
ich hab folgendes Problem: Ich will den Quelltext von dem Internet-Explorer auslesen, der z.B. gerade als LocationName Drugworld [ist ein Internet-Game] hat. Dafür benutze ich den Code hier:

Delphi-Quellcode:

function GetHTMLCode(WB: IWebbrowser2; var ACode: TStringList): Boolean;
var
 ps: IPersistStreamInit;
 s: string;
 ss: TStringStream;
 sa: IStream;
begin
 ps := WB.document as IPersistStreamInit;
 s := '';
 ss := TStringStream.Create(s);
 try
   sa:= TStreamAdapter.Create(ss, soReference) as IStream;
   Result := Succeeded(ps.Save(sa, True));
   if Result then ACode.Add(ss.Datastring);
 finally
   ss.Free;
 end;
end;

function GetSource: TStringList;
var
 ShellWindow: IShellWindows;
 WB: IWebbrowser2;
 spDisp: IDispatch;
 IDoc1: IHTMLDocument2;
 k: Integer;
begin
 ShellWindow := CoShellWindows.Create;
 Result := TStringList.Create;
 for k := 0 to ShellWindow.Count do
 begin
   spDisp := ShellWindow.Item(k);
   if spDisp = nil then Continue;
   spDisp.QueryInterface(iWebBrowser2, WB);
   if WB <> nil then
   begin
     WB.Document.QueryInterface(IHTMLDocument2, iDoc1);
     if iDoc1 <> nil then
     begin
       WB := ShellWindow.Item(k) as IWebbrowser2;
       begin
         if WB.LocationName = 'D R U G W O R L D 2004' then
           GetHTMLCode(WB, Result);
       end;
     end;
   end;
 end;
end;

Der Code funktioniert mit jeder Page, nur bei Drugworld gibts Probleme (Es wird zwar Quellcode angezeigt, aber nichts von der Page :shock: ) :wall: Hmm deshalb weiss ich nicht, ob der Fehler in dem Code steckt oder ob es was mit der Page zu tun hat. Bin für jede Antwort dankbar!
:dp:

[Mystic]

Was wird denn angezeigt?

[himitsu]

Ich kann mir zwar vorstellen, was er sieht (ein FrameSet), und was falsch ist, aber ich kann mir kaum vorstellen, das der Betreiber dieser Seite es gern sieht, wenn du dort was automatisierst ('nen Anderen Grund kann ich mir nicht vorstellen, warum du mit 'nem Programm Zugriff haben möchtest)

[Mystic]

Zitat:

Zitat von himitsu

ich kann mir kaum vorstellen, das der Betreiber dieser Seite es gern sieht, wenn du dort was automatisierst

Zumindest in den AGB ist das nicht verboten.

[Basic-Master]

ich hab nicht vor einen bot oder so zu bauen, sondern nur ein tool, das die preise in eine tabelle kopiert damit man die halt nicht immer per excel oder was weiss ich speichern braucht :)

[delphinia]

der Code ist fast ok.

Nur wenn ich mehre Fenster offen bekomme ich von allen Fenster den QuellCode
Wie kann ich es beschränken auf wirklich NUR das ACTIVE Fenster?