Code:
program FGH;
var FireKey, RepairKey ,HH :string;
procedure VariabLes;
begin
FireKey:='f'; /// FeuerTaste
RepairKey:='q'; /// ReparierTaste
HH:='y'; /// Funktion für Threadsteller
end;
procedure Sendkkeys;
begin
Sendkeys(FireKey)
Wait(500)
Sendkeys(RepairKey)
Wait(2350)
Sendkeys(RepairKey)
Wait(500)
Sendkeys(HH)
Wait(500)
end;
begin
VariabLes;
repeat
Sendkkeys;
until(false)
end.
Tasten müssen selbst eingestellt werden, somit Feuert er Repariert in der Feuerpause und das immer wider.
HH ist für Threadsteller der wollte ja FGH in Abständen haben sollte die Abständen zu lang oder zu Kurz sein unter Wait ändern.
