Browser öffnen und automatisch anmelden

[Schwedenbitter]

Hallo,

ich greife das Thema wieder auf, weil ich bislang keine vernünftige Lösung habe finden können.
Ich habe auf dieser Seite mitbekommen, dass man an Programmfenster bzw. besser noch an deren Objekte Nachrichten, Texte etc. senden kann. Ich habe daher versucht, mit Hilfe von WinSpy das Handle der Felder für Namen und Passwort herauszubekommen und zumindest erstmal den Benutzernamen zu setzen. Leider bislang ohne Erfolg:

Delphi-Quellcode:

Procedure TForm1.Button1Click(Sender: TObject);
Var
   I            : Integer;
   TestText      : String;
   wndMain      : HWND;
   wndChild      : HWND;
Begin
   wndMain:=FindWindow('MozillaUIWindowClass', 'Advoplex - Mozilla Firefox');
   If wndMain <> 0 Then
   Begin
      wndChild:=FindWindowEx(wndMain,  0, 'MozillaWindowClass',        nil);
      wndChild:=FindWindowEx(wndChild, 0, 'MozillaContentWindowClass', nil);
      wndChild:=FindWindowEx(wndChild, 0, 'MozillaWindowClass',        nil);
      wndChild:=FindWindowEx(wndChild, 0, 'username',                  nil);
      If wndChild <> 0 Then
      Begin
         TestText:='Hallihallohallöle';
         For I:=1 To Length(TestText) Do
            SendMessage(wndMain, WM_CHAR, Ord(TestText[I]), 0);
      End;
   End;
End;

Eigentlich sollte sich damit doch ein Login realisieren lassen.

Was mache/verstehe ich falsch?

Gruß, Alex