Delphi WebBrowser 提交数据，求大侠指导

[foshahk]

     
    procedure TForm1.FormCreate(Sender: TObject);
begin
    WebBrowser1.Navigate('http://pay.ztgame.com');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
  var
    Doc:IHTMLDocument2;
    ztUserName,ztjine:IHTMLInputElement;//账号，金额
    
  begin
       doc:=webbrowser1.Document as IHTMLDocument2;

       ztUserName:=(doc.all.item('account_fillbank',0)as IHTMLInputElement);
       ztUserName.value:='test100';
       ztjine:=(doc.all.item('sel_jr_input',0)as IHTMLInputElement);
       ztjine.value:='500';
      // http://pay.ztgame.com  立即充值这里没有INPUT，只有一个<a>标签，如何提交。
   

  end;             

http://pay.ztgame.com 立即充值这里没有INPUT，只有一个<a>标签，如何模拟提交。不用idHTTP方式

希望可以指导下，感谢 希望可以指导下，感谢






..

[Playmaster]

这个页面里肯定有js脚本，不是简单的html方式提交

[magic2003]

找出脚本，用webbrowser执行脚本就可以了