PDA

View Full Version : plz critic my autologin script



Bramble
11-28-2006, 01:31 AM
i made it using dtms

{
____ __ ___
/\ _`\ /\ \ /\_ \
\ \ \L\ \ _ __ __ ___ ___\ \ \____\//\ \ __
\ \ _ <'/\`'__\/'__`\ /' __` __`\ \ '__`\ \ \ \ /'__`\
\ \ \L\ \ \ \//\ \L\.\_/\ \/\ \/\ \ \ \L\ \ \_\ \_/\ __/
\ \____/\ \_\\ \__/.\_\ \_\ \_\ \_\ \_,__/ /\____\ \____\
\/___/ \/_/ \/__/\/_/\/_/\/_/\/_/\/___/ \/____/\/____/
}

program New;
{.include srl/srl.scar}
var login1,login2:integer;

const
username = 'username goes here';
password = 'password goes here';

procedure login;
begin
login1 := DTMFromString('78DA633CCDC8C0A00CC468E03F108344FF0 301E372204B1D530D03540D985E0164C91150F303C85222A0E 61B11765D05B2B4F1AB01004D8F0ACD');
if FindDtm(login1, x, y, 0, 0, 750, 480) then
mouse(x, y, 20, 9, true);
Wait(1000+Random(500));
typesend(username);
Wait(1000+Random(500));
typesend(password);
Wait(2000+Random(500));
login2 := DTMFromString('78DA63D467646070046234F01F8841A2FF8 1805101C8B2C554C3005503A6416A5C08A85101B2DC08A8312 7428D3D90E5845F0D00D3C107AD');
if FindDtm(login2, x, y, 0, 0, 750, 480) then
mouse(x, y, 20, 5, true);
Wait(6000+Random(1000));
mouse(x, y, 5, 5, true);
end;
begin
setupsrl
login
end.

xxlegitxx
11-28-2006, 11:42 PM
1. Is there really a benefit to using a DTM as opposed to just set coordinates?
2. Syntax is a bit off.


{
____ __ ___
/\ _`\ /\ \ /\_ \
\ \ \L\ \ _ __ __ ___ ___\ \ \____\//\ \ __
\ \ _ <'/\`'__\/'__`\ /' __` __`\ \ '__`\ \ \ \ /'__`\
\ \ \L\ \ \ \//\ \L\.\_/\ \/\ \/\ \ \ \L\ \ \_\ \_/\ __/
\ \____/\ \_\\ \__/.\_\ \_\ \_\ \_\ \_,__/ /\____\ \____\
\/___/ \/_/ \/__/\/_/\/_/\/_/\/_/\/___/ \/____/\/____/
}

program New;
{.include srl/srl.scar}
var
login1, login2 :integer;

const
username = 'username goes here';
password = 'password goes here';

procedure login;
begin
login1 := DTMFromString('78DA633CCDC8C0A00CC468E03F108344FF0 301E372204B1D530D03540D985E0164C91150F303C85222A0E 61B11765D05B2B4F1AB01004D8F0ACD');
if FindDTM(login1, x, y, 0, 0, 750, 480) then
begin
Mouse(x, y, 20, 9, true);
Wait(1000+Random(500));
TypeSend(username);
Wait(1000+Random(500));
TypeSend(password);
Wait(2000+Random(500));
end;
login2 := DTMFromString('78DA63D467646070046234F01F8841A2FF8 1805101C8B2C554C3005503A6416A5C08A85101B2DC08A8312 7428D3D90E5845F0D00D3C107AD');
if FindDTM(login2, x, y, 0, 0, 750, 480) then
begin
Mouse(x, y, 20, 5, true);
Wait(6000+Random(1000));
Mouse(x, y, 5, 5, true);
end;
end;
begin
setupsrl;
login;
end.

3. I don't think you need to include SRL in here.

Otherwise, it looks fine to me.

solarwind
11-29-2006, 12:01 AM
Just set random coordinates with limits and avoid using DTMs for this one.

Hey321
11-29-2006, 12:34 AM
xxlegitxx, in answer to your questions:

1: DTM's are faster and easier then co-ords
2: Can't Answer XD (What's Syntax?)
3: SRL is included because TypeSend is an SRL procedure.

xxlegitxx
11-29-2006, 08:40 PM
1. DTM's are faster than coords? Are you kidding me?

2. Take the script I updated. Look at the difference. That's syntax.

3. I c.

solarwind
11-29-2006, 10:16 PM
1. DTM's are faster than coords? Are you kidding me?

2. Take the script I updated. Look at the difference. That's syntax.

3. I c.

DTMs are slower than coordinates obviously.

xxlegitxx
12-01-2006, 12:22 AM
I thought I was missing something...