Конференция "WinAPI" » IWebBrowser2 i Headers
 
  • zensan © (16.03.08 20:32) [0]
    Dobrogo vremeni sutok, mastera.

    Vopros sledujushij (tak nazivaemij referrer spoofing, no juzaetsja v blagih namerenijah):

    Procedura:

    var
     Headers: OLEVariant;
     Url, Ref: string;
     IE: OLEVariant;
    begin
     try
       IE := CreateOLEObject('InternetExplorer.Application');
     except
       Exit;
     end;
     Url := 'http://www.gurudelphi.googlepages.com/index.html';
     Ref := 'http://www.somehost.com';
     Headers := 'Referer: ' + Ref + #13#10;
     IE.Navigate(Url, EmptyParam, EmptyParam, EmptyParam, Headers);
    end;



    Vse vorde bi kak vse "umnie" ljudi pishut(MSDN, google...). Mozhet na 6 Explorere eto i pahalo, no eto ne pashet na WinXP SP2 s IE7!

    TClientSocket i TidHTTP NE PREDLAGATJ - mne nuzhno imenno cherez IE otkritj i chtobi JavaScript na etoj starnice vipolnjal vse neobhodimie izmenenija. Samomu obrabativatj vse FRAME i IFRAME i refereri dlja nih eto boljno na golovu...

    Estj varianti?
 
Конференция "WinAPI" » IWebBrowser2 i Headers
Есть новые Нет новых   [134431   +16][b:0][p:0.001]