Simple Auto Login

Discussion in 'Outdated RS Scripts' started by Jimmyjohn, Mar 4, 2007.

Simple Auto Login
  1. Unread #1 - Mar 4, 2007 at 3:39 PM
  2. Jimmyjohn
    Referrals:
    0

    Jimmyjohn Guest

    Simple Auto Login

    I made this not too long ago. It doesn't use any bitmaps or includes.
    This is version 0.1. The next one that I'm working on will include bitmaps.

    Here it is:

    Code:
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // ~~~~~~~~~By: JimmyJohn~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~AUTO LOGIN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~AUTO LOGIN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~AUTO LOGIN~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~By: JimmyJohn~~~~~~~~
    // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    //
    // Instructions:
    // 1. Enter Your User and Pass
    // 2. Check Coordinates----My screen is a little offset, It may affect
    //    yours---- all you have to do is: 1. Press CTRL+ALT+P
    //                                     2. Move the mouse over the login
    //                                        buttons; if the coordinates are
    //                                        close, then you should be fine.
    //                                     3. BUT, if they aren't simply scroll
    //                                        down to where I have comments
    //                                        and type in the coordinates.
    // 3. Set Client Window
    // 4. Make sure you are on login screen. If you aren't on the welcome
    //    screen, then go to it
    // 5. RUN or Press CTRL+ALT+R
    // 6. HAVE FUN.
    program Login;
    
    procedure MMouse(x, y: integer);
    begin
      MoveMouseSmoothex(x, y, 10, 10, 4, 10, 5);
    end;
    
    procedure ClickExistingUser;
    var
    x, y: integer;
    begin
     GetMousePos(x, y);
     ClickMouse(452, 293, True);// If your coordinates are off, then get the
     //coordinates of the Existing User button and enter them in here.
    end;
    
    Procedure Typein;
    var
     user: String;
     pass: String;
    
    begin
     user:=''//Type your Username between ('<usernamehere>')
     pass:=''//Type your Password between ('<usernamehere>')
     SendKeys(user);
     Wait(1000+random(500));
     KeyDown(VK_RETURN);
     KeyUp(VK_RETURN);
     Wait(random(300));
     SendKeys(pass)
    end;
    
    Procedure Login;
    var
    x, y: integer;
    begin
     Typein;
     wait(1000)
     MoveMouseSmoothEx(303, 320, 10, 10, 4, 10, 5);//If your coordinates are
     //off, then get the coordinates of the Login button and enter them where
     //303 and 320 are. 303 is the x; 320 is the y.(303, 320)
     GetMousePos(x, y);
     ClickMouse(303, 320, True);// Enter the same coordinates that you did for
     //line 62. (2 lines up)
    end;
    
    procedure LoginFinal;
    var
     x, y: integer;
    begin
     Wait(4000+random(3000));
     MoveMouseSmoothEx(395, 335, 10, 10, 4, 10, 5);//If your coordinates are
     //off, then get the coordinates of the Click Here To Begin button, and
     //enter then where 395, and 335 are. 395 is the x; 335 is the y.(395, 335)
     GetMousePos(x, y);
     ClickMouse(395, 335, True);//Again, enter the coordinates that you did
     //for Line 75.
    end;
    begin
     Activateclient;
     MMouse(452, 293);//If you changed the coordinates in Line 36, then change
     //these to the same coordinates.
     ClickExistingUser;
     wait(1000)
     Login;
     LoginFinal;
    end.
     
  3. Unread #2 - Mar 4, 2007 at 5:18 PM
  4. i like pie
    Joined:
    Jan 24, 2007
    Posts:
    337
    Referrals:
    0
    Sythe Gold:
    0

    i like pie Forum Addict

    Simple Auto Login

    im going to try this out right now
     
  5. Unread #3 - Mar 24, 2007 at 12:36 AM
  6. vash999389
    Referrals:
    0

    vash999389 Guest

    Simple Auto Login

    umm...

    program AutoLogin;

    {.include SRL/SRL.scar}

    Procedure DeclarePlayers; //
    begin //
    HowManyPlayers:=1; // Number of Players. //
    NumberOfPlayers(HowManyPlayers); // Leave //
    CurrentPlayer:=0; // Leave //


    Players[0].Name :='user';
    Players[0].Pass :='pass';
    Players[0].Active:=True;

    end;

    begin
    DeclarePlayers;
    if(not(LoggedIn)) then LoginPlayer;
    end

    thats all there is to it... ^.^
     
< -- First Autominer -- By BzzBzz -- | Auto Alcher? >

Users viewing this thread
1 guest


 
 
Adblock breaks this site