WebBrowser操作元素值填表

1. 自动填写表单并发布
       两种方法
 var
  i:integer;
  Doc:IHTMLDocument2;
  input:OleVariant;
  userinputelement,pwdinputelement,ValidateElement:ihtmlinputelement;
  ValidateImage: IHTMLImgElement;
  imagecount:integer;
  form:ihtmlformelement;
  myitem:Olevariant;
begin
  Doc:=WebBrowser1.document as ihtmldocument2;
  if doc=nil then exit;
// 第一种方式
  userinputelement:=(doc.all.item('nicknameId',0) as ihtmlinputelement);  
  userinputelement.value:=edit7.text;
  pwdinputelement:=(doc.all.item('pwd',0) as ihtmlinputelement);
  pwdinputelement.value:=edit8.text;
  pwdinputelement:=(doc.all.item('name',0) as ihtmlinputelement);
  pwdinputelement.value:=edit9.text;
  myitem:=WebBrowser1.document;
// 第二种方式 并可操作 combo radio select 元素表
  for i:=0 to myitem.all.length-1 do
  begin
    ///
    if myitem.all.item(i).tagName = 'SELECT' then // 下拉框选择
    begin
      if myitem.all.item(i).Name='birth_year' then  
       myitem.all.item(i).value:='1980'; //     
    end;
    if myitem.all.item(i).tagName = 'INPUT' then   
    begin
      if Uppercase(myitem.all.item(i).type)='RADIO' then  
      begin
        if myitem.all.item(i).value='男生' then myitem.all.item(i).checked:=true; // 选中值是 '求'的选项
      end;
     if Uppercase(myitem.all.item(i).type)=Text then  
      begin
          myitem.all.item(i).value='';
       end;
    end;
  end;


2.操作超链接
  var
 i:integer;
 myitem:Olevariant;
begin    //xid_reg_handle
  myitem:=WebBrowser1.document;
  // 第一种方式
 aVal:=myitem.getElementById('xid_reg_handle').href;
   myitem.getElementById('xid_reg_handle').click;  // 模拟点击超链接
  showmessage(InttosTr(myitem.Links.length));  
  for i:=0 to myitem.Links.length-1 do
  begin
     // myitem.Links.item(i).href // hrefUrl 可获取
    if myitem.Links.item(i).innertext='名称' then // <a href=''> 名称' </a>
      myitem.Links.item(i).click;// 模拟点击超链接
  end;
end;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值