delphi - 通过 Delphi 在网页上按下按钮

Question

这个问题在这里已经有了答案:





How to find a button with "value" in html page (Webbrowser - Delphi)

(2 个回答)


7年前关闭。




例1:WebBrowser.OleObject.Document.GetElementByID('ID HERE').Click;

例 2:< input type="submit" VALUE="Login" >

上面两个例子是通过 Delphi 在网页上按下按钮的。 Ex2 在各种网站上运行良好，但不是全部。这是因为 Ex2 仅适用于 HTML 按钮吗？我尝试了 Ex1，但缺少一些代码，当我尝试时，我收到一条消息，提示“需要对象或类类型”。 Ex1 也没有示例代码，任何人都可以告诉我为什么我会收到此消息并为 Ex1 提供一些代码。

Answer 1

我从:MrBaseball34 at delphipages 获得此代码
它最初不起作用，因为我写的是“WebBrowser”而不是“WebBrowser1”。但它完美地工作。
这是代码:

procedure TForm1.Button1Click(Sender: TObject);  
var  
x: integer;  
thelink: OleVariant; 

begin  
thelink:= WebBrowser1.OleObject.Document.all.tags('A');  
if thelink.Length > 0 then  
  begin  
  for x := 0 to thelink.Length-1 do  
    begin  
    if Pos('put id string here', thelink.Item(x).id) > 0 then
      begin  
        thelink.Item(x).click;  
        Break;
      end;
    end;
  end;
end;