Udfyld en webside

Ja det kan godt lade sig gøre.
http://borrisholt.com/eksperten/FormFiller.zip

Man kunne nemt forstille sig en pænere, og mere object orienteret løsning end den jeg kommer med her. Skulle jeg bygger videre på programmet ville jeg nok skrive det om. Men det virker og det viser dig hoved princippet i programmering med TWebBrowser.

Jens B

PS. Kan du bruge mit svar må du meget gerne give mig "karma" det kan JEG bruge til noget ;)

Jens B

Jens...

Den skriver at den manger Unit1.pas filen for at jeg kan se koden...

Har du den?

Jeg har tit undret mig over om man ikke kunne lave et program der f.eks. "loggede" ind på en hjemmeside eller lign. Så jeg kunne egentlig godt bruge den unit1.pas fil også.

Sådan sorry !

Jens B

Det er bare så sejt Jens B

Er bare gået igang med at programmer for vildt nu...jubii

Elsker Delphi...

Tusinde tak Jens B...

Jeg forhøjer til 100 point for et super godt svar...

Ups...lige et spørgsmål til

Har en et lille stykke kode til at få den til at klikke på et link på en webside?

Nææ ikke rigtigt .... Men du kan jo bare søge siden igennem efter links, når du har findet sådan et, kan du sikkert gætte dig til resten, det er sådan jeg lavede dit eksempel.

Ellers her er lidt hjælp :
http://www.swissdelphicenter.ch/torry/internet.php

Bemærk at det ikke er ALT der virker. Den der med RadioButtons virkede fx ikke !

Jens B

Jeg har prøvet og prøvet...

Denne her..

http://www.swissdelphicenter.ch/torry/showcode.php?id=1645

Hvor skriver jeg dette her, og er det en function eller hvad...please hjælp..

var
  iDoc: IHtmlDocument2;
  i: integer;
  ov: OleVariant;
  iDisp: IDispatch;
  iColl: IHTMLElementCollection;
  InputImage: HTMLInputImage;
begin
  WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2, iDoc);
  if not Assigned(iDoc) then
  begin
    Exit;
  end;
  ov := 'INPUT';
  iDisp := iDoc.all.tags(ov);
  if Assigned(IDisp) then
  begin
    IDisp.QueryInterface(IHTMLElementCollection, iColl);
    if Assigned(iColl) then
    begin
      for i := 1 to iColl.Get_length do
      begin
        iDisp := iColl.item(pred(i), 0);
        iDisp.QueryInterface(HTMLInputImage, InputImage);
        if Assigned(InputImage) then
        begin
          if InputImage.Name = 'submit' then
          // if the name is submit / falls der name submit lautet
          begin
            InputImage.Click;  // click it / klick es
          end;
        end;
      end;
    end;
  end;
end;