Haag
2012-01-29 17:46:12
asdasd
2012-01-29 17:46:12
2012-01-29 17:48:12
2012-01-29 17:51:43
2012-01-29 17:54:26
2012-01-29 18:28:39
program new;
{$i SRL/SRL/Misc/SMART.scar}
{$i SRL/SRL.simba}
var
ii : integer;
Const
Memberss = True;
Textt = 'text';
Times = 100000; // how many times to repeat.
begin
ii := 0;
SetupSRL;
SmartSetupEx(10, Memberss, True, False);
Writeln('Please Pause the Script and login');
Writeln('Please Pause the Script and login');
Writeln('Please Pause the Script and login');
Writeln('Please Pause the Script and login');
Wait(20000);
while(not (LoggedIn)) do
begin
Wait(6000);
Writeln('Still not logged in, Waiting......');
End;
Repeat
Inc(ii);
Wait(10);
SendKeys(Textt,30);
Wait(50)
TypeByte(13);
Until(ii > Times);
end.