HanDs
管理员

[Delphi文章] 找到提交按钮 



用TwebBrowser打开网页   操作  
    WebBrowser1.Navigate('http://www.baidu.com');  
  //找到提交按钮  
  procedure   TForm1.Button3Click(Sender:   TObject);  
  var  
      i:   integer;  
      T:   OleVariant;  
  begin  
      T   :=   WebBrowser1.Document;  
      for   i   :=   0   to   T.all.Length   -1   do  
      begin  
          if   T.all.item(i).tagName   =   'INPUT'   then  
          begin  
              if   T.all.item(i).type   =   'submit'   then  
              begin  
                  T.all.item(i).click;  
                  Exit;  
              end;  
          end;  
      end;  
  end;  


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
找到 提交 按钮
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复