Question

如何在delphi中实现网页的自动输入

Answer 1

procedure TForm1.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);//请注意这个事件在页面有多个框架时会触发多次，比如网页里嵌套了两个iFrame则这个事件打开这个网页时可能会触发三次这个事件。
begin
webBrowser.OleObject.document.MailCheck.UserName.value:='83925com';//文本框
webBrowser.OleObject.document.MailCheck.MailBox.value:='65403';//下拉框
webBrowser.OleObject.document.MailCheck.Password.value:='83925com';//密码框
webBrowser.OleObject.document.MailCheck.button.click;//按钮事件
end;