Webbrowser 动态操作select元素值

在自动填写表单元素时，常常会遇到select 无option 的情况，这就需求webbrowser 自动添加option

方法有二

其一是用ole 对象

var
  myitem:Olevariant;
  Op:OleVariant;// 对应option 元素
begin
  myitem:=WebBrowser1.document;
  op:=myitem.createElement('option');
  op.setAttribute('value','xxx');
  op.innerHTML:='可显示标题';
  myitem.getElementById('SelectId').appendChild(op);

end;

其二是用js脚本

  jsStr:='var obj = document.getElementById("SelectId");';
  jsStr:=jsStr+'obj.options.add(new Option("'+'标题'+'","'+'值'+'"));';
 //

  try
    (aWebBrowser.Document as IHTMLDocument2).parentWindow.execScript(jsStr,'javascript');
  except
  end;

调用完后，就可用

myitem.getElementById(SelectId).value:='你硬性赋的值';

编后：相信做自动注册的网友们一定会遇到过这样的问题，这样就可以跳过select 的点击事件，自动赋值了。