delphi WebBrowser 大虾看看如何调用这个控件

Question

<TD width="15%"><INPUT class="loginbot loginimg" type=submit value=登录 name=""></TD>如题，求完整代码

Answer 1

同上无name和ID的话用
WebBrowser1.OleObject.document.getElementsByTagName('input').item(0).click;
测试一下第几个按钮。然后改一下就可以了

Answer 2

用上述方法可以的，也可以用value='登录'来判断。我都是用后者。还有可以直接提交，如果没有必要非用点击的话。还有一种办法用js写一个，然后调用js。怎么都可以。

Answer 3

//取某类型的网页元素
function GetElementByTagName(Document2: IHTMLDocument2; const TagName: WideString): IHTMLElementCollection;
begin
    Result:= nil;
    try
        if Document2 = nil then Exit;
        Result:= IHTMLElementCollection(Document2.all.tags(TagName));
    except
    end;  
end;
如果有ID，可直接取.
1.IHEC:= GetElementByTagName(WB_Web.Document as IHTMLDocument2,Pubc_InputType);
2.循环判断
        for I:= 0 to IHEC.length - 1 do
        begin
            IHE:= IHEC.item(I,'') as IHTMLElement;
            IHIE:= IHE as IHTMLInputElement;
            //取属性自己判断
            //如IHE.className='loginbot loginimg'
            //很多属性都可以.IHE.getAttribute('',0);
        end;

Answer 4

var
i:integer;
tds: OleVariant;
begin
tds := web1.OleObject.document.getElementsByTagName('INPUT');
 for i := 0 to tds.length - 1 do
 begin
 if '登陆'= tds.item(i).value then
 begin
 tds.item(i).click;
 break;
 end;
 end;
end;
end;
end.