用 TWebBrowser 查找网页上的按钮，编辑框，

 

 

 

 

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="登录 &#187;" 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;

 

===还要其他 总结点有空再放进来