怎样实现自动填写用户名与密码并自动点击提交按钮

Question

我是在delphi7中用WebBrowser控件
想实现自动填写用户名与密码并自动点击提交按钮
如何实现？
另：还是用别的控件好呢？
解决了就结贴

Answer 1

163邮箱登陆方法
procedure TForm1.Button2Click(Sender: TObject);
var
   o : Olevariant;
begin
  webbrowser1.Navigate('http://www.163.com');   delay(2000);
  o := WebBrowser1.OleObject.document.all.item('username',0);
  o.value := 'username';
  o := WebBrowser1.oleobject.document.all.item('Password',0);
  o.value := 'password';
  o :=WebBrowser1.oleobject.document.all.item('login',0);
  o.Click;
end;

Answer 2

在用户名和密码框的change中写提交代码

Answer 3

感谢 linzhisong
怎样结贴啊?
ps:
还想问一下：
怎样得出网页中select 选择框里的所有选择项及其值如：
       <SELECT NAME="city" onChange="MM_jumpcity('parent',this,0)">
                <option SELECTED>选择地点</option>
                <option value="/qg">全国</option>
                <option value="/bj">北京</option>
                <option value="/sh">上海</option>
       <select>