WebBrowserBeforeNavigate2 PostData edit?

[gandime]

Hi,
ich möchte bevor ich auf die Seite zugreife gleich den PostData auslesen und verändern, damit ich mich direkt einlogge:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('https://login.yahoo.com/config/login?');
end;

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  PostData.document.forms.item(0).elements.item('username').value:='a';
  PostData.document.forms.item(0).elements.item('passwd').value:='b;
end;

das war meine erste Idee aber naja so funktioniert es wohl nicht ;-)

aber wie dann?

mfg
gandime

[Andreas L.]

Delphi-Quellcode:

procedure TForm1.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
somestr: String;
Post: OleVariant;
i: Integer;
begin

  SomeStr := 'name=blabla&pw=xyz';

  Post := VarArrayCreate([0, Length(SomeStr) - 1], varByte);

  for i := 1 to Length(SomeStr) do
    Post[i - 1] := Ord(SomeStr[i]);

PostData := Post;

end;

Ungetestet, könnte so in etwa klappen

[gandime]

Das dürfte so funktionieren aber es werden noch mehr Infos mitgeschickt aber wie kann ich die auslesen?
Sprich beim normalen einloggen ;-)

[Andreas L.]

Du musst dir natürlich den HTML-Code der jeweiligen Seite anschauen und dann SomeStr beliebig erweitern.

[gandime]

ja das ist mir schon klar aber ich weiss nicht genau wie welcher parameter heisst und welchen wert der gerade hat deshalb möchte ich gerne wissen was in PostData drinne steht wenn ich mich normal einlogge jetzt verstanden?

[Andreas L.]

Zitat:

Zitat von gandime

ja das ist mir schon klar aber ich weiss nicht genau wie welcher parameter heisst und welchen wert der gerade hat deshalb möchte ich gerne wissen was in PostData drinne steht wenn ich mich normal einlogge jetzt verstanden?

Nein, immer noch nicht. Ich hab mir jetzt mal die Seite aus deinen ersten Post angeschaut. Das sind die Hidden-Felder:

XML-Code:

<input type="hidden" name=".tries" value="1">
            <input type="hidden" name=".src" value="">
            <input type="hidden" name=".md5" value="">
            <input type="hidden" name=".hash" value="">
            <input type="hidden" name=".js" value="">
            <input type="hidden" name=".last" value="">
            <input type="hidden" name="promo" value="">

            <input type="hidden" name=".intl" value="us">
            <input type="hidden" name=".bypass" value="">
            <input type="hidden" name=".partner" value="">
            <input type="hidden" name=".u" value="3b04n2p3e2l0g">
            <input type="hidden" name=".v" value="0">
            <input type="hidden" name=".challenge" value="3JqQVUq1yGIVH_9nNePwa8VQfzcY">
            <input type="hidden" name=".yplus" value="">
            <input type="hidden" name=".emailCode" value="">
            <input type="hidden" name="pkg" value="">

            <input type="hidden" name="stepid" value="">
            <input type="hidden" name=".ev" value="">
            <input type="hidden" name="hasMsgr" value="0">
            <input type="hidden" name=".chkP" value="Y">
            <input type="hidden" name=".done" value="http://my.yahoo.com">
            <input type="hidden" name=".pd" value="_ver%3d0%26c=">

Willst du diese Infos mit schicken? Falls ja: SomeStr := '.....intl=us&hasMsgr=0....';
Aber ich glaube das ist nicht das was du willst, oder?

[gandime]

genau das will ich und so habe ich es auch shcon versucht aber ich glaube die variablen wierden verändert und deshabl will ich sie ja auslesen

[Andreas L.]

Vllt. kannst du dir etwas aus folgende Beitrag ableiten: http://www.delphipraxis.net/internal...ebbrowser+form

Ansonsten mal die Suche benutzen, das Thema hatten wir schon öfter.

[gandime]

jap ich werds mir mal anschauen und thx