怎么取得TWebBrowser浏览的页面里的值

Question

OK，你需要使用DHTML来遍历页面中的所有元素（在DHTML中所有的东西都是元素，文本框是、超链接是、一段文本也是）。获得你所需要的元素再获得里面的值。下面是一个访问CSDN并填充用户名以及密码文本框的代码：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MSHTML, OleCtrls, SHDocVw, StdCtrls;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate('http://www.csdn.net');
end;procedure TForm1.Button2Click(Sender: TObject);
var
  FDoc:IHTMLDocument2;
  FItem:IHTMLElement;
  FInput:IHTMLInputElement;
  FImg:IHTMLInputImage;
  vDoc,vTag:OLEVariant;
  i:integer;
begin
  FDoc:=Webbrowser1.Document as IHTMLDocument2;
  if assigned(FDoc)then
  begin
    for i:=0 to FDoc.all.length -1 do
    begin
      FItem:=FDoc.all.item(i,i)as IHTMLElement;
      if LowerCase(FItem.tagName)='input' then
      begin
        FInput:= FItem as IHTMLInputElement;
        ListBox1.Items.Add(FInput.type_);
        if (FInput.type_='text')or (FInput.type_='password')then
        begin
          if FInput.name = 'name'then
            FInput.value := 'technofantasy'
          else if FInput.name ='pass' then
            FInput.value := 'hello';        //不是真正的密码哦 :-)
        end
        else if (FInput.type_='image')then
          fImg:=FInput as IHTMLInputImage;
      end;
    end;
  end;
end;end.

Answer 1

并不是一定要遍历的……
这段程序是针对span或者div来类型来写的……参数Name就是span或者div的ID……
如果你要访问其他的类型，那就自己改一下，我不贴了……function WebElementTextPut(var WebBrowser:TWebBrowser;Name:AnsiString;Value:AnsiString) : HRESULT;
var spDisp : IDispatch;
    IWB    : IWebBrowser2;
    IDoc   : IHTMLDocument2;
    IElc   : IHTMLElementCollection;
    ITae   : IHTMLElement;
begin
    if (WebBrowser.Document=Nil) then
    begin
        Result:=S_FALSE;
        Exit;
    end;
    WebBrowser.Document.QueryInterface(IID_IHTMLDocument2,IDoc);
    if (IDoc=Nil) then
    begin
        Result:=S_FALSE;
        Exit;
    end;
    IElc:=IDoc.all;
    if (IElc=Nil) then
    begin
        Result:=S_FALSE;
        Exit;
    end;
    spDisp:=IElc.item(Name,0);
    if (spDisp=Nil) then
    begin
        Result:=S_FALSE;
        Exit;
    end;
    spDisp.QueryInterface(IID_IHTMLElement,ITae);
    if (ITae=Nil) then
    begin
        Result:=S_FALSE;
        Exit;
    end;
    ITae.innerText:=Value;
    Result := S_OK;
end;

Answer 2

另外，网页里面大部分元素的数值我都知道怎样设置了，但COMBOBOX我还没有做好……如果有哪位高手做好了，告诉我一下怎么做吧……

Answer 3

如果你想更改特定的元素的值，就可以用colx() 的方法，COMBOBOX就是一个SELECT，楼上的可以参考MSDN中关于select Object的帮助