SRL Archive - Research & Development Lounge

Hey all, working on an account creator package for myself :P, Ive got a script that makes accounts, solves tutorials, runs SOF and working on a script to transfer them GPZ, anybody interested in this being released? It wouldnt be perfect until Ive tested it thoroughly, but I would be willing to release it and show everyone how I've done it. I have to get permission from a user to post his account creating script, I modified it to work with current standards and changed it to properly work and its been modified quite heavily :P

I will be starting a blog 24hrs from today with a screenshot of my loot and total value! I want this to run through 1k+ accounts

For the tutorial solving, you can skip it with the achievements menu :)

From: BMWxi
For the tutorial solving, you can skip it with the achievements menu :)

Thats what I meant by it, it also chooses the character (Randomizes it ect :P)

Good luck with this! Would this simply run SOF once a day on "x" number of accounts to transfer all the money?

Not that I'm against this idea at all, but doesn't Jagex record all monetary transfers, causing a large notice if 1 account would receive hundreds of beneficial transactions a day?

Sounds great :P quick question is it similar to this? http://www.powerbot.org/community/topic/787953-14-days-of-sof-4-spinsaccount-thousands-of-accounts-10k-daily-spins/

From: nivek1989
Good luck with this! Would this simply run SOF once a day on "x" number of accounts to transfer all the money?

Not that I'm against this idea at all, but doesn't Jagex record all monetary transfers, causing a large notice if 1 account would receive hundreds of beneficial transactions a day?

They're all blank accounts, it would transfer some to one account then another one on a different day, think like a tree, so each main money holder would only receive one trade a day, week ect, never from the same account(:

From: Soviet Union
Sounds great :P quick question is it similar to this? http://www.powerbot.org/community/topic/787953-14-days-of-sof-4-spinsaccount-thousands-of-accounts-10k-daily-spins/

Exact same idea :p

How do you solve the email verification?

From: SRLKing

Exact same idea :p

Great! :P Can't wait to see the results of it :D Be interesting to see if they have changed the odds of that 200m prize :stirthepot:

From: weequ
How do you solve the email verification?

Couldn't you just use the '+1, +2, +3' trick at the end of the same email address?

From: THE MAYOR
Couldn't you just use the '+1, +2, +3' trick at the end of the same email address?

I totally forgot about that. Can't believe jagex still hasn't fixed that.

here is some help:

program AccountCreatorV1;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$loadlib Appa_Simba}

var
Submit, a, i, x, e, k, y : integer;
PlayerID :integer;
Forms: TAppaFormArray;
Elements: TAppaElementArray;

const
//Settings
  mailfirstname = '';
  mailextension = '@gmail.com';
  default_pass = 'Password';
  Accountslimit = 100;
  Waittime =  600000; //In milliseconds 600000 = 10 minutes

 procedure appa_ClickBox(B: TBox; ClickType: boolean);
var
  X, Y: Integer;

