Que tal Compañeros.
Estoy intentando hacer un auto login para una pagina de streaming, que al cargar el exe me haga el login y luego haga click en un vinculo que dire RESTART que inicia la transmision del streaming.
La url es
http://s5.myradiostream.com/index.php?page=login
Y lo he intentado con un webbrowser y en el evento DocumentComplete he puesto
Código Delphi
[-]
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
currentBrowser: IWebBrowser;
topBrowser: IWebBrowser;
Doc: IHTMLDocument3;
Inputs: IHTMLElementCollection;
UID, LGN: IHTMLElement;
begin
currentBrowser := pDisp as IWebBrowser;
topBrowser := (Sender as TWebBrowser).DefaultInterface;
if currentBrowser = topBrowser then
begin
Doc := WebBrowser1.Document as IHTMLDocument3;
Inputs := Doc.getElementsByName('username'); UID := Inputs.item(0, '') as IHTMLElement;
if UID <> nil then (UID as IHTMLInputElement).value := 'usuario';
if UID = nil then
ShowMessage('No se encuentra uername');
Inputs := Doc.getElementsByName('user_password');
UID := Inputs.item(0, '') as IHTMLElement;
if UID <> nil then
(UID as IHTMLInputElement).value := 'CLAVE';
if UID = nil then
ShowMessage('No se encuentra password');
Inputs := Doc.getElementsByName('login_submit'); LGN := Inputs.item(0, '') as IHTMLElement;
if LGN <> nil then (LGN as IHTMLInputElement).form.submit;
end;
end;
Con eso he logrado completar los campos pero aparentemente no presiona el boton LOGIN sino que aparenta refrescar la pagina.
A ver si me pueden orientar
Gracias