Formular Submit funktioniert nicht mit TWebBrowser ?!

[inzzi]

Hi leute!

Hab ein problem mit dem Submit button eines Login Formulars.
Die Werte für username und passwort werden bereits richtig eingetragen und (ich denke) auch submitted...
aber sobald der submit befehl kommt wird die selbe seite wieder angezeigt! ..

kann mir da jemand helfen!?


Delphi Code:

Delphi-Quellcode:

procedure TForm1.MM_connectClick(Sender: TObject);
var WebForm: Variant;
begin
  WB_Game.Navigate('http://www.castleguard.de');
  while WB_Game.ReadyState <> READYSTATE_COMPLETE do
    begin
      Application.ProcessMessages;
    end;

  if WB_Game.OleObject.Document.all.tags('FORM').Length <> 0 then
    begin
      WebForm := Form1.WB_Game.OleObject.Document.Forms.item(0);
      WB_Game.OleObject.Document.forms.item(0).elements.item('username').value:='user';
      WB_Game.OleObject.Document.forms.item(0).elements.item('password').value:='pass';
      WB_Game.OleObject.Document.Forms.item(0).submit;
    end;
end;

HTML Code

Code:

<form method="post" action="user_login.php">
     <table id="nob" width="50%" align="center">
     <tr>
      <td id="nob" width="100%">
       Username


       <input type="text" name="username" size="15">


       Passwort


       <input type="password" name="password" size="15"><input type="submit" name="do_login" value="Login">
      </td>
      </tr>
    </table>
    </form>

keine ahnung warum das mit dem submitten bzw. einloggen nicht funtzt

plz help ... inzzi


(PS: Es wird kein Bot für ein Browsergame sondern nur ein Client (arbeit selbst am browsergame mit)...)

[S2B]

Vielleicht hilft dir das weiter!

[inzzi]

naja das ausfüllen geht ja...

nur der submit button will nicht so recht

[supermuckl]

cookies ?!

[inzzi]

Zitat von supermuckl:

cookies ?!

was meinst du ?

[scp]

Eine Hilfsfunktion:

Delphi-Quellcode:

function ExecuteScript(doc: IHTMLDocument2; script: string; language: string): Boolean;
var
  win: IHTMLWindow2;
  Olelanguage: Olevariant;
begin
  result := false;
  if doc <> nil then
  begin
    try
      win := doc.parentWindow;
      if win <> nil then
      begin
        try
          Olelanguage := language;
          win.ExecScript(script, Olelanguage);
          result := true;
        finally
          win := nil;
        end;
      end;
    finally
      doc := nil;
    end;
  end;
end;

Aufruf dann so:

Delphi-Quellcode:

var
  IDoc1: IHTMLDocument2;
begin
  WB_Game.Document.QueryInterface(IHTMLDocument2, iDoc1);
  ExecuteScript(iDoc1, 'document.' + 'forms[0]' + '.submit()', 'JavaScript');

[inzzi]

hmm.. same problem .. auch mit der function...

hab jetzt mit meinem kollegen greded der php code zum game macht und er meinte es wird alles über eine $_POST variable oder wie das heisst (hab von php leider keine ahnung)

Code:

 if (isset($_POST['do_login'])) {

und danach kommt die abfrage ob der user vorhanden is, das pwd stimmt usw.


kanns daran liegen ??


edit:
das heisst somit auch das 'login.php?do_login=1' diese möglichkeit zb. nicht möglich ist. Ich glaub da liegt irgendwie mein problem...

[scp]

Haste das mal probiert?
WB_Game.OleObject.Document.forms.item(0).elements.item('do_login').value:= 1; Oder:
WB_Game.OleObject.Document.forms.item(0).elements.item('do_login').value:= '1';

[inzzi]

ne geht auch ned ...

dann wird in die Caption von dem submit button '1' geschrieben

[inzzi]

ok ich habs jetzt so gelöst das ich den click simuliert habe:

WB_Game.OleObject.Document.forms.item(0).elements.item('do_login').click;
trotzdem danke für die ganze hilfe ...