Banner klicken per twebbrowser?
hi leutz,...ich habe in der sufu gesehen wie man soeiniges mit dem twebbrowser verhexn kann aber ich komme an einem bannerklick einfach nicht weiter:(
hier link: http://www.onlinetvrecorder.com/buyc...gcampaigns.php so kann der link aussehen(ist nich immer der selbe ziellink) Zitat:
o0o |
Re: Banner klicken per twebbrowser?
Wenn es schon eine ID gibt, kann man das dazugehörige Element finden. Ich habe mir dafür eine Funktion gebastelt:
Delphi-Quellcode:
function GetElementByID(WB: TWebBrowser; elementID: WideString; var element: IHTMLElement): Boolean;
begin try element := (WB.Document as IHTMLDocument3).getElementById(elementID) as IHTMLElement; Result := element <> nil; except Result := False; end; end; // if GetElementByID( WebBrowser, 'contentl', DivElement) then begin DivElement.click(); end; |
Re: Banner klicken per twebbrowser?
ich danke dir vielmals:)
nur fehlt da etwas...es heisst bei
Delphi-Quellcode:
immer dass divelement nich bekannt ist 0o
if GetElementByID( WebBrowser, 'contentl', DivElement) then
begin DivElement.click(); end; hab das ganze dann mal so geaendert:
Delphi-Quellcode:
dann kann das prog ohne probs ausgefuehrt werden nur iwi passiert dann nix wenn ich den button 4 aufrufe
procedure TForm1.Button4Click(Sender: TObject);
var divelement: IHTMLElement; begin if GetElementByID( WebBrowser1, 'contentl', DivElement) then begin DivElement.click(); end; end; weiss jemand vllcht was verbessert werden muss?^^ o0o |
Re: Banner klicken per twebbrowser?
So sollte es klappen:
Delphi-Quellcode:
uses
WinInet, ActiveX, MSHTML; function GetElementByID(WB: TWebBrowser; elementID: WideString; var element: IHTMLElement): Boolean; begin try element := (WB.Document as IHTMLDocument3).getElementById(elementID) as IHTMLElement; Result := element <> nil; except Result := False; end; end; procedure TForm1.Button1Click(Sender: TObject); var Divelement, child: IHTMLElement; children: IHTMLElementCollection; i: Integer; begin if GetElementByID( WebBrowser, 'contentl', DivElement) then begin children := Divelement.children as IHTMLElementCollection; for i := 0 to children.length-1 do begin child := children.item(i, '') as IHTMLElement; if child.tagName = 'A' then begin child.click; Break; end; end; end; end; |
Re: Banner klicken per twebbrowser?
Nur nebenbei bemerkt: Das generieren von automatischen Klicks per Software ist bestimmt untersagt. Du solltest dir der Folgen bewusst sein.
|
Re: Banner klicken per twebbrowser?
Zitat:
|
Re: Banner klicken per twebbrowser?
Es wird gegen die AGBs des Banneranbieters verstossen. Überleg doch mal, was wäre, wenn das erlaubt wäre und jeder es machen würde. Dann könnte er sein Geschäftskonzept in die Tonne treten.
|
Re: Banner klicken per twebbrowser?
Ah so, das stimmt.
|
Re: Banner klicken per twebbrowser?
hmm ich danke euch vielmals dass ihr mir helft:)
btw ich bin mir durchaus bewusst dass das gegen die agb verstoesst aber ich werde es ja nicht publizieren sondern nur privat fuer mich benutzen als kleine erleichterung:) aber das ganze funktioniert leider nich so ganz,...ok die url des banners wird geoeffnet wie es auch sein soll nur es wird nicht als klick gewerted...bin mir nich sicher aber steckt da noch ein java-script dabei? habt ihr da vllcht eine idee wie man das hinbiegen koennte? big thx o0o |
Re: Banner klicken per twebbrowser?
Vielleicht werden ja Klicks nur einmal pro IP gewertet und dann erst nach eine bestimmten Zeit (24 Std?) neu gezählt?
Ich denke mal, Banner-Anbieter werden schon vorgebeugt haben, um automatisierte Klicks zu verhindern ;) |
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:15 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz