?

?

?

?

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;

?

===還要其他 總結點有空再放進來

總結

以上是生活随笔為你收集整理的用 TWebBrowser 查找网页上的按钮，编辑框，的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。