Results 1 to 7 of 7

Thread: Auto login(works on all computers!!!)

  1. #1
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Auto login(works on all computers!!!)

    Ok all you have to do is hit play and start on the runescape homepage and NOT on the login page. For the runescape homepage, Click Here!!!


    SCAR Code:
    //Directions\\
    //Setup your username and password on lines  9-10
    //start on runescape homepage not the login page!!

    Program AutoLogin;
    {.include SRL\SRl.scar}

    const
    username=('username');//your runescape username here
    password=('password');//your runescape password

    var
    mainpage:integer;
    HighDetail:integer;
    FreeWorld:integer;
    ExistingUser:integer;
    login:integer;
    clickhere:integer;
    con:boolean;


    procedure log;
    begin
    TypeSend(username)
    Wait(500)
    TypeSend(password)
    wait(1000)
    end;

    Procedure LoadDtms;
    begin
    Mainpage := DTMFromString('78DA634C666060B06440016A8A92609A11CA6' +
           '73C01243850D544844560AA49465513151583AA861D4824A2AA91' +
           '12E14555C386695756760EAA1A9019ACA86A0AF2F330D5A430600' +
           '5286E3626A006E46623FC6E0600233F0AF9');

    HighDetail := DTMFromString('78DA638C67606030664001E9A25C609A11CA6' +
           '7DC0924CC51D59CDACC8FAA26094824A2AA915390405513072498' +
           '51D5783A6BA0AA6105123AA86AC4853951D54C04128204DC330F4' +
           '884A3AA8949664055A30A244251D5303131A2AA5102123CA86A14' +
           '25F950D40000206F0B10');

    FreeWorld := DTMFromString('78DA639CCEC0C090C780028C7554C0342394C' +
           'F086299A2AA090C0A4155C30864AD4155C302D70FA51D81C45A54' +
           '3566FAAAA86A9C808439AA1A097121543533401A51D5C48478A2A' +
           'AF90F242A50D5448647A0AA990D24D6A1AA31D0924355630B248A' +
           '51D504A5F9A2A80100F8000D68');
           
    ExistingUser := DTMFromString('78DA6374656060106140014E2E7E609A11CA6' +
           '79C0A24B451D5088B8862AA614655A3A36B82AA8605538D95B533' +
           'AA1A5620A185AA46465601550DC8CDACA86A34B5F451D5B81361C' +
           'E34202186AA869B9B1BD3CD12F8D500007AA90748');
           
    Login := DTMFromString('78DA63F46660609066C00A1861F40C20C18E2' +
           'AE7E1158CAA663A90D04555C3CDCD8DAA860D48E81150C38A6917' +
           '861A909BD9885043C8AE6940420A558DB08828A67BA4F09B03002' +
           '8B2059C');
           
    clickhere := DTMFromString('78DA63DCCBC0C090C08002B26538C1342394C' +
           'FA80C6419336005286A7A50E5AC99D1D43800892E5435AB9BEB31' +
           'D5981050B38508352A40561201F7EC02127D04FCE50824E2F0DB0' +
           '500CC8D0E8B');

           
    end;



    procedure FreeDtms;
    begin
    FreeDTM(mainpage)
    FreeDTM(HighDetail)
    FreeDTM(FreeWorld)
    FreeDTM(ExistingUser)
    FreeDTM(Login)
    FreeDTM(clickhere)
    end;

    procedure Page1;
    begin
    repeat
    FindDTM(mainpage, x, y, 1, 1, 999, 999)
    if(FindDTM(mainpage, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page2;
    begin
    wait(1000)
    repeat
    FindDTM(highdetail, x, y, 1, 1, 999, 999)
    if(FindDTM(highdetail, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page3;
    begin
    wait(1000)
    repeat
    FindDTM(freeworld, x, y, 1, 1, 999, 999)
    if(FindDTM(freeworld, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page4;
    begin
    wait(20000)
    repeat
    FindDTM(existinguser, x, y, 1, 1, 999, 999)
    if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page42;
    begin
    wait(1000)
    repeat
    FindDTM(login, x, y, 1, 1, 999, 999)
    if(FindDTM(login, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    procedure Page5;
    begin
    wait(10000)
    repeat
    FindDTM(clickhere, x, y, 1, 1, 999, 999)
    if(FindDTM(clickhere, x, y, 1, 1, 999, 999)) then
    con:=true
    until(con)
    begin
    MMouse(x, y, 0, 0);
    wait(200 + random(100));
    Mouse(x, y, 4, 6, true);
    end;
    end;

    begin
    SetUpSRL
    LoadDtms
    ActivateCLient
    page1
    page2
    page3
    page4
    log
    page42
    page5
    freedtms
    end.

  2. #2
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is script is awsome!
    Is it your first? I am still trying to learn lol.

  3. #3
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it's my second but i'm still learning too
    does it work good for u?
    And if you want to learn how to use DTMs
    GO to yohojo's and starblaster's DTM tutotials on how to make them and if you need any additional help ask me or them

    For yohojo's click here!!!
    For Starblaster's click here!!!

  4. #4
    Join Date
    Oct 2006
    Location
    Texas,united states
    Posts
    100
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I ran it once and it worked great.
    How long did it take you to learn to script because i am learning very slow.

  5. #5
    Join Date
    Mar 2007
    Location
    Jersey
    Posts
    135
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol this was going to be the next script i was going to make

  6. #6
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    No need to have

    SCAR Code:
    FindDTM(existinguser, x, y, 1, 1, 999, 999)
    if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then

    Just make it
    SCAR Code:
    if(FindDTM(existinguser, x, y, 1, 1, 999, 999)) then


    Its a cool script, but not very usefully because most people use SCSS anyways, and we also need to activate the runescape client.

    But nice use of DTMs.

  7. #7
    Join Date
    Mar 2007
    Posts
    19
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    o really? didnt know that thx
    dude ur tut on dtms rocks this is how i could make this script

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Auto Fm - That Actually Works
    By timode in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 10-17-2007, 10:51 AM
  2. How many computers to auto?
    By ChrisGA in forum Discussions & Debates
    Replies: 5
    Last Post: 10-02-2007, 07:21 AM
  3. auto curser (that works)
    By atmmaster2 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 07-07-2007, 08:31 AM
  4. My first script auto login(its noobish but it works
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 02-21-2007, 09:35 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •