hallo zusammen,
ich habe das problem das ich einen atomatischen Klick (mouse_event(MouseEventF_leftDown,x,y,0,0)
auf eine TWebBrowser Komponente Klicken möchte, er aber nicht klickt.
Zum Ablauf:
ich lese koordinaten für den klick ein die er nach und nach klicken soll.
das funktioniert auf dem desktop ohne weitere probleme ... aber wenn ich in dem browser klicken möchte macht er nix... wenn ich aber manuel im browser klicke macht er alles einwandfrei...
hier einmal der entsprechende code...
Delphi-Quellcode:
procedure TForm1.Button10Click(Sender: TObject);
var n,m,x,y : Integer;
I: Integer;
begin
zaehler := 0; //Globale Variable
while zaehler < listbox3.count - 1 do
begin
if webbrowser1.busy <> true then
begin
for I := 0 to Listbox1.Count - 1 do
begin
n := StrToInt(listbox1.items[i]); //X Koordinaten
m := StrToInt(listbox2.items[i]); //Y Koordinaten
if (n = 0) and (m = 0) then
begin
sleep(200);
entertext(nick);
end;
if (n = 9999) and (m = 9999) then
begin
key := listbox3.Items[zaehler];
sleep(200);
EnterText(key);
end;
if (m <> 0) and (m <> 9999) and (n <> 0) and (n <> 9999) then
begin
setCursorPos(m,n);
sleep(100);
mouse_event(MouseEventF_leftDown,x,y,0,0);
sleep(500);
mouse_event(MouseEventF_leftUp,x,y,0,0);
sleep(100); //Sleeps sind notwending aber nicht in der Größe ... nur zu testzwecken
end;
end;
sleep(100);
zaehler := zaehler+1;
end;
end;
end;
Zum Zweck:
das ganze ist für die Firma da wir mit einer datenbank arbeiten die webgestützt ist und ich die ganzen einträge in exel hab ^^ ich lese sie vorher in listbox3 ein und stecke sie nach und nach in die im browser vorgesehenen felder ein...
ich hoffe ihr könnt mir helfen
lg 5etH