rafaellacerda

Tem que ser criado as procedures.... Olha como esta na source. Baixa ai;

Ta errado, olha como e na source que esta no link; const DISPID_AMBIENT_USERAGENT = -5513; type TWebBrowser = class (SHDocVw.TWebbrowser, IDispatch) private FUserAgent: string; procedure SetUserAgent (const Value: string); function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HRESULT; stdcall; public property UserAgent: string read FUserAgent write SetUserAgent; constructor Create(AOwner: TComponent); override; end; TFrmMain = class(TForm) WebBrowser1: TWebBrowser;

Alterar o USER-AGENT; Exemplo com source: http://theroadtodelphi.wordpress.com/2011/03/11/changing-the-ua-user-agent-of-a-twebbrowser-component/

NV e o nome do componente WEBBROWSER; Troca pelo qual voce esta usando.

não resolveu??? Porque não usar o ONDOCUMENTCOMPLETE??

não entendi, pra que esse tanto de codigo ai. Só fazer isso. var a: integer; begin for a:= 0 to nv.OleObject.document.All.Tags('input').length -1 do begin if (Pos('loginform.username', LowerCase(nv.OleObject.document.All.Tags('input').item(a).outerHTML))> 0) then begin nv.OleObject.document.All.Tags('input').item(a).value:= 'email@email.com'; end; if (Pos('loginform.password', LowerCase(nv.OleObject.document.All.Tags('input').item(a).outerHTML))> 0) then begin nv.OleObject.document.All.Tags('input').item(a).value:= 'senha123'; break; end; end;

Ele não fica as estrelinhas, não e porque não ta carregando a pagina, e por causa de uma proteção mesmo. Faz assim, que vai ficar em estrela... so não preenchi o resto, por preguiça; nv.OleObject.document.getElementById('password').outerHTML:= '<input type="password" autocomplete="off" class="text password" id="password" name="password" value="teste" placeholder="Password*">'; nv.OleObject.document.getElementById('password2').outerHTML:= '<input type="password" autocomplete="off" class="text password" id="password2" name="password2" value="teste" placeholder="Password (retype)">'; Aonde esta escrito TESTE, e aonde vai a senha, então coloca a variavel ai no meio.

procedure TForm1.OnDocumentComplete(Sender: TObject;const pDisp: IDispatch;var URL: OleVariant); var currentBrowser: IWebBrowser; topBrowser: IWebBrowser; document: OleVariant; windowName: string; begin currentBrowser := pDisp as IWebBrowser; topBrowser := (Sender as TWebBrowser).DefaultInterface; if currentBrowser = topBrowser then begin ShowMessage('Complete document was loaded') end; O showmessage, so vai ser executado, depois de todos os frames carregar.