Log på Telemore

uses mshtml

procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.telmore.dk');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
TheForm: IHTMLFormElement;
user,pw : string;

begin
user := 'blabla';
pw := '1234';

TheForm := (WebBrowser1.Document as IHTMLDocument2).all.item('loginform', 0)
as IHTMLFormElement;
if Assigned(TheForm)
then begin


WebBrowser1.OleObject.document.forms.loginForm.j_username.value := user;
WebBrowser1.OleObject.document.forms.loginForm.j_password.value := pw;



begin

TheForm.submit;


end;
end;
end;


Stoney

Tak Stoney...

Det virker...jeg er vilje til at hæve til 100 point hvis du så kan vise hvordan man trykker på send besked knappen inde i websms...

jeg kan udfylde felterne sådan her..

  begin
    TheForm := (WebBrowser1.Document as IHTMLDocument2).all.item('websmsForm', 0) as IHTMLFormElement;
    if Assigned(TheForm) then
    begin
      WebBrowser1.OleObject.document.forms.websmsForm.tilText.value := '00000000;';
      WebBrowser1.OleObject.document.forms.websmsForm.besked.value := 'Besked';
      begin
        TheForm.submit;
      end;
    end;
  end;

Her virker submit knappen bare ikke....

Kan du få den til at virker på en eller anden måde...please...

Nu bruger jeg ikke Telmore, så jeg kan ikke logge ind og se siden/sourcen.
Tror du ikke det er et javascript der ekskveres istedet for en knap, hvis
det er prøv at tjekke denne

http://www.swissdelphicenter.com/en/showcode.php?id=1732

Stoney

Tusinde tak stoney...

Alt virker nu...super....

Ved ikk om der stadig er nogen herinde....
men hvordan kam man så få den til at logge på http://intra.ceus.dk/  ??
Jeg kan ikke rigtig se hvordan det virker :-s

Ingen idéer :-(