Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: Standard Webbrowser Username und Passwort übergeben
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;
|
|
Zitat
|