Floor66
2007-10-23 12:48:29
Since i had so much troubles, i re-made it.
This is after 1 Hour of Tutorial.
I added pretty much, and i havent read a SINGLE more line of the Tutorial.
Rate 1/5, FIRST Script.
Took me long to understand the
I made ALL the code, i read the tutorial once, until where i am now, i was creative and gone working.
I have learnt more then id ever thought!
I run on DiVi 3.12c SRL 4 #5.
How far i'd come on membership app.?
Suerly not 100%, maybe 15%? :P
This is after 1 Hour of Tutorial.
I added pretty much, and i havent read a SINGLE more line of the Tutorial.
Rate 1/5, FIRST Script.
Took me long to understand the
if (FindColor(x, y, BColor, 0, 0, 1280, 1024)) thenIt was all hard for me, but i succeeded!program Logger;
{.include SRL\SRL.scar}
procedure LogIn;
begin
Mouse(460, 293, 10, 10, true);
Mouse(294, 257, 1, 1, true);
TypeSend('Username');
Mouse(311, 278, 1, 1, true);
TypeSend('Password');
Mouse(303, 325, 10, 10, true);
end;
var
x, y: Integer;
const
BColor= 584;
procedure ClickButton;
begin
if (FindColor(x, y, BColor, 0, 0, 1280, 1024)) then
begin
Writeln('Found Red Button, Clicking now');
Mouse(390, 353, 10, 10, true);
end else
Writeln('Did not find the red button, Stopping');
Terminatescript;
end;
begin
SetUpSrl;
LogIn;
wait(2000+random(1000));
ClickButton;
end.I made ALL the code, i read the tutorial once, until where i am now, i was creative and gone working.
I have learnt more then id ever thought!
I run on DiVi 3.12c SRL 4 #5.
How far i'd come on membership app.?
Suerly not 100%, maybe 15%? :P