Standard Webbrowser Username und Passwort übergeben

[KodeZwerg]

Delphi-Quellcode:

procedure StringSenden(sendStr: string; browserStr: string; Handle: Longint);
var
  hTargetWnd1,hTargetWnd2: HWND;
  ProcID: Cardinal;
begin
   hTargetWnd1 := 0;

   hTargetWnd1 := Shellexecute(0, nil, 'https://www.brack.ch/anmelden', nil, nil, SW_SHOW);
   setForegroundWindow(hTargetWnd1);
   sleep(10000);
   if hTargetWnd1 <> 0 then
   begin
     // probiere es mal so... ungetestet aus dem Bauch heraus
     PostMessage(hTargetWnd1, WM_KEYDOWN, VK_TAB, 0);
     PostMessage(hTargetWnd1, WM_KEYUP, VK_TAB, 0);

     SendMessage(hTargetWnd1, WM_SETTEXT, Longint(Handle), LongInt(PChar(sendStr)));
   end;
end;