Simple Auto Login

[Jimmyjohn]

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:

// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// ~~~~~~~~~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.

 

[i like pie]

im going to try this out right now

 

[vash999389]

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... ^.^