Webbrowser checkbox

var
  i:integer;
  t:OleVariant;
begin
  t := EmbeddedWB1.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='checkbox' then
      begin
        if t.all.item(i).checked then
           ListBox1.Items.Add(t.all.item(i).name+'选中')
        else
           ListBox1.Items.Add(t.all.item(i).name+'未选中');
      end;
    end;
  end;

end;

http://www.cnblogs.com/linyawen/archive/2011/09/01/2161743.html

http://www.cnblogs.com/davyjiang/articles/1514044.html

http://www.caogenit.com/caogenxueyuan/bianchengyuyan/Csharp/1720.html