Hallo.
Folgendes Programm soll einfach alle paar Sekunden die Taste "3" drücken.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button1Click(Sender: TObject);
begin
zeit:=strtointdef(edit1.Text,5000);
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event( ($33), MapVirtualKey( ($33),0), 0, 0);
Sleep(1000); keybd_event( ($33), MapVirtualKey( ($33),0), KEYEVENTF_KEYUP, 0);
sleep(zeit);
end;
end. |
Bei mir funktioniert es super: Einfach aus den Button drücken, den Cursor in irgendein Textfeld bewegen und es tauchen lauter 3en da auf.
Das Programm habe ich einem Freund geschickt, dort passiert gar nichts. Es wird nichts gedrückt.
Habt ihr einen Tipp, woran das liegen könnte? Ich habe nicht mehr Infos, er schreibt mir nur, dass nichts passiert. Nachdem ich ihm 15 min erklärt, habe, wie der das Programm zu benutzen hat, denke ich nicht, dass er da groß was falsch macht.
