delphi 如何在浏览器中点击按钮

问题描述

<div id="lowbtn">
            <a href="javascript:;" class="start" a2s="click" obj="MAIN_START" opt="{&quot;Name&quot;:&quot;L_Start&quot;}"><img src="http://test/btn.png" alt="Go!" class="loading" data-was-processed="true"></a>
            <ul class="server" style="display: none;">
                <li class="Talk">
                    <span class="icon"><img src="http://test/assets/common/btn/icon.png" alt="" class="loading" data-was-processed="true"></span>
                    voice
                    <a href="javascript:;" class="on" id="a_voice_check"><span class="hide">on</span></a>
                </li>
            </ul>
        </div>

我的德尔福代码

procedure TMainForm.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
var
  CurrentBrowser: IWebBrowser2;
  TopBrowser: IWebBrowser2;
  Document: OleVariant;
  Doc3 :  IHTMLDocument3;    
begin
  CurrentBrowser := pDisp as IWebBrowser2;
 TopBrowser := (ASender as TWebbrowser).DefaultInterface;
 if Assigned(CurrentBrowser) and Assigned(TopBrowser) then
  begin
   if CurrentBrowser = TopBrowser then
    begin

   doc3 := (pDisp as IWebBrowser2).Document as IHTMLDocument3;

   doc3.getElementById('lowbtn').click;     


  end;


  end;

我尝试了不同的方法，但 AV 正在发生或不起作用。有谁知道我的代码有问题或知道解决方案吗？

谢谢..

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphi twebbrowser