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:

<div id='contentl' align=left style='cursor:pointer; height:60px; width:460px; max-height:60px; max-width:468px; overflow:hidden;' onClick="gotourl('?CDAAABZZAZAZAABACAZEAAZAZAZADZC B=OA==&CS=CACCCCCEECACFCCCACACFCCCABCCDCCC&show=&n oaff=');" onMouseUp='setCSession();'></div>

ware geil wenn ihr da ne idee habt,...thx im vorraus

o0o

Wenn es schon eine ID gibt, kann man das dazugehörige Element finden. Ich habe mir dafür eine Funktion gebastelt:

zusammenfalten · markieren

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;

ich danke dir vielmals

nur fehlt da etwas...es heisst bei

markieren

Delphi-Quellcode:

  if GetElementByID( WebBrowser, 'contentl', DivElement) then
  begin
    DivElement.click();
  end;

immer dass divelement nich bekannt ist 0o

hab das ganze dann mal so geaendert:

markieren

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var divelement: IHTMLElement;
begin
  if GetElementByID( WebBrowser1, 'contentl', DivElement) then
  begin
    DivElement.click();
  end;
end;

dann kann das prog ohne probs ausgefuehrt werden nur iwi passiert dann nix wenn ich den button 4 aufrufe
weiss jemand vllcht was verbessert werden muss?^^

o0o

So sollte es klappen:

zusammenfalten · markieren

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;

Nur nebenbei bemerkt: Das generieren von automatischen Klicks per Software ist bestimmt untersagt. Du solltest dir der Folgen bewusst sein.

Zitat von Luckie:

Nur nebenbei bemerkt: Das generieren von automatischen Klicks per Software ist bestimmt untersagt. Du solltest dir der Folgen bewusst sein.

Ich verstehe es nicht? Wie ist das gemeint? Solche Sachen sind verboten hier im Forum oder man darf es nicht im Software haben?

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.

Ah so, das stimmt.

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

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