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.
{
____ __ ___
/\ _`\ /\ \ /\_ \
\ \ \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.