begin
  X := RandomRange(B.X1, B.X2);
  Y := RandomRange(B.Y1, B.Y2);
  appa_MoveMouse(X, Y);
  appa_HoldMouse(X, Y, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(X, Y, ClickType);
  //writeln(Point(X, Y));
end;



Procedure getform;
begin
          appa_ShowForm; //Show the form
          writeln('Loading Form');
          appa_SetSize(1000, 1000);
          appa_Navigate('https://secure.runescape.com/m=account-creation/l=2/create_account_funnel.ws?version=6');
          writeln('Got the form');
          wait(10000);
end;

Procedure Submission;
begin
  writeln('Moving mouse');
  appa_HoldMouse(250,359, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(250,359, True);
  wait(10000);
end;



Procedure completeform;
begin
  appa_GetForms(Forms);
    for i:=0 to high(Forms) do
      for a:=0 to high(Forms[i].Elements) do
        case Forms[i].Elements[a].Name of
          'email1':  begin appa_FormElementAction(i, a, appa_SetValue, mailfirstname + '+' + IntToStr(k) + mailextension); writeln('Input Age');end;
          'email2': appa_FormElementAction(i, a, appa_SetValue, mailfirstname + '+' + IntToStr(k) + mailextension);
          'password1': begin appa_FormElementAction(i, a, appa_SetValue, default_pass); writeln('Input Pass') end;
          'password2': begin appa_FormElementAction(i, a, appa_SetValue, default_pass); writeln('Input Pass') end;
          'age': begin appa_FormElementAction(i, a, appa_SetValue, '18' ); writeln('Input Age');end;
          'submit': Submission;
        end;
end;

procedure SaveDataToFile(file,text:string);
var
  SaveFile, thefile: Integer;
  Str: string;
begin
  if FileExists(file) then
  begin
    thefile := OpenFile(file,true);
    ReadFileString(thefile,str, FileSize(thefile));
    CloseFile(thefile);
  end;
  SaveFile := RewriteFile(file, False);
  if str = '' then
    WriteFileString(SaveFile,text)
  else
    begin
      WriteFileString(SaveFile,str + chr(13) + text);
    end;
  Writeln('Saved to: '+file);
  CloseFile(SaveFile);
end;



 begin
    for k:=0 to Accountslimit do
        begin
          getform;
          completeform;
          SaveDataToFile('C:\Simba\Scripts\Logs\log' + ' ' + mailfirstname + TheDate(Date_Day)  + '.txt', mailfirstname + '+' + IntToStr(k) + mailextension + ' ' + chr(13));
          Inc(k);
          wait(Waittime);
        end;
    terminatescript;
end.

it's broken but I'm sure with enough brainpower you can fix it (it's an easy fix)

From: weequ
I totally forgot about that. Can't believe jagex still hasn't fixed that.

Exactly what it does! It also will have a script to activate the emails

From: xtrapsp
here is some help:

program AccountCreatorV1;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$loadlib Appa_Simba}

var
Submit, a, i, x, e, k, y : integer;
PlayerID :integer;
Forms: TAppaFormArray;
Elements: TAppaElementArray;

const
//Settings
  mailfirstname = '';
  mailextension = '@gmail.com';
  default_pass = 'Password';
  Accountslimit = 100;
  Waittime =  600000; //In milliseconds 600000 = 10 minutes

 procedure appa_ClickBox(B: TBox; ClickType: boolean);
var
  X, Y: Integer;

begin
  X := RandomRange(B.X1, B.X2);
  Y := RandomRange(B.Y1, B.Y2);
  appa_MoveMouse(X, Y);
  appa_HoldMouse(X, Y, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(X, Y, ClickType);
  //writeln(Point(X, Y));
end;



Procedure getform;
begin
          appa_ShowForm; //Show the form
          writeln('Loading Form');
          appa_SetSize(1000, 1000);
          appa_Navigate('https://secure.runescape.com/m=account-creation/l=2/create_account_funnel.ws?version=6');
          writeln('Got the form');
          wait(10000);
end;

Procedure Submission;
begin
  writeln('Moving mouse');
  appa_HoldMouse(250,359, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(250,359, True);
  wait(10000);
end;



Procedure completeform;
begin
  appa_GetForms(Forms);
    for i:=0 to high(Forms) do
      for a:=0 to high(Forms[i].Elements) do
        case Forms[i].Elements[a].Name of
          'email1':  begin appa_FormElementAction(i, a, appa_SetValue, mailfirstname + '+' + IntToStr(k) + mailextension); writeln('Input Age');end;
          'email2': appa_FormElementAction(i, a, appa_SetValue, mailfirstname + '+' + IntToStr(k) + mailextension);
          'password1': begin appa_FormElementAction(i, a, appa_SetValue, default_pass); writeln('Input Pass') end;
          'password2': begin appa_FormElementAction(i, a, appa_SetValue, default_pass); writeln('Input Pass') end;
          'age': begin appa_FormElementAction(i, a, appa_SetValue, '18' ); writeln('Input Age');end;
          'submit': Submission;
        end;
end;

procedure SaveDataToFile(file,text:string);
var
  SaveFile, thefile: Integer;
  Str: string;
begin
  if FileExists(file) then
  begin
    thefile := OpenFile(file,true);
    ReadFileString(thefile,str, FileSize(thefile));
    CloseFile(thefile);
  end;
  SaveFile := RewriteFile(file, False);
  if str = '' then
    WriteFileString(SaveFile,text)
  else
    begin
      WriteFileString(SaveFile,str + chr(13) + text);
    end;
  Writeln('Saved to: '+file);
  CloseFile(SaveFile);
end;



 begin
    for k:=0 to Accountslimit do
        begin
          getform;
          completeform;
          SaveDataToFile('C:\Simba\Scripts\Logs\log' + ' ' + mailfirstname + TheDate(Date_Day)  + '.txt', mailfirstname + '+' + IntToStr(k) + mailextension + ' ' + chr(13));
          Inc(k);
          wait(Waittime);
        end;
    terminatescript;
end.

it's broken but I'm sure with enough brainpower you can fix it (it's an easy fix)

I've already written that part, however. I will look at it, thank you!

Here was me logging into hotmail to activate emails:

program Hotmail;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$loadlib Appa_Simba}

var
Submit, a, i, x, e, k, y : integer;
PlayerID :integer;
Forms: TAppaFormArray;
Elements: TAppaElementArray;

const
//Settings
  mailfirstname = 'email';
  mailextension = '@hotmail.co.uk';
  emailpassword = '';        // Hotmail Extension for logging into hotmail.
  default_pass = '';
  Accountslimit = 100000;

 procedure appa_ClickBox(B: TBox; ClickType: boolean);
var
  X, Y: Integer;

begin
  X := RandomRange(B.X1, B.X2);
  Y := RandomRange(B.Y1, B.Y2);
  appa_MoveMouse(X, Y);
  appa_HoldMouse(X, Y, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(X, Y, ClickType);
  //writeln(Point(X, Y));
end;
procedure SaveDataToFile(file,text:string);
var
  SaveFile, thefile: Integer;
  Str: string;
begin
  if FileExists(file) then
  begin
    thefile := OpenFile(file,true);
    ReadFileString(thefile,str, FileSize(thefile));
    CloseFile(thefile);
  end;
  SaveFile := RewriteFile(file, False);
  if str = '' then
    WriteFileString(SaveFile,text)
  else
    begin
      WriteFileString(SaveFile,str + chr(13) + text);
    end;
  Writeln('Saved to: '+file);
  CloseFile(SaveFile);
end;

Procedure getform;
begin
          appa_ShowForm; //Show the form
          writeln('Loading Hotmail');
          appa_SetSize(1000, 1000);
          appa_Navigate('https://login.live.com/login.srf');
          writeln('Got hotmail page');
          wait(10000);
end;

Procedure checkemail;
begin
          appa_Navigate('https://mail.live.com/default.aspx?rru=inbox');
          wait(10000);
          writeln('Got hotmail page');
end;

Procedure SubmitHotmail;
begin
  writeln('Moving mouse');
  appa_HoldMouse(670, 328, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(670, 328, True);
  wait(10000);
end;

Procedure HotmailLogin;
begin
  appa_GetForms(Forms);
    for i:=0 to high(Forms) do
      for a:=0 to high(Forms[i].Elements) do
        case Forms[i].Elements[a].Name of
          'login':  begin appa_FormElementAction(i, a, appa_SetValue, mailfirstname + mailextension); writeln('Input Hotmail Login');end;
          'passwd': begin appa_FormElementAction(i, a, appa_SetValue, emailpassword); writeln('Input HotmailPass') end;
          'submit': appa_SubmitForm(i);
        end;
end;

 begin
    for k:=0 to Accountslimit do
        begin
          getform;
          HotmailLogin;
          Submission;
          wait(1000);
        end;
    terminatescript;
end.

From: xtrapsp
Here was me logging into hotmail to activate emails:

program Hotmail;
{$DEFINE SMART}
{$I SRL/SRL.Simba}
{$loadlib Appa_Simba}

var
Submit, a, i, x, e, k, y : integer;
PlayerID :integer;
Forms: TAppaFormArray;
Elements: TAppaElementArray;

const
//Settings
  mailfirstname = 'email';
  mailextension = '@hotmail.co.uk';
  emailpassword = '';        // Hotmail Extension for logging into hotmail.
  default_pass = '';
  Accountslimit = 100000;

 procedure appa_ClickBox(B: TBox; ClickType: boolean);
var
  X, Y: Integer;

begin
  X := RandomRange(B.X1, B.X2);
  Y := RandomRange(B.Y1, B.Y2);
  appa_MoveMouse(X, Y);
  appa_HoldMouse(X, Y, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(X, Y, ClickType);
  //writeln(Point(X, Y));
end;
procedure SaveDataToFile(file,text:string);
var
  SaveFile, thefile: Integer;
  Str: string;
begin
  if FileExists(file) then
  begin
    thefile := OpenFile(file,true);
    ReadFileString(thefile,str, FileSize(thefile));
    CloseFile(thefile);
  end;
  SaveFile := RewriteFile(file, False);
  if str = '' then
    WriteFileString(SaveFile,text)
  else
    begin
      WriteFileString(SaveFile,str + chr(13) + text);
    end;
  Writeln('Saved to: '+file);
  CloseFile(SaveFile);
end;

Procedure getform;
begin
          appa_ShowForm; //Show the form
          writeln('Loading Hotmail');
          appa_SetSize(1000, 1000);
          appa_Navigate('https://login.live.com/login.srf');
          writeln('Got hotmail page');
          wait(10000);
end;

Procedure checkemail;
begin
          appa_Navigate('https://mail.live.com/default.aspx?rru=inbox');
          wait(10000);
          writeln('Got hotmail page');
end;

Procedure SubmitHotmail;
begin
  writeln('Moving mouse');
  appa_HoldMouse(670, 328, True);
  Wait(RandomRange(50, 70));
  appa_ReleaseMouse(670, 328, True);
  wait(10000);
end;

Procedure HotmailLogin;
begin
  appa_GetForms(Forms);
    for i:=0 to high(Forms) do
      for a:=0 to high(Forms[i].Elements) do
        case Forms[i].Elements[a].Name of
          'login':  begin appa_FormElementAction(i, a, appa_SetValue, mailfirstname + mailextension); writeln('Input Hotmail Login');end;
          'passwd': begin appa_FormElementAction(i, a, appa_SetValue, emailpassword); writeln('Input HotmailPass') end;
          'submit': appa_SubmitForm(i);
        end;
end;

 begin
    for k:=0 to Accountslimit do
        begin
          getform;
          HotmailLogin;
          Submission;
          wait(1000);
        end;
    terminatescript;
end.

I really appreciate this, I will be looking at it when I get home!

A question for you mate, how do you hope to change the IP in order to bypass the 10 account creation limit per IP? You should know that an IP change during client loading will most likely freeze and hang the script. Any pointers on this/how we can get around this? :) I'm very interested in your scripts. Do you have a skype I could talk with you on about these? I'm trying to formulate my own, slightly modified version and would love some tips! ^_^

So far I have created 22 accounts on my ip, more than likely will have it change the ip, I've read something that doesnt allow jagex to see ip as well

Yeah I'm wondering how you'll change the IP. For my account creator, I implemented client restarts (to allow time for an IP change after 10 accounts created). The problem is that the client loads at random speeds upon an IP change, and so eventually if you run this script for a while (1 hour+) the IP restart will coincide with the client loading and the client freezes/scripts hangs.

Could you elaborate on that IP cloaker? That would be legit and could make this work if real!

From: Boba155
Yeah I'm wondering how you'll change the IP. For my account creator, I implemented client restarts (to allow time for an IP change after 10 accounts created). The problem is that the client loads at random speeds upon an IP change, and so eventually if you run this script for a while (1 hour+) the IP restart will coincide with the client loading and the client freezes/scripts hangs.

Sounds interesting I saw a post earlier that if you change a file to read only it will allow you to dual log on same ip, same browser with any gimmicks, so I assume this would allow for unlimited account creating.

Could you elaborate? The problem is with the IP itself. Even with multiple clients open all running the account creator, Jagex still limits you to 10 accounts per IP per 2.5 hours. So it doesn't really matter if you run 10 clients making a single account each or a single client making 10 accounts, you'll receive an error message either way.

Could you also elaborate on the IP cloaker?

From: Boba155
Could you elaborate? The problem is with the IP itself. Even with multiple clients open all running the account creator, Jagex still limits you to 10 accounts per IP per 2.5 hours. So it doesn't really matter if you run 10 clients making a single account each or a single client making 10 accounts, you'll receive an error message either way.

Could you also elaborate on the IP cloaker?

Ahhh , well I will find the post!