Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: Standard Webbrowser Username und Passwort übergeben

  Alt 10. Mär 2020, 14:07
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;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat