SRL Archive - First Scripts

program RSLogon;
const username1= '';
password1= '';
username2= '';
password2= '';
username3= '';
password3= '';
session=1;

var i: integer;
begin
ActivateClient;
wait(300);
if(getcolor(440, 302)=3879730)then
begin
ClickMouse(462, 321, true);
wait(300);
end;
ClickMouse(462, 291, true);
wait(200);
if(session=1)then
begin
SendKeysSilent(username1);
end;
if(session=2)then
begin
SendKeysSilent(username2);
end;
if(session=3)then
begin
SendKeysSilent(username3);
end;
keydown(13);
keyup(13);
wait(300);
if(session=1)then
begin
SendKeysSilent(password1);
end;
if(session=2)then
begin
SendKeysSilent(password2);
end;
if(session=3)then
begin
SendKeysSilent(password3);
end;
wait(300);
ClickMouse(280, 321, true);
for i:= 1 to 100 do
begin
wait(100);
if(getcolor(440, 316)=1384558)then
begin
i:= 100;
ClickMouse(380, 336, true);
end;
end;
end.

OK, so you've got a good, nice simple script. I like the way you can have multiple sessions and it responds nice and quickly.

You're problem, and it's a big one, is standards… or rather the lack of them.

You need to look at a tutorial on standards (go and look in the beginner's section in the tutorial island section of this forum). The script works, but there is no formatting. I've corrected them here, but you need to learn how to sort them out yourself. If you get into good habits now, you won't have so many problems later on. Anyway, here's the revised standards:

program RSLogon;

const
username1= '';
password1= '';
username2= '';
password2= '';
username3= '';
password3= '';
session=2;

var
i: integer;

begin
  ActivateClient;
  wait(300);
  if(getcolor(440, 302)=3879730)then
  begin
    ClickMouse(462, 321, true);
    wait(300);
  end;
  ClickMouse(462, 291, true);
  wait(200);
  if(session=1)then
  begin
    SendKeysSilent(username1);
  end;
  if(session=2)then
  begin
    SendKeysSilent(username2);
  end;
  if(session=3)then
  begin
    SendKeysSilent(username3);
  end;
  keydown(13);
  keyup(13);
  wait(300);
  if(session=1)then
  begin
    SendKeysSilent(password1);
  end;
  if(session=2)then
  begin
    SendKeysSilent(password2);
  end;
  if(session=3)then
  begin
    SendKeysSilent(password3);
  end;
  wait(300);
  ClickMouse(280, 321, true);
  for i:= 1 to 100 do
  begin
    wait(100);
    if(getcolor(440, 316)=1384558)then
    begin
      i:= 100;
      ClickMouse(380, 336, true);
    end;
  end;
end.

I've also uploaded a SCAR file for download, if you find that easier.

Hope I could help. Just ask for anything else. :spongebob:

So, here's the file:

Hey,
Tried it out - seems to run smoothly without problems.
Only thing I can see is perhaps use TypeSend instead of SendKeys and Mouse instead of ClickMouse. Not sure if they matter too much though.. does anyone know if HagJex can detect SendKeys on login..?

From: Rubycore
Hey,
Tried it out - seems to run smoothly without problems.
Only thing I can see is perhaps use TypeSend instead of SendKeys and Mouse instead of ClickMouse. Not sure if they matter too much though.. does anyone know if HagJex can detect SendKeys on login..?

the only way they could tell is if you instantly typed your user and pass in:stirthepot:

runs well, and it just works, very nice. only thing i'd do diff is add more randomness, no wat i mean? i dont think you can get banned for logging in suspiciously, but it can never hurt right?