免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

  1. 自動填寫表單并發(fā)布

       兩種方法

 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; // 選中值是 '求'的選項(xiàng)
      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;  // 模擬點(diǎn)擊超鏈接
  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;// 模擬點(diǎn)擊超鏈接
  end;
end;