scanjet92
2007-12-23 16:00:09
This is my first script so i decided to make a simple auto typer
[ATTACH]9187[/ATTACH]
i would like to know how to put it so it automatically goes onto the rs window and starts typing the message because at the moment it just starts typing as soon as you press run script
program AutoTyper;
{.include srl/srl.scar}
const
WaitTime=2;//Time to wait inbetween each message(in seconds)
MovementEffect = 'wave2:';//Movement effect e.g. wave2: , scroll: must put : in
ColourEffect = 'flash2:';//Colour effect e.g. flash2: , glow2: , or just the colour
Message1='hello';//The first message/advertisement
Message2='goodbye';//Message to be said after the first message
SayAgain=4;//How many times to repeat both messages
var
i:integer;
procedure typer;
begin
wait(WaitTime*1000)
SendKeys(MovementEffect);
SendKeys(ColourEffect);
TypeSend(message1);
wait(WaitTime*1000)
SendKeys(MovementEffect);
SendKeys(ColourEffect);
TypeSend(message2);
end;
begin
setupSRL;
repeat
typer;
i:=i+1
until(i>=SayAgain)
end.
[ATTACH]9187[/ATTACH]
i would like to know how to put it so it automatically goes onto the rs window and starts typing the message because at the moment it just starts typing as soon as you press run script