需要delphi7做的webbrowser模拟登录发贴的简单实例

Question

如题：如果可以的话，请朋友写个简单案例也可以。对delphi不是很懂，我是弄C#的

Answer 1

找到需要填写内容的组件id，然后执行提交 var
   o:OleVariant;
  Doc:IHTMLDocument2;
  UserName:ihtmlinputelement;
begin
  Doc:=WebBrowser1.document as ihtmldocument2;
  if doc=nil then exit;
  //假如有一个文本框的id是username，这个可以通过html代码看到
  UserName:=(doc.all.item('username',0) as ihtmlinputelement);
  //为其赋值
  userinputelement.value:='baby';
  //找到id为submit0的按钮
  o:=doc.all.item('submit0',0);
  state := 101;
  //点击提交
  o.click;
end;

Answer 2

你弄C#的怎么不用C#做呢？？有人说让我学C#！说说你的学习感受