JuKKa
11-01-2006, 07:33 PM
yay this is my first srl script just testing srl out. simple but auto login makes me "Horny" when ever i run it..^^ seeing that ..i made the script :D whatever -.-
i tried to make as small amout of lines as possible currently 34
program Login;
{.include SRL\SRL.scar}
var Click:integer;
Const
Username = 'Mininq4life';
password = 'Mininq4life';
Procedure Bmps;
begin
Click := BitmapFromString(34, 10, 'z78DA33304000370C6080019' +
'0658D9D0C8C0D0CF0AB21DE3462D490274EAA09C8C0C4C2C0 8890' +
'4A4A6CA4C46DE4A9A7858DE4C5E060F60BE56E1B0C7EA196C AD17' +
'819CD2FE49563B42BF770A9C45562535E8F505273910AA85B 5762' +
'CA02000637C4E4');
end;
procedure login;
begin
wait(600+random(800))
ClickText('Existing user', 357, 242, 955, 575)
wait(100+random(100))
Typesend(Username)
Typesend(Password)
wait(200+random(100))
Mouse(302, 318,8,8,true)
repeat
wait(100+random(100))
if(findbitmap(click,x,y))then
Mouse(x,y,10,10,true)
until(false)
end;
begin
SetupSRL;
bmps;
login;
end.
i tried to make as small amout of lines as possible currently 34
program Login;
{.include SRL\SRL.scar}
var Click:integer;
Const
Username = 'Mininq4life';
password = 'Mininq4life';
Procedure Bmps;
begin
Click := BitmapFromString(34, 10, 'z78DA33304000370C6080019' +
'0658D9D0C8C0D0CF0AB21DE3462D490274EAA09C8C0C4C2C0 8890' +
'4A4A6CA4C46DE4A9A7858DE4C5E060F60BE56E1B0C7EA196C AD17' +
'819CD2FE49563B42BF770A9C45562535E8F505273910AA85B 5762' +
'CA02000637C4E4');
end;
procedure login;
begin
wait(600+random(800))
ClickText('Existing user', 357, 242, 955, 575)
wait(100+random(100))
Typesend(Username)
Typesend(Password)
wait(200+random(100))
Mouse(302, 318,8,8,true)
repeat
wait(100+random(100))
if(findbitmap(click,x,y))then
Mouse(x,y,10,10,true)
until(false)
end;
begin
SetupSRL;
bmps;
login;
end.