Hallo, danke für deine Antwort.
Ich möchte mit Shellexecute und einem Button, die Seite im Internet Eplorer, bzw. mit dem auf dem System installierten
Standart-Browser, diesen Dialog ausfüllen um mich einloggen zu können
Ich habe um zu überprüfen ob dein Beispiel getestet, es funktioniert aber so nicht.
http://www.moepp.de/content/editor.p...d&passwd=intel
Ich habe mal was anderes getestet, aber irgendwie klappt das damit nicht.
Evt. stimmen die beiden Bezeichner nicht.
Benutzername-Textfeld
Kennwort-Textfeld
Delphi-Quellcode:
procedure Netzwerkanmeldung_ausfuellen;
var
main,
EditFeld_1,
okbutton : hwnd;
begin
main:=findwindow(nil,'Verbindung zu all-inkl.com herstellen');
if main <> 0 then
begin
EditFeld_1:=findwindowex(main,0,Pchar('Edit'),nil);
if EditFeld_1 <> 0 then
begin
sendmessage(EditFeld_1,wm_settext,0,longint(Pchar('USER_02'))); //Füllt das Benutzername-Textfeld aus
sendmessage(EditFeld_1+8,wm_settext,0,longint(Pchar('passwort'))); //Füllt das Kennwort-Textfeld aus
end;
okbutton:=findwindowex(main,0,nil,Pchar('OK'));
if okbutton <> 0 then
sendmessage(okbutton,bm_click,0,1); // klickt den Button
end;
end;