Ich möchte in meinem Delphiprogramm die Prozedur
procedure keybd_event;
nutzen, um eine Eingabe von einem Edit in eine Website zu schreiben.
Dabei wird der Browser die Seite mittels der Funktion
Delphi-Quelltext
1:
| function ShellExecute; |
aufrufen und nach einem kurzen delay (zum laden der Seite) wird mit
Delphi-Quelltext
1:
2:
| keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0); |
die eingabebox ausgewählt.
Nun mein Problem:
die Prozedur keybd_event; hat folgende Syntax:
Delphi-Quelltext
1:
| procedure keybd_event(bVk: byte, bScan: byte, dwFlags: cardinal,dwExtraInfo: cardinal) |
die einzelnen Zeichen der Eingabe des Users bekomme ich mit
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
| c: char;
i: integer;
for i := 1 to length(Edit1.Text) do
begin
c := Edit1.Text[i];
end; |
also dachte ich mir folgendes:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| c: char;
i: integer;
for i := 1 to length(Edit1.Text) do
begin
c := Edit1.Text[i];
keybd_event(VK_c, 0, 0, 0);
keybd_event(VK_c, 0, KEYEVENTF_KEYUP, 0);
end; |
Mir ist klar das das so nicht klappt, aber das VK_ zusammen als sting zu übergeben schlägt auch fehl. Es muss ja vom Typ byte sein.
Kann mir jemand helfen oder hat jemand eine andere Idee wie man so etwas realisieren kann?
MfG
Taucher
PS.: Ich nutze D7 Enterprise
hier im Forum!
