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!
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!