Avatar billede dallan2007 Nybegynder
16. september 2006 - 13:50 Der er 5 kommentarer og
1 løsning

Simulere et tryk på en submitknap i webbrowseren

Dalphi 6.0

Hej,

Problemstilling:

En twebbrowser åbner til siden www.mitdomæne.dk/test.html. På test.html er der 2 tomme tekstfelter og en submitknap. Jeg skal havde de 2 felter udfyldt med data automatisk og derefter skal der automatisk trykkes på submitknappen.

So far:
Jeg har allerede den funktion som indsætter data, så det er kun en funktion som kan trykke på et link/submitknap jeg skal havde fat i. Kan man det?

Rgs
Allan
Avatar billede vallemanden Nybegynder
16. september 2006 - 14:05 #1
hvordan indsætter du data?
Avatar billede dallan2007 Nybegynder
16. september 2006 - 14:12 #2
Via en FillForm funktion jeg engang har fundet her på exp.

Rettelse:
Det er desværre ikke en form-submit-knap jeg skal havde trykket på. Det faktisk et javsscript-link. Det gør det vist temmelig besværligt...

Kunne man ikke lave et eller andet som rendte samtlige links på en side igennem og så derefter "trykkede" på et forudbestemt et?
Avatar billede kroning Nybegynder
16. september 2006 - 14:38 #3
Måske kan du bruge dette til noget:

F.eks. hvis siden er www.google.dk klassisk og der skal klikkes på annonce linket:

LinktestForm(WebBrowser1,'http://www.google.dk/ads/');

----------------

function LinktestForm(WebBrowser: TWebBrowser; href: string): Boolean;
var
  I, J: Integer;
  FormItem: Variant;

begin
  Result := False;

  for j:=0 to WebBrowser.OleObject.Document.frames.length-1 do
  for I := 0 to WebBrowser.OleObject.Document.frames.item(j).document.links.length - 1 do
  begin
    FormItem:=WebBrowser.OleObject.Document.frames.item(j).document.links.item(i).href;
    if FormItem=href then
    begin
            WebBrowser.OleObject.Document.frames.item(j).document.links.item(i).click;
      result:=true;
        exit;
    end;
  end;

  for j:=0 to WebBrowser.OleObject.Document.links.length-1 do
  begin
    FormItem:=WebBrowser.OleObject.Document.links.item(j).href;
//    showmessage(FormItem);
    if FormItem=href then
    begin
            WebBrowser.OleObject.Document.links.item(j).click;
      result:=true;
        exit;
    end;
  end;
end;
Avatar billede dallan2007 Nybegynder
16. september 2006 - 14:56 #4
Kroning, you sir are a hero :). Mucho gracias - smid et svar!
Avatar billede kroning Nybegynder
16. september 2006 - 15:18 #5
ok
Avatar billede dallan2007 Nybegynder
16. september 2006 - 15:47 #6
Takker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester