标签：
Form1.wb1.Navigate(Aurl);
<table> <tr> <td style="text-align:right;"><label for="username">登录名:</label></td> <td style="text-align:left;"><input id="username" name="username" tabindex="1" type="text" /></td> </tr> <tr> <td style="text-align:right;"><label for="password">密码:</label></td> <td style="text-align:left;"><input id="password" name="password" tabindex="2" type="password" /></td> </tr> <tr> <td></td> <td style="text-align:left;"> <label for="autologin"><input id="autologin" name="autologin" tabindex="4" type="checkbox" value="1" /> 保持登录状态</label> </td> </tr> <tr> <td style="text-align:left;"> <a href="/redmine/account/lost_password">忘记密码</a> </td> <td style="text-align:right;"> <input type="submit" name="login" value="登录 »" tabindex="5"/> </td> </tr> </table>
procedure TForm1.btn5Click(Sender: TObject);
var
o: Olevariant;
begin
o :=self.wb1.OleObject.Document.all.Item(‘username‘, 0); // 找到登录用户名的输入框
o.value := ‘用户名‘;
o := self.wb1.OleObject.Document.all.Item(‘password‘, 0); // 找到登录密码的输入框
o.value := ‘对应的密码‘;
//self.wb1.OleObject.Document.Forms.Item(0, 0).submit; // 第一个表单提交
o :=self.wb1.oleobject.document.all.item(‘login‘,0); //或者用指定表单名称提交
o.Click; //点击操作，对其它对象也可同样操作
end;
标签：
原文地址：http://www.cnblogs.com/rogge7/p/4837801.html
