login in einem webbrowser testen

[toredo]

hallo,

bei einem meiner neuesten programme wird ein login bei www.rheinportal.ch/chat vorgenommen.
das problem ist, dass immer kommt, dass der login erfolgreich war, obwohl er manchmal ja ned stimmt.
leider weiss ich nicht wie ich prüfen kann ob der login erfolgreich war.

in der theorie weiss ich ungefähr wie:
wenn man sich eingeloggt hat und der login stimmt, dann geht der "Login"-Button weg und die Eingabefelder für den username und das pw.

leider weiss ich ned wie ich das umsetzen kann...


mfG toredo

[inherited]

Du durchsuchst das HTML-Dokument nach "Username" und "Passwort", wenn das vorhanden ist, war es wohl nich so rfolgreich

[toredo]

if WebBrowser1.OleObject.document.forms.item(0).elements.item('B1').value='Login' then Close; so hab ichs heute morgenfrüh bevor ich ins bett gegangen bin auch noch probiert, klappt aber nicht wirklich.

ich habe mir auch gleich einen code zum durchsuchen gesucht:
http://www.delphipraxis.net/internal...er+durchsuchen

Delphi-Quellcode:

var
  vTemp : variant;
  temp,s : string;
  p : integer;
begin
   vTemp := EmbeddedWB1.Document;  //EmbeddedWB1 = webbrowser
   temp := vTemp.Body.OuterHTML;
   p := pos('www.test.de',temp);
   s := copy(temp,p,11);
end;

diese zeile hab ich noch geändert:   vTemp := EmbeddedWB1.Document; //EmbeddedWB1 = webbrowser    vTemp := Webbrowser1.Document; //EmbeddedWB1 = webbrowser das kompilieren klappt einwandfrei aber beim ausführen des Programms
es gibt ne access violation (zugriffverletzung?) oder so was und zwar bei dieser zeile, ka wieso:
   temp := vTemp.Body.OuterHTML;
mfG toredo

[toredo]

ich hab jetzt noch was anderes gemacht, was leider nur zur hälfte klappt:
 if WebBrowser1.OleObject.document.forms.item(0).elements.item('B1').value='Login' then ShowMessage('not Ok') else ShowMessage('Ok'); leider kommt eine AV wenn der Login-Button nicht existiert, weiss jemand wie ich das ändern kann?


mfG toredo