[Delphi] Simulacia "klik na link"

Ako to dosiahnut? A nie iba tak hociako exec iexplorer+path ale potrebujem odoslat aj referer. (idHTTP ? )

Takto?

no predpokladajme ze nemam spusteny ie, potom by to asi uz neslo .
Pre ilustraciu o co ide. Mame hlasovaciu sutaz v ktorej vyhrava ten kto ma najviac hlasovani. Pricom v ankete je povolene z tej istej ip hlasovat viackrat (oto vlastne ide) ale iba raz za hodinu. Spustenie samotneho linku nefunguje. preto treba ref. A rad by som to mal s ie alebo programovo, potom si to dam napr na HIDE a neotravuje ma to jak si to klika.

To by chcelo normalny request, nie riesit to takto pomocou "simulacie kliku", ale aj tak je najjednoduchsia cesta jednoducho na ten link kliknut pomocou autoklikeru, toto bol povodne autoklicker na facebook (bola aplikacia, ktora merala pocet klikov za 30s )



Je to sice C, ale volania su rovnake, staci trochu zmenit kod. do coord treba dat do horneho a dolneho slova suradnice, kam klikne (treba to nejako odmerat na obrazovkeň v pixeloch, neviem teraz ktora je X a Y, treba skusit. Do hWnd treba priradit handle aktualne okna, v ktorom je ten link, ktoru ziskats napr pomocou spy++, a potom staci nastavit nejaky cas, na ktory sa sleepne, v povolenom intervale hlasovacom.

no, ja som si spravil kliker. To nie je problem. Nastavim si tam x suradnic a bude mi to klikat dokola ale preto to chcem jak som pisal v poslednom poste lebo si predstav ze mi to bude bezat 24/7 . a ja teraz nemozem pracovat lebo mi beha kurzor furt? neprakticke

pri tomto nebeha, tam nepracujes s misou, len posles spravu

no prepac, ale nepozdava sa mi taketo jednorazove riesenie.

vies, ani mne, ale nakolko nemam delphi, nemam windows a taketo veci som s delphi robil naposledy 2 roky dozadu, tak som nemal ako otestovat to co sa da vygooglit, tak som to sem radsej nedaval . Ale ty mozes skusit google, vrati to mrte vela prispevkov.

Ano, ale na moj problem mi google nepomohol. Otvorit link, nato je milion prispevkov ale ja potrebujem otvorit link a zaroven poslat neaky referer. Ak takychto rieseni najdes mrte tak ich ukaz, alebo cez postu nech nespamujeme.

no neako neviem ani toto rozbehat, hadze to error

netreba dat do uses potrebne kniznice? skus hodit ten error sem.

HTTP/1.0 501 Not implemented
-skor nieco nastavit

inak toto by malo fungovat, neviem preco nie

Tak mne to funguje, stránku mi riadne načíta (mohol si aspoň napísať, kde to háďže chybu, čo vypísalo alebo niečo, čoho sa dá chytiť).

no ja skusam otvorit link, lenze aj ked ho otvaram takto tak nedostanem vyslednu stranku ale stranku s textom "No referer!"

edit: chyba bude inde, nie v kode

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).

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/

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

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

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

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)

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

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

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).

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


posielam suradnice na ktorych je hyperlink a nic sa nedeje

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,

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

mozes mi ho supnut?

dik

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