PDA

View Full Version : Auto Login ->{Nauman}<-



Naum
06-02-2007, 09:59 AM
Dont open the file below it wont work!

Hello.
This is my first script. It is a very simple AutoLoGin it has random waits but the only thing is I cant change clickmouse to Mouse or Sendkeys to typesend.
I have tried but it will keep displaying the error that it doesnt exist.Please help me resolve that problem.

Here is my script:

{ /-------------\ /---------
/ \ / \
/ \ / \
| | | | | |
| | | | | |
| | | | | |
|________| | |______ | |
/ / / /
/ / / /
/ / / / SCRIPT
/ / UPER / /_____
/ / |/ |/ |
/ / | | |
/ / | | |
/ / | | |
/ /________ \ /
| | | \ /
| | | \------------/
| | |
| | |
\ /
\ /
\\---------//


Thanks to All the people who posted
Those OwNaGE<- Tutorials!


}
Program AutoLoGin;
{include srl/srl.scar}

var x,y:integer;


Procedure A;
begin

MoveMouseSmooth(461, 293)
wait(200 + Random(200))
clickmouse(461, 293,true)//clicks on the existing user sign
end;

procedure B;

begin
MoveMouseSmooth(347, 260)
wait(800)
clickmouse(347, 260,true)//goes to the username thing
sendkeys ('Your UsernameHere')
wait(1000+Random(84))


SendKeys(Chr(13))// goes to password thing
sendkeys('Your PasswordHere')
MoveMouseSmooth(286, 320)
clickmouse(286, 320,true);

Movemouse(388, 334)//clicks on the login sign
wait(2000+random(600))
Clickmouse(388, 334,true)

end;

procedure sig;

begin

writeln(' !===========================!')
writeln(' ! Logging in... !')
writeln(' !Thank You for Useing !')
writeln(' !->{Naumans}<- Auto Login ยง !')
Writeln(' !===========================!')

end;



begin
Sig;
A;
B;
Sig;
End.









Feel free to tell me how i can improve. I would like to say a special thanks
to JAD and Pawnz0r for those fabulous tuts. Enjoy!


{ note: this is very detectable only run it once or twice}

->{Nauman}<-:spongebob:

Dont open the file below it wont work!

Markus
06-02-2007, 03:12 PM
Nice first script, but as you said, very detectable.
This one is less detectable

{.include srl/srl.scar}
begin
setupsrl;
numberofplayers(1);
players[0].name := 'username';
players[0].pass := 'password';
loginplayer;
end.

RudeBoiAlex
06-02-2007, 06:44 PM
instead of clickmouse use Mouse

Naum
06-02-2007, 08:52 PM
I tried but it says it doesnt exist?? Help me:(

Markus
06-02-2007, 09:16 PM
You need to include srl first.
Under program Autologin; add this line

{.include srl/srl.scar}

And right under begin, before you call the sig, add

setupsrl;

Naum
06-03-2007, 01:51 PM
Thanks very much!

edit: Right under my variables it says that x,y:integer
is a duplicate identifier i have done cheaked the procedure/function or x and none displayed
is my whole script wrong?