Keby niečo

Skúsený užívateľ

Keďže píšeš, že chyba bude inde, zrejme si skúšal aj inú stránku. Fungovali ti správne? (inak poznámka k tomu kódu: #10 a #13 je bez apostrofov, lebo to sú znaky).

Užívateľ

jj to je orig co som niekde nasiel, ale pouzival som to uplne bez tych znakov. a skusal som si to tuna

http://www.whatismyreferrer.com/

Skúsený užívateľ

Na formulár si daj jeden TWebBrowser, jeden TButton a do OnClick buttonu daj presne toto:

kód:

procedure TForm1.Button1Click(Sender: TObject);
var
Flags, Headers, TargetFrameName, PostData: OleVariant;
Url, Ref: string;
begin

flags := '1';
targetframename := '';
postdata := '';
url := 'http://www.whatismyreferrer.com';
ref := 'http://www.whatismyreferrer.com';
headers := 'Referer: ' + ref + #10 + #13;
webbrowser1.Navigate(url, flags, targetframename, postdata, headers);

end;

mne to tránku riadne načítalo. Skús to takto.

Užívateľ

ved som pisal, chyba nieje v kode pretoze mi ten referer ukazuje pekne, ale bude to asi neako inak kontrolovane, nez len refererom...

Užívateľ

Skusam poslat spravu o kliku ale nic sa nedeje. Zadavam suradnice na ktorych je button ale nieco je zle. (klikam sam naseba nie na cudziu aplikaciu)

kód:

wnd:=findwindow('',nil);
dw := MakeLong(50,50);
SendMessageW(wnd,WM_LBUTTONDOWN,MK_LBUTTON,dw);
SendMessageW(wnd,WM_LBUTTONUP,MK_LBUTTON,dw);

Užívateľ

nejde to preto, lebo funkcia FindWindow ti zakazdym failne koli tomu, ze jej nedavas dobre parametre, kedze prvy musi byt retazec, ktory oznacuje nazov triedy okna, a ty mu davas prazdny nazov, cize ho vlastne iba nenajde. Aj keby ho naslo, tak je problem s tym, ze musis najst handle konkretneho ovladacieho prvku na ktory chces kliknut, lebo to posle spravu iba jemu. Cize nieco ako wnd=FindWindow(0,'Form1'); by kliklo "pod" tlacitko, musis spravit wnd:=FindWindowEx(FindWindow(0,'Form1'),0,0,'Button1'); aby si nasiel handle toho, na co chces klinkut. Na druhej strane dost zavisi od konkretneho pripadu. Tlacitko v internet exploreri nie je plnohodnotne tlacitko, cize vyuzivas prvy sposob, kedze je to sucast hlavneho okna. to treba vediet este pred klikanim

Užívateľ

ked som zadal WM_QUIT tak to slo, ci som zadal nazov okna alebo nie. A ja potrebujem "kliknut" na suradnice, aby to bolo univerzalne

Užívateľ

ako vravim, pokial je to v okne prehliadaca, alebo v okne nejakej hry, tak sa to da "univerzalne" spravit tym jednym findwindow, ale pokial obsahuje dane okno klasicke tlacitka a ovladacie prvky, tak to asi bude vyzadovat iny pristup. Ano WM_QUIT mohol ist, findwindow vrati 0 ak je fail a zrejme sa nula puziva zaroven ako identifikator, ze to aplikacia posiela sama sebe. A kedze WM_QUIT nema nic spolocne s ovladacimi prvkami, nic to nemeni na veci, ze ak posles hlavnemu oknu spravu, neposles ju child oknu (tlacitku).

Užívateľ

nj, treba najst komponentu lebo to klikne podnu. Skusal som to na button a v pohode ale webbrowser nie

kód:

procedure TForm1.Button1Click(Sender: TObject);
var wnd :hwnd;
dw:longint;
begin
wnd:=FindWindowEx(FindWindow(0,'Form1'),0,0,'WebBrowser1');
dw := MakeLong(300,230);
SendMessageW(wnd,WM_LBUTTONDOWN,MK_LBUTTON,dw);
SendMessageW(wnd,WM_LBUTTONUP,MK_LBUTTON,dw);
end;

posielam suradnice na ktorych je hyperlink a nic sa nedeje

Užívateľ

no ono komponent WebBrowser je dost specificky tym, ze nema caption WebBrowser1, dokonca nema ziadnu caption. Trieda WebBrowsera po vytvoreni sa vola 'Shell Embedding', problem nastava v okamihu ked spravis WebBrowser1.navigate..., ked sa napoji na server internet exploreru a handle sa zmeni, zmeni sa aj trieda okna na 'Internet Explorer_Server', ale uz nefiguruje medzi child oknami, cize nie je mozne najst ho pomocou findwindowex(findwindow(.....)); Vacsiu zmrdnost ako tento kod som uz dlho nevidel

Takto to ide : wnd:=FindWindowEx(FindWindowEx(FindWindowEx(FindWindow(0,'Form1'),0,'Shell Embedding',0),0,'Shell DocObject View',0),0,'Internet Explorer_Server',0);

//pri najdeni tohto som pouzil Spy++ (velmi uzitocny tool) prilozeny k visual studio, kedze google nic nepovedal,

Užívateľ

pekna "rekurzia", ale hlavne ze to funguje. No nedosiel by som ktomu sam v blizkej dobe jak nato pozeram. Vdaka

Užívateľ

stopa27 napísal:

//pri najdeni tohto som pouzil Spy++ (velmi uzitocny tool) prilozeny k visual studio, kedze google nic nepovedal,

mozes mi ho supnut?

Užívateľ

http://www.gymrk.iglu.cz/spyxxhk.zip

Užívateľ

Užívateľ

inak... ked tam dam viac webbrowserov jak ich rozoznam podla handle? pretoze sa mi odkaz otvara nie v komponente ale v novom IE. tak som dal do OnNewWindow2

kód:

cancel:=false;
ppDisp:=Form1.WebBrowser2.Application;

Keby niečo

inhodinky.sk, hodinky pre Vás

Hodinky - zásielkový predaj

Štýlové hodinky za super ceny

Máš bezpečný profil?

[Delphi] Simulacia "klik na link